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Dosplus shifts into overdrive for business. 



THE NEW DOSPLUS 4.0 HARD 
DRIVE SYSTEM MEANS BUSINESS 

MAKE A SWIFT SHIFT The DOSPLUS 4.0 Hard Drive 
System turns your TRS-80 into a powerhouse for business 
applications. Shifting up to a hard drive is just like moving 
up from tape to floppy. It makes good business sense. You 
get the power, the dependability, the speed and capacity 
of a hard drive to power the software you need to keep 
your business in top gear. 

MIND YOUR OWN BUSINESS The power potential 
of the TRS-80 driven by DOSPLUS 4.0 Hard Drive System 
lets you mind your own business just like the big 
companies do. You can control accounts receivable, 
accounts payable, inventory, payroll, invoicing and a 
whole lot more accurately and with confidence because 
DOSPLUS 4.0 is the only current operating system 
designed from conception for hard disk operation. 
DOSPLUS 4.0 T.C.B. (Takes Care of Business) What good is 
a DOS if you have to spend so much time getting it to 
perform properly that your business suffers? DOSPLUS 4.0 
takes care of the computer while you take care of your 
business. It's a smooth, swift and silent business partner 
with the potential to handle up to 40 megabytes of 
capacity in 4, 10 meg units." So, for only $2995 you can 
shift your TRS-80 into over drive with DOSPLUS. 

THE DOSPLUS 4.0 FEATURES 

• Single volume addressing/Double sided floppies seen 



as one drive — Any single file can expand to limit of 
hard drive (up to 10 meg.) 

• Hard disk — disk editing utilities • Incredible I/O speed 

• Runs any combination of densities or tracks 

• Also operates 8" drives with special hardware — 
comes with expanded users guide and complete DOS 
technical section on I/O calls and DCB organization 

• "PLUS" ALL OF THE SENSATIONAL NEW DOSPLUS 
3.4 FEATURES 

THE COMPLETE SYSTEM 

• Smooth, silent, swift • Error-free disk I/O 

• *Add on up to 4, 1 meg units for a total of 40 
megabytes! 

• Plugs on the 50 pin data bus. — no loss of floppy drives 

• Completely self-contained — just plug it in and go 

• 10 meg units available Soon. 

NOTE: Specify 40 or 80 track when ordering DOS diskette. 
After initial bootup, user can create any DOS desired. 

TAKE YOUR ^QQC 
MICRO TO THE MAX. (£ M M^f COMPLETE 

Lifetime warranty on original media. 

For more information Reader service card 384 
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ZSRSVg&ZP* CALL TOLL FREE 

1-800-327-8724 ext. 200 

FOR VISA/MAS TERCHARGE.C O.D ORDERS 
TOLL FREE UNES WILL ACCEPT ORDERS ONLVI 

For Applications and Technical information, 
call (305) 983- 3390 or drop us a card 

Dealers inquiries invited 

%S 364 
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loMlalurino. In tn« T«nd» lm. 
5846 Funalon Street 
1305)083-3390 Hollywood. FL 33023 






So Far, So Good... 




Your Model III is a fine computer. 

So why settle for less than 

a fine disk storage system? 

A fast, reliable disk storage system — no other 
device is so vital to the satisfactory performance of 
your computer. At Percom we build quality, high- 
performance disk drive systems. From gold-plated 
connector contacts to goldcad metal chassis 
structures. From proven design through 100% 
reliability testing. Percom disk systems are the 
standard by which others are judged — the industry's 
"gold standard," in a sense. And since Percom is the 
largest independent manufacturer of disk systems 
for microcomputers, you get Percom quality 
at very competitive prices. Add-on drives for 
TRS-80* computers start as low as $399. 
Complete first-drive systems for the Model III 
start at only $599. Put a quality Percom mini-disk 
storage system in your Model III. And save. 



#1 For Your Model III 

Percom TFD drives for your TRS-80* Model III computer are available in 
40- and 80-track versions with single or dual heads. Single-head 40-track 
drives store 180 Kbytes; dual-head 40-track drives store 360 Kbytes. 
Eighty-track drives store slightly over twice these amounts. Of course 
these are formatted capacities. The Percom Model III controller handles 
up to four drives so it's possible to access almost three million bytes of 
on-line program and data files. You get Percom's OS-80/III Basic 
language DOS with each first-drive system, and your first drive may be 
either internal (add-in) or external (add-on). Percom TFD drives work with 
Model III TRSDOS and other Model III disk-operating systems. First-drive 
systems are pre-assembled. Installation is accomplished with simple tools. 

#1 For Your Model I, Too 

Percom TFD add-on drives for the TRS-80* Model I computer are 
available with the same features and the same quality control measures 
as TFD Model III drives. As for Model III drives, all Percom Model I drives 
are double-density rated. Install Percom's popular DOUBLER II in your 
Model I Expansion Interface and upgrade your Model I to provide the 
same storage capacity as the Model III. 

Watch for Announcement of Percom's Low-Cost 
Hard Disk System for the Model III! 

To order, or for the name of your authorized Percom retailer, 
call toll free 1-800-527-1222. 



Percom TFD disk drive systems have been 
certified to comply with FCC limits for Class 
B computing devices to protect against 
interfering with the operation of home radios 
and televisions. 

PERCOM DATA COMPANY, INC. 

1 1 220 Pagemill Road • Dallas, Texas 75243 
(214) 340-7081 

PRICES AND SPECIFICATIONS SUBJECT TO CHANGE WITHOUT NOTICE. 

"TRS-80 is a trademark of Tandy Radio Shack Corporation which has no relationship to 

Percom Data Company, Inc. 

PERCOM. DOUBLER II and OS-80/III are trademarks of Percom Data Company, Inc. 





Yes... I'd like to know more about 
the best for my TRS-80 computer. 
Send me free literature about 
quality Percom products. 

D MODEL I □ MODEL III 

Send to 

PERCOM DATA COMPANY, INC Depl 8-M 

11220 Pagemill Road, Dallas, TX, 75243 
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The Editor's Choice 78 

by Jake Commander and Kalvos Gesamte 

Brace yourself to be wowed when two of our 
editors team up to create some graphics to 
dazzle the eye. 




Where There's a Will. . . 84 

by Shawn A. McClenahan 

When told a Color Computer, printer, and 
CompuServe don't mix, this author was deter- 
mined to do it. 



Color Reversi 90 

by Anthony M. Ledger 

Creating a Color Computer version of Othello was going to be a simple little 
project for Tony Ledger, but he soon discovered it wasn't as simple and little as 
he thought. 



Mirror Imagining 112 

by Bob Boothe 

As long as Bob has been plotting surfaces, 
he's wanted to create a decent sphere. At last 
he has and now you can, too. 




Is a Rose in Color Still a Rose? 142 

by Roy Green 

After seeing what Bob Boothe did in black and 
white, this author thought it would look twice 
as good in color. 



162 



Jake's Wampeters 

by John P. Mello Jr. 

There's been an ironic symmetry in the wacky life of 80 Micro's affable 

Englishman, an irony echoing a Vonnegut novel. 
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Manipulating the new estate tax law. 
Charles R. Perelman 
210 CC— Color Computer or Chamber of Commerce? 

Business can be colorful. Richard S. Adcock 

EDUCATION 

*184 Grade Book 

Put it in your computer. B. E. Pugsley 
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A GALAXY of features makes the LN.W8b a 
remarkable computer. As you explore the 
LNW80, you will find the most complete, 
powerful ready to run, feature-packed per- 
sonal and business computer ever made into 
one compact solid unit. 




MODEL I COMPATIBILITY - The LNW80 is 

fully hardware and software compatible with 
the Model I. Select from a universe of hardware 
accessories and software - from VisiCalc" to 
space games, your LNW80 will launch you 
into a new world of computing. 

FULLY LOAQED - A full payload includes an 
on-board single and double density disk 
controller for 5 'A" and 8" single or double 
sided disk drives. RS232C communications 
port, cassette and parallel printer interfaces 
are standard features and ready to go. All 
memory is fully installed - 48K RAM, 16K 
graphics RAM and 12K ROM complete with 
Microsoft BASIC. 



QUALITY CONSTRUCTION - Instrumenta- 
tion quality construction sets LNW80 com- 
puters apart from all the rest. Integrated into 
the sleek solid steel case of the LNW80 is a 
professional 74-key expanded keyboard that 
includes a twelve key numeric keypad. 

HIGH RESOLUTION GRAPHICS & COLOR - 

The stunning 480 X 1 92 resolution gives you 
total display control - in color or black and 
white. The choice of display formats is yours; 
80, 64, 40 and 32 columns by 24 or 16 lines in - 
any combination of eight colors. 

PERFORMANCE - Lift-off with a 4MHz Z80A 
CPU for twice the performance. The LNW80 
outperforms all computers in its class. 




Our down to earth price won't send you into 



LNW Research Corp. 



21120 WAIA'l I Tustin. <;A.£2680 
(71 1) 041 H.s;,i) (71 \) 714 
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by Wayne Green 



". . . the main problem is prying 

the kids away from the computers 

long enough to do other activities." 



Computer Camps 

ne of the first computer camps, 
%,J started in Connecticut, was a roaring 
success last summer. Another is getting 
going in Vermont this coming summer. 
This seems to be an idea whose time has 
come. 

As soon as our crew here at 80 heard 
about the camp idea there was a good 
deal of enthusiasm for starting our own 
camp this summer. After all, here we are in 
one of the top vacation areas of the coun- 
try, with rivers, lakes and mountains on 
every side. Here, too, is a wealth of com- 
puters. In the Instant Software lab alone I 
found 25 different microcomputer sys- 
tems which could be used for a camp. 

Ah yes, but where do you house, feed, 
and keep campers busy with recreational 
activities in addition to immersing them in 
computer study? I found our two local col- 
leges to be most interested in the idea. 
With two-week curriculums the colleges 
could handle up to 10,000 campers over a 
summer. That's a bit boggling, even for 
someone (like me) who thinks big 
thoughts. 

Our New Hampshire lakes and moun- 
tains can handle 10,000 extra vacationers 
with no problem. Vacationing is the num- 
ber one industry of New Hampshire. If 
you've ever been here you know why— the 
beauty is almost beyond description. In 
the summer temperatures remain relative- 
ly cool, particularly at night, so it's always 
pleasant. 

Both colleges are ideally situated. One 
is on a 500-acre campus and the other on 
800 acres. Both have lakes nearby, dormi- 
tory buildings and restaurants on 
campus. 

While the camp's main purpose will be 
intensive computer study, there will be 
plenty of regular camp activities to keep 
the teenagers busy. 

If you have any children 12-17 years 
old, two weeks at our New Hampshire 
camp could be the high point of their sum- 
mer vacation. They'll be surrounded with 
computers and their fellow campmates 
will be computer fanatics. The cost of the 
two weeks is not yet firm, but it should be 
around $400 per week. 



With microcomputers proliferating, if 
you have a son or daughter of camp age, 
this is a great opportunity to let them go 
on a two-week computer learning spree. 
While most camps organize games and 
sing-alongs to keep the kids out of trou- 
ble, at a computer camp the main problem 
is prying the kids away from the compu- 
ters long enough to do other activities. 

There will be courses in the fundamen- 
tals of computers, in Basic, Assembly and 
machine language, as well as in the use of 
utilities. Campers will be able to get a cer- 
tificate of competence in the use of 25 dif- 
ferent computers. This is an opportunity 
for them to learn the differences between 
the many systems. 

Campers will, if they are interested, be 
able to work with the Instant Software 



"Anyone who can come 

up with a good 

diagnostics package 

. . . will find Instant 

Software exceptionally 

receptive." 



crew evaluating programs for possible 
publication. Programs written during the 
camp can be submitted to Instant Soft- 
ware for publication. Who knows, royal- 
ties could easily pay the cost of the camp 
many times over. 

Programs not quite up to par for Instant 
Software can be considered for publica- 
tion in any of our five monthly magazines, 
the monthly Encyclopedia, or any of the 36 
books scheduled to be published during 
1982, with the income going to the 
camper. Our editors and the Instant Soft- 
ware people know what is needed so they 
can offer guidance on what programs 
should be written. 

If you have a teenager interested in the 
Green Computer Camp, drop me a line 
and let me send you full information on it. 
The camp, not far from Peterborough, NH 



will be a blast. Note: no smoking, alcohol 
or drugs. This is a computer experience, 
not the usual teenage bash. 

There will be swimming, hiking, moun- 
tain climbing, and other physical activi- 
ties. There will also be benchmark tests of 
computers as word processors and evalu- 
ations of well known game programs. This 
is the experience of a lifetime! ■ 

A Half Million Here 

if he gravy train— you can be on it if 
i you come up with a program that 
every TRS-80 owner needs. Now what kind 
of a program would every owner want to 
buy? The idea is simple (as are so many of 
the really big money makers). 

What we all need is a set of diagnostic 
programs for the TRS-80. Every now and 
then something either goes wrong or may 
have gone wrong. When you aren't sure, a 
program to let you know that your system 
is okay would be worth its weight in gold. 
If the program could identify the more 
common problems that would be a plus. 

Anyone who can come up with a good 
diagnostics package for checking out our 
TRS-80s will find Instant Software excep- 
tionally receptive. The program should 
test the memory and report on any bad 
chips. It should check out the peripherals, 
as well as the CPU. Such a program 
should sell around a half million copies if 
it is well-written, and marketed by a pub- 
lisher with the resources to really get it 
spread around. 

If you have something along this line or 
can write such a program, you can do 
worse than contact Instant Software. ■ 



Tandy Boosts Industry 

% Hfhile many people seem to be critical 
f I of the Radio Shack folk for some of 
their service and sales policies, if you put 
these into a long-range perspective, they 
are certainly pro-microcomputing. Tandy 
marketing policies, which at first glance 
often appear to be self-serving and protec- 
tive, are in reality most beneficial to the 
entire industry. 



'-Reader Service lor lacing page ^30 
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Line Printer VII. $329 



OKIDATA 



Microline 80 

Microline 82 



EPSON MX-70 
EPSON MX-80 



$394 
$499 

$369 

$4 79 
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MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

VERBATIM DATALIFETM DISKETTES 
5'/«-inch (box of 10) $25.95 

8-inch Double-Density, $43.95 

• Payment Money Order Cashier s 
Check. Cerlilied Check Personal 
Checks require 3 weeks lo clear VISA. 
MASTERCHARGE — Add 3% 

WRITE OR CALL FOR OUR COMPLETE PRICE LIST. 

CALL (602) 458-2477 

aaaeaai All prices are mail order onlv ■■■■■ 



2185 E. FRY BLVD 
, SIERRA VISTA, AZ 85635 

TRS-80 is a trademark of Tandy Corporation. 



For instance, rather than force TRS-80 
owners to buy anything more than the 
basic unit at Radio Shack stores, Tandy 
has arranged it so over 99 percent of the 
software available for their system must 
be purchased from independent computer 
stores or mail order firms. What could be 
fairer than that? And, by keeping the 
choice of accessories and peripherals in 
Radio Shack stores to a minimum, again 
they are working to the advantage of non- 
Radio Shack stores. 

Take the matter of books— with only a 
tiny fraction of the published material 
available in their stores, they are forcing 
their customers to seek the information 
and help they need from neighboring com- 
puter stores. You want a magazine? None 
whatever are available at Radio Shack, so 
for up-to-date computer information and 
programs the Tandy owner must go to an 
independent computer store. Even this 
publication, which takes up Radio Shack 
documentation where their own docu- 

"While many people 
are critical of the Radio 
Shack folk for their 
service and sales 
policies, put into long- 
range perspective, they 
are certainly pro- 
microcomputing. " 



mentation leaves off, is only available out- 
side of Radio Shack stores. 

By keeping the Radio Shack produced 
programs to a minimum, owners have no 
choice but to look around for other 
sources. They quickly find local computer 
stores which provide the program and 
peripheral support not available from 
Radio Shack. They also discover Apple 
computers and other systems, which may 
to some extent explain the incredible in- 
crease in Apple sales in proportion to TRS 
computer sales in recent months (and this 
despite the Apple III debacle). 

The Instant Software ads often list the 
independent computer stores which carry 
programs, magazines, books, and periph- 
erals. These stores are often a valuable 
source of information as well, since they 
are in the computer business 100 percent, 
not just carrying a small shelf of com- 
puters in amongst hi-fi, auto sound, CB 
and so forth like most Radio Shacks. 
With around 6,000 stores, Radio Shack 



does have a serious problem finding 
technically expert people to sell and ser- 
vice computers. Computers are still a 
minor item for most stores, so it is often 
difficult to get the help most businessmen 
need to make relatively expensive buying 
decisions. Few Radio Shack store people 
ever see this magazine and other support- 
ing publications, or the wealth of books 
on the TRS computers, so they are under- 
standably short on information about 
their product. 

Is this all a short-sighted not-invented- 
here policy? Or is it a long range strategy 
to keep Radio Shack from getting into 
some of the problems IBM has had in the 
past? By forcing TRS-80 owners to go out- 
side Radio Shack for more and more of 
their purchases, Radio Shack certainly is 
making it difficult for any competitor or 
the government to claim they are monopo- 
listic. With only about one percent of the 
software support for the TRS-80 available 
from Radio Shack, how can any firm sue 
for restraint of trade? 

By the time you add in the computer 
sales via mail order from Radio Shack 
stores which are not factory owned, the 
outside sales of computers, programs, 
peripherals, magazines and books, you 
have a substantial part of the total poten- 
tial Tandy income going via this outside 
route. 

Will this Radio Shack policy pay off in 
the long run? Independent computer store 
owners are hoping so, for this provides 
them with a way of cashing in on the 
Radio Shack onslaught— a way which 
may eventually allow them to make much 
more than Radio Shack from every com- 
puter sale as customers discover the 
wealth of programs and information 
available outside of Radio Shack. 

Another big plus for Radio Shack is the 
change in attitude which their largess has 
brought about in many independent com- 
puter stores. When Radio Shack was 
perceived to be trying to keep all the in- 
come to themselves, the stores reacted 
with anger and harsh words. The TRS-80 
was called the Trash-80 and sneered 
upon. Today you don't hear that much. To- 
day you hear the dinging of the cash 
register as TRS-80 programs are sold by 
the bag full. You see satisfied smiles as 
customers walk out with magazines and 
books on the TRS-80. You see printers, 
memory, modems and so forth being fit- 
ted to systems by happy customers. In- 
deed, the wealth of plug-in accessories for 
the computers is beginning to rival those 
for the S-100 bus, with virtually none 
available through Radio Shack stores. 
Trash-80? No, it's the Cash-80. . .and huz- 
zahs forthe enlightened Tandy policies. ■ 
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META TECHNOLOGIE 

• 26111 Brush Avenue. Euclid Ohio 44132 

CALL TOLL FREE 1-800-321-3552 TO ORDEI 

IN OHIO, call (216) 289-7500 (COLLECT) 









1f| #fc Jl THINGS Til 
I I I I I PERS0NAL C0MPUTER 
U %Jf I BY MARK SAWUSCH 

333 pages $10.95 

333 pages, written in simple terms, of 
"what-to-do" and "how-to-do-it". Suitable 
not only for microcomputers, but for pro- 
grammable calculators as well. Includes 
program listings, formulas, a glossary of 
computer terms and more! Definitely a 
MUST BUY! 

"TRS-80™ DISK AND 
OTHER MYSTERIES" 

by Harvard C. Pennington 

132 pages written in PLAIN ENGLISH packed 
with HOW TO information with details, examples 
and in-depth explanations. Recover lost files and 
directories, remove file protection, make BASIC 
programs unlistable. How to use SUPERZAP, 
recover from DOS errors and MORE! 

TRS-80™ DISK $19.95 

"OTHER MYSTERIES" 
VOLUME II 

by James Farvour 

Call now and place your order tor this new book, 
"MICROSOFTTM BASIC DECODED & OTHER 
MYSTERIES for the TRS-80TM", from IJG, Inc. 
A primer for cassette and disk BASIC on the 
TRS-80TM, the information provided applies to 
similar MICROSOFTTM BASIC interpreters. 

MICROSOFTTM BASIC DECODED . $24.95 

'OTHER MYSTERIES" 
VOLUME III 

by Dennis Kitsz 

THE CUSTOM TRS-80™ $28.95 

CALL FOR AVAILABILITY 



"OTHER MYSTERIES" 
VOLUME IV 

"BASIC FASTER 



If you program in BASIC, you want this book! 
Time-tested and proven, the techniques and 
routines can be used in thousands of ways to 
make your programs smaller, faster, and look 
truly professional. 
BASIC FASTER & BETTER $24.95 




MX-80, MX-80FT, MX-100 



Single Sided, Soft-Sectored 5'/4-inch, 

PARAGON MAGNETICS™ 

PLAIN JANETM 

ETTES 



PRINTERS 



NEW LOWER PRICES 

EXTRA-LONG 
10 ft. RIB 



y $19 



$24 



CONNECTS EPSON PRINTER 
& TRS-80 MICROCOMPUTER 

40-TRACK, SINGLE/DOUBLE- 
DENSITY, FAST ACCESS, 
5 1 /4-inchTANDON 




complete 

FOR MODEL I and MODEL III 

Includes Case, Power Supply 
and External Drive Connector 



DISK DRIVE 

EXT! 




TRS-80 is a trademark of the 

Radio Shack Division of Tandy 

Corporation DATALIFE is a 

trademark of VERBATIM PLAIN 

JANE, PARAGON MAGNETICS. 

are trademarks of MTC 
r 1981 by Meta Technologies 
Corporation 




for VISTA, MICROPOLIS, 
MTI, PERTEC, SHUGART, 
PERCOM & OTHERS 



95 



box of 10 



These are factory fresh, absolutely first 
quality (no seconds!) mini-floppies. They are 
complete with envelopes, labels and write- 
protect tabs in a shrink-wrapped box. 

Box of 10 Diskettes $19.95 

PARAGON 

magnetics™ 

Introducing MTC's premium generic 
diskette. Single-Sided, Soft-Sectored, 
DOUBLE-DENSITY, S'/.-inch diskettes with 
reinforcing HUB-RINGS. Individually 100% 
ERROR-FREE certified. Invest in GOLD! 
PARAGON MAGNETICS GOLD $23.95 



VERBATIM'S PREMIUM DISKETTES 



DATALIFE 



Seven data-shielding improvements mean 
greater durability and longer data life. 
These individually, 100% error-free cer- 
tified diskettes feature thicker oxide 
coating, longer-lasting lubricant, improved 
liner, superior polishing and more! Meets 
or exceeds IBM, Shugart, ANSI, ECMA 
and ISO standards. 
VERBATIM DATALIFETM DISKETTES 
5'/4-inch(boxof 10) 

MD525-01 $26.95 

8-inch FLOPPIES 

Double-Density, FD34-8000 . $43.95 



'RINGS' & 



HUB RING KIT for SW disks $10.95 

HUB RING KIT for 8" disks $12.95 

REFILLS (50 Hub Rings) $ 5.95 

CLEANING KIT for 5% "drives $24.95 

5 Vi-inch diskette case $3.50 

8-inch diskette case $3.95 

5 'A -inch File Box for 

50 diskettes $24.95 

8-inch File Box for 

50 diskettes $29.95 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged. 



PRICES IN EFFECT 

March 1,1982 THRU 

March 31, 1982 

Prices, Specifications, 
and Offerings subject to 
change without notice. .. 

8203 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• COD. 



• Add $3.00 for shipping 
& handling 
•$3.00 EXTRA for COD. 

•Ohio residents add 6.5% 
sales tax. 
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the editors look 



issues 



udging from the response we've had 

■ from our readers in the past, computer 
graphics holds a fascination all its own. It's 
reckoned that 95 percent of human sensory 
input to the brain comes in through the 
eyes, providing a plausible explanation for 
why so many people derive so much plea- 
sure from graphics displayed on a video 
monitor. Not that the video monitor has 
much to do with it; after all, television sta- 
tions use the same output device, but in 
nearly all cases (and on nearly all channels), 
the computer can be more useful and enter- 
taining. 

Computer graphics are being used to cre- 
ate some of the most stunning visual ef- 
fects you're ever likely to see. These visual 
effects range from cross-sections of ma- 
chinery such as the space shuttle, to a sim- 
ulated journey through the Star Gate in the 
movie "2001, A Space Odyssey." The land- 
ing sequence in which the spaceship 
Nostromo lands on the surface of an un- 
known planet during the movie 'The Alien" 
is another fine example of computer-gener- 
ated graphics. 

The TRS-80 Color Computer users 
amongst us are lucky— we get a hands-on 
feel for these exciting new graphics techni- 
ques to a greater degree than other TRS-80 
users. Some will argue that computer-aided 
graphics is not so new, but compared with 
the art of hand-drawn graphics, it has only 
just arrived. We have eight colors and a 
matrix of up to 256 by 192 pixels in varying 
combinations at our disposal. That's a total 
of 49,152 video dots, enough for anyone to 
get their feet wet in the world of computer 
graphics, either to design a new piece of 
machinery or create a work of art. 

In this issue we'll be presenting plenty of 
graphics-related topics. Be sure to look at 
"The Editor's Choice," an offering of color 
graphics from our editors which are sure to 
entertain you for many hours, and perhaps 
inspire you to new heights of creativity. 
"Conversion Diversion" by Roy Oreen puts 
Bob Boothe's wonderful Mod I graphics on 
the Color Computer. And for those of you 
who haven't yet taken the plunge into color, 



we have several black-and-white graphics 
offerings, most notably "Mirror Imagining'.' 
by the master himself, Bob Boothe. Anyone 
with any inclination towards graphics and 
programming should find plenty of active 
inspiration. 

One of the more interesting aspects of 
any graphic art is the technique an artist 
uses to create an effect by overcoming the 
limitations of the medium he's using. For in- 
stance, there's no way a painter can make 
light shine forth from a canvas (short of us- 
ing luminous paint), but glorious painting 
techniques have evolved from surmounting 
this problem. Similarly, computer graphics 
has inherent limitations, such as a two- 
dimensional static display comprised of a 
grid of dots or lines. Yet, we see successful 
attempts to represent three-dimensional 
images which move in time and space. 

Some of these attempts are so astoun- 
ding that even the most mundane graphics 
subjects take on a strange new aesthetic 
appeal. A three-dimensional model of a 
crystalline molecular structure becomes a 
fascinating visual experience as it revolves 
before your eyes. An unbuilt city, still on the 
drawing board or yet in the mind of its de- 
signer, appears as if truly on the monitor in 
front of you. Buildings and skyscrapers 
dance before your eyes, as nothing less 
than a computer program analyzes and dis- 
plays the scene from your imaginary point 
of view. These are not just flights of fan- 
cy—they exist now in the field of computer- 
aided design as implemented on some mini- 
computers. The challenge for many will be 
to achieve similar results with micro- 
computers. 

Graphics are not only being used in the 
kind of modeling situations I've just de- 
scribed, but in purely artistic situations 
where it's a case of art for art's sake. We 
have a few examples in this issue, but don't 
just read the articles. Try the examples and 
see for yourself how your computer can be 
a futuristic art gallery. This is where the 
field offers exciting possibilities. New tech- 
niques are being uncovered in the synthesis 
of video art; for instance, using a combina- 

Continued on page 387 



The left bracket, [, replaces the up arrow used by Radio Shack to indicate exponentiation on our printouts. When 

entering programs published in 80 Microcomputing, you should make this change. 

80 formats its program listings to run 64-characters wide, the way they look on your video screen. This accounts tor 
the occasional wrap-around you will notice in our program listings. Don't let it throw you, particularly when entering 

assembly listings 



. Article submissions from our readers are welcomed and encouraged. Inquiries should be addressed to: Submis- 
sions Editor, 80 Pine Street, Peterborough, NH 03458. Include a SASE for a copy of our writers' guidelines. Pay- 
ment for accepted articles is made prior to publication, at a rate of approximately $50 per printed page; all rights 
are purchased. Authors of reviews should contact the Review Editor, 80 Pine Street, Peterborough, NH 03458. 
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MTC AIDS-MI 



TM 



MODELS I & III . . .$69.95 MODEL II . . .$99.95 

Introducing the latest addition to MTC's family of data management systems, AIDS-MI. NO 
PROGRAMMING, easy to use. COMPLETE PACKAGE including demonstration application, 
documentation and MAPS-III (see below). 

• Up to 20 USER-DEFINED FIELDS of either numeric- or character-type. 

• CHARACTER type fields may be any length (total: up to 254 characters). 

• NUMERIC-type fields feature automatic formatting, rounding, decimal alignment and 
validation. 

• Full feature EDITING when adding or changing records: 

- ENTER FIELD (can't type-in more characters than specified). 

- BACKSPACE (delete last character typed). - RIGHT-JUSTIFY FIELD contents. 

- DELETE FIELD, contents. - SKIP FIELD (to next or previous field) 

- RESTORE FIELD contents. ,. - SKIP RECORD (to next or previous record). 

• SORTING of records is MACHINE CODE assisted. 

200 RECORDS (40 characters) in about 5 SECONDS. 

ANY COMBINATION of fields (including numerics) with each field in ascending or 

descending order. 

• SELECTION of records for Loading, Updating. Deleting. Printing and Saving is 
MACHINE CODE assisted. I 

- Specify up to 4 CRITERIA, each using one of 6 RELATIONAL COMPARISONS. 

- LOAD or SAVE selected records using MULTIPLE FILES. 

- Example: Select records representing those people who live in the state of Col- 

orado, but not in the city of Denver, whose last names begin with "F" 
and whose incomes exceed $9000.00. 

- Example: Select records representing those sales made to XYZ COMPANY that 

exceed $25.00, between the dates 03/15 and 04/10. 

MAPS-III (MTC AIDS PRINT SUBSYSTEM), included at no charge, has the following features: 

• Full AIDS-III SELECTION capabilities. 

• Prints user specified fields DOWN THE PAGE. 

• Prints user-specified fields in titled, columnar REPORT FORMAT, automatically 
generating column headings, paging and (optionally) indentation. 

• Can create a single report from MULTIPLE FILES. 

• Prints user-defined formats for CUSTOM LABELS, custom forms, etc. 

BELOW ARE TESTIMONIALS from owners of AIDS systems. These are absolutely authentic 
statements and are typical of the comments we receive. 

"This program will do more for my business than all the other programs I 
have, combined." 

David Wareham, Vice President (EDP), National Hospital and Health Care Services Inc. 

"We have 32 different Data Base Management packages for the TRS-80. AIDS-III is easily 
the best. It also makes it easier for us to step up to our Model II since the package is 

available for both computers." . , _... ,. n ., . „ ... . _ 

Jack Bilmski, President, 80 Microcomputer Services 

"Your AIDS program is far and away the finest information management system that I've 
ever seen. I am currently using it to maintain a clear picture of the demographic data on all 
the kids in our residential treatment program and it is working for me superbly." 

Frank Boehm, Director. Front Door Residential Treatment Program 






AIDS OWNERS! 
WE HAVE \ 
YOU'VE S 
WAITING 

MTC CALCS-IV™, that is. 
> More Computations 

• Save Report Formats on Disk 

• Faster, and more! 
MTC CALCS-IV™ $39.95 

For Models I & III $39.95 

For Model II $59.95 



MTC AIDS MERGE-III™ 

This subsystem will combine up to 14 AIDS- 
created data files into a single, large file. An op- 
tional purge capability removes duplicate entries 
while performing the merge operation (can even 
be used to eliminate duplicates in a single file). 
Machine-code assisted for high-speed perfor- 
mance, MERGE-IIITM properly handles files sorted 
by any combination of fields, including numerics, 
with each field in ascending or descending order. 

MTC AIDS MERGE-III™ $19.95 

For Models I & III $19.95 

For Model II $29.95 




TM 



MTCCALCS-III™ 

Models I & III $24.95 

Modelll $39.95 

MTC's most popular AIDS subsystem. Use 
for report generation involving basic 
manipulation of numeric data. Features are: 

• Columnar Headings 

• Optional Indentation 

• User-specified Columnar Totals 

• Columnar values computed using con- 
stants and/or column values 

• Balance forward calculations 

• Use for accounting, inventory, financial 
and other numeric-based systems. 



THE COMPLETE 

MTC AIDS-III 

PACKAGE 



Includes MTC AIDS-III™ 
CALCS-III™ and MERGE-III™ 

A comprehensive system 
at a competitive price! 

MODELI&III $99.95 

MODEL II $149.95 

Add $25 for CALCS-IV™ 



TRS-80 is a trademark of the 

Radio Shack Division of Tandy 

Corporation. DATALIFE is a 

trademark of VERBATIM. PLAIN 

JANE, AIDS-I, AIDS-III. CALCS-III, 

CALCS-IV, MERGE-III are 

trademarks of MTC. 
1981 by Meta Technologies 
Corporation 










MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged. 



PRICES IN EFFECT 
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• CHECKS 
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•Ohio residents add 6.5% 
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INPUT 



"1/1/e all know the golden rule 

with computers is, 'make backups, 

backups and more backups.' " 



Winged Samurai 



Thanks for the favorable review of our 
game Winged Samurai (80 Reviews, 
August 1981). The review leaves the im- 
pression, however, that Winged Samurai 
is only for the Model I. Since July all of our 
Squadron Leader series games have been 
compatible with both TRS-80 Models I and 
III, as well as eight other computer 
models. 

The response to the review has been 
very gratifying. It is clear that 80 
Microcomputing has a large influence in 
the marketplace. We will certainly keep 
you informed of any new releases. 

David A. Wesely 

Discovery Games 

Saint Paul, MN 



Accel2 vs. Microsoft 
Compiler 

In his review on page 38 of the 
November 1981 issue of 80 Microcom- 
puting, Mr. Douglass mentioned a prob- 
lem of the execution of Read statements 
when using Accel2-compiled programs. 
The solution is to use the entire Accel2 
compiler as the run time package. 

Also, it is necessary to compile and run 
a dummy Basic program before trying to 
run the compiled program (I use the Basic 
program to set the USR addresses for 
this). This information was in the 
documentation I received with the com- 
piler. 

I would like to make four additional 
comments on the Accel2 compiler as 
compared to the Microsoft compiler: 

Accel2 is much more difficult to use. 
For a non-trivial program (current version 
of my Word Processor, 80 Microcom- 
puting, May 1980), Microsoft required a 
few minor changes, adding a half-dozen 
lines to the program. Accel2 required com- 
plete rewriting and restructuring, adding 
over a hundred lines to the program. In ad- 
dition Accel2 will hang or give mean- 
ingless error messages (for example, syn- 
tax errors in non-existent line) if changes 



from normal Basic are not made. 

Accel2 expands a program more than 
does Microsoft. My Word Processor held 
420 text lines as a Basic program on a 48K 
disk system. This was reduced to 155 lines 
with Microsoft, and to 130 lines with Ac- 
cel2. 

Accel2 does not speed up a program as 
much. It compiles about 30 Basic 
statements, leaving about 50 plus all disk 
statements uncompiled. It does not speed 
up the time-consuming string garbage 
collection pauses, as does the Microsoft 
compiler. 

Accel2 compiles slowly. My Word Pro- 
cessor required about 30 minutes, com- 
pared to about 10 minutes with Microsoft. 
On the plus side, all compiling is done in 
memory, without the disk snuffling need- 
ed by Microsoft. 

Accel2 does have two advantages: Its 
compiled programs will run under the im- 
proved disk operating systems (such as 
NEWDOS80) if they are compiled under 
that system, while Microsoft requires 
TRSDOS for proper disk file handling. 
Also, Accel2 does not have the Microsoft 
royalty problem. 

In my opinion, for compiled programs 
for your own use, Microsoft is generally 
superior. 

Delmer D. Hinrichs 
Washougal, WA 



Snapp's XBasic 



I read with great interest the review of 
Snapp's XBasic by Mr. Rick Lederman. Mr. 
Lederman missed one vital aspect of 
XBasic (as well as other Snapp Programs) 
that I believe must be pointed out to any 
prospective buyer. The original disk (call- 
ed the distribution disk cannot be backed 
up\ If you should destroy this disk, you 
need to go to Snapp for a new distribution 
disk to implement Snapp on any new 
disks. 

Currently, I believe, the cost for a new 
distribution disk is $10. But, after spend- 
ing $200, why should you spend an addi- 
tional $10, or even 1 ' for that matter? What 
happens to the buyer who destroys the 
original disk after (if) Snapp goes out of 



business? If Snapp stays in business, how 
much will a replacement cost next year— 
$15? $20 the year after? What if Snapp de- 
cides not to support your "old" program? 
We all know the golden rule with com- 
puters is, "Make backups, backups and 
more backups." Well folks, with Snapp, 
you cannot make any! While Snapp has 
some very good programs, I will not buy 
any I cannot backup. 

Barry L Patterson 
Farmington, NY 



Snapp Responds 



/ fully agree that a software purchaser 
should obtain unrestricted use of the 
product. 

There are two distinct types of Snapp 
Basic disks: distribution masters and 
working copies. Distribution masters can 
be used only to create working copies, 
and working copies can only be created 
from a distribution master. Given that a 
distribution master may be used to create 
an unlimited number of working copies, 
we feel that our customers do obtain un- 
restricted use of our products. 

If a customer has a serious concern 
about our ability or willingness to provide 
him with a replacement distribution mas- 
ter, we normally suggest that he make a 
large quantity of working copies imme- 
diately upon receipt of the distribution 
master. 



Robert F. Snapp, 

President 

Snapp Inc. 

Cincinnati, OH 



Centronics 739 



Michael Vose's review of the Centron- 
ics 739 printer (80 Microcomputing, De- 
cember 1981) missed some items which 
make this printer incompatible with its 
earlier version, the Centronics 737 (Radio 
Shack LPIV). The differences are minor 

Continued on page 16 
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CALL TOLL FREE 1 -800-321 3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



C AIDS CALCULATION SUBSYSTEM! 1 1 

MODEL I . . .$24.95 MODEL II . . .$39.95 



TM 



User-specmed -customer activity report 
page title 

p . -CUSTOMER DATE QTY SALE AMT 

Headings 



PAGE 1- 



SALES TAX GROSS SALES $/UNIT 



ACME 



Optional 
Indentation 



Columnar subtotals 

generated when 

there is a change 

in a user-specified 

column. 



User-specified 
Columnar Totals 




XYZCO 



3/10 

3/20 

4/10 
4/15 
4/20 



600 



150 
200 
50 
300 
400 
700 



675.00 

1325.00 
24 75.00 
3625.00 
2600.00 



10700.00 

1345.00 

674.00 
1295.00 
24 35.00 

9 35.00 
3585.00 



10269.00 

1325.00 

685.00 
1940.00 



3950.00 

995.00 

1345.00 

355.00 

1975.00 
2520.00 
4175.00 



37.13 
72.88 

136. 13 
199.38 
143.00 



588.50 

73.9! 

37.07 

71.23 
133.93 

51 .43 
197.18 



564.80 

72.88 
37.68 

106.70 



217.25 

54.73 

73.98 

19.53 
108.63 
133.60 
229.63 



0.00- 

712.1 3 

2110. 00 

47 21 . 13 

3545.50 

11288.50 



12707.48 

13418.55 
14784.77 
17353.70 
18340.12 
22122.30 



7.12 
6.99 
6.5 3 
6.37 
6.86 



7.05 
7.11 
6.83 
6.42 
6.58 
6.30 



23520.17 6.99 
24242.85 7.23 
26289.55v. 6.82 



Automatic Page 
Numbering 



. User-specified 
initial balance forward 



Columnar values 
computed using 
constants and/or 
column values 




Balance forward 
calculations (Ex: Gross 
sales equals previous 
gross sales + sale 
amount + sales tax) 



1800 



11365.00 



625.08 



•5750 



36284.00 



1995.62 



Compare AIDS-IN™/CALCS-III™ with any other data management package under $100! 



,TM 



Others make claims, CALCS-III m delivers with user-specified: 
Fields in any order, with optional indentation • Columnar subtotals and totals 

Computations using field values and constants • Full AIDS-III selection of records to be printed 

Use for accounting, inventory, financial and other numeric-based information packages. 



CALCS-III™ REQUIRES THE PURCHASE OF AIDS- 



TRS-80 is a trademark of the 

Radio Shack Division of Tandy 

Corporation. DATALIFE is a 

trademark of VERBATIM. PLAIN 

JANE, AIDS-I, AIDS-III, CALCS-III. 

CALCS-IV. MERGE-III are 

trademarks of MTC. 
1981 by Meta Technologies 
Corporation 
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Circuit Help 



I do not understand part of the cir- 
cuit drawing accompanying Ian Sin- 
clair's article "Hard and Soft Print- 
ware" (80 Microcomputing, October 
1981). His use of the two 680 
microfarad, 25V capacitors confuses 
me. Does the 741 op amp increase 
voltage or do I need to include a 
transformer in this circuit? I am not an 
electronics technician, but I can follow 
directions. Why a 25V 1 Amp rectifier in 
a circuit power source of .86V? 

Roger W. Wincek 



Ian Sinclair Responds 

The smoothing capacitors can be 
any value around 680 pF, because the 
value is not critical. They should be 
rated at 25V, and connected the cor- 
rect way round, however. The reason 
for using a 25V rectifier is that this cir- 
cuit obtains its operating voltage from 
the TRS-80 power lines, which the rec- 
tifier rectifies. Mr. Wincek is confusing 
signal voltage input with supply volt- 
age input. 

Incidentally, the software is de- 
signed for printers which can be 
switched to provide line-feed for a car- 
riage return signal. I believe that a few 
printers of older design do not have 
this feature. I cannot, unfortunately 
give a fix for that problem, since I no 
longer have a TRS-80. 

Ian Sinclair 

89 Alexandra Road 

Sible Hedingham 

Halstead, Essex 

England C09 3NP 



Sporting TRS-80 

I have been helping with a sporting 
event and my biggest problem has 
been one of entering the times and 
printing the results. 

I am looking for a program, like 
VisiCalc, into which I can pre-enter the 



competitors' names, numbers and 
clubs. I could then enter the time 
against the name and step down to the 
next competitor with the cursor. 

The next step would be to sort the 
times into performance order, i.e. with 
the fastest on top. Competitors who 
registered but did not compete would 
have a zero time. Since there is not suf- 
ficient time to delete the entry a heavy 
character would be needed to drop the 
non-competitors to the bottom of the 
list. Alternately there should be a way 
for the operator to select a range for 
the printout. To print the results effi- 
ciently it would be ideal to load the 
results into a word processor and to 
format the files as in typesetting. 

Most commercial data bases re- 
quire a large number of keystrokes to 
alter one field in a record and this 
takes time. The ones that allow the 
files to be put into word processors are 
especially slow for single field entries. 

Microfiles are convenient but they 
do not handle range or selected 
records nor will they work with a word 
processor. Can any sports enthusiast 
help? 

Derek Trayler 

88 Grosvenor Drive 

Hornchurch 

Essex RM 11 1PW 

England 



TRS-80 
Answering Machine 

I am looking for information regard- 
ing using my TRS-80 as a TTY terminal 
and answering machine. I am pro- 
foundly hard of hearing, and like other 
hearing-impaired and deaf people, use 
a TTY for telephone communications. 

In California, telephone companies 
must provide free TTY devices to all 
qualifying individuals, and I am able to 
take advantage of this law. However, 
answering machines for TTY are very 
expensive, and since I already have a 
TRS-80, I would like to use it to serve 
these functions. 

Pacific Telephone has been less 



'Answering machines 

for TTY are 

very expensive." 



than helpful when I have inquired 
about interfacing my computer to TTY. 
They told me that information such as 
baud rate, modem frequencies and the 
Baudot coding was proprietary infor- 
mation! And so far, I have not found 
the answer to my problem in the mi- 
crocomputer magazines. 

According to the U.S. Government, 
there are nearly 20 million people in 
this country with hearing disabilities, 
of which only two million are consid- 
ered "deaf." However, even people 
with moderate hearing losses have dif- 
ficulty with the telephone, and the 
market for a device or program which 
allows the use of a personal computer 
as a TTY device would appear to be a 
large one. 

By the way, my TRS-80 is 48K, with 
two disks and printer. I am a profes- 
sional computer systems consultant 
with over 22 years in the data process- 
ing business, so I could write the 
necessary programs, if I could get the 
basic information. But like many other 
programmers, I am not interested in re- 
inventing the wheel; if there are pro- 
ducts available that already do the job, 
I would rather buy what I need "ready- 
made." 

Dick Burkhalter 

Diverse Developments 

2203 West Olive Avenue 

Burbank, CA 91506 



Pure CHR$ 



i do not have a patch for Rolf 
Roethlisberger ("Model II Tabs", 80 
Aid, December 1981), and others who 
cannot send CHR$(9) to their printers 
through thejr Model lis, however the 
solution may have been given to me by 
David L Miller, Radio Shack Marketing 



Continued on page 16 
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META TECHNOLOGIES 

26111 Brush Avenue, Euclid Ohio 44132 
CALL TOLL FREE 1-800-321-3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



Let your TRS-80™ Teach You 

ASSEMBLY 
LANGUAGE 

REMSOFT's unique package, "INTRODUCTION 
TO TRS-80* ASSEMBLY PROGRAMMING" in- 
cludes ten 45-minute lessons on audio cassettes, a 
display program for each lesson providing illustra- 
tion & reinforcement, and a text book on TRS-80® 
Assembly Language Programming. Includes use- 
ful routines to access keyboard, video, printer and 
ROM. Requires 16K - Level II. Model I. 

REMASSEM-1 $69.95 

FOR DISK SYSTEMS $74.95 



Let Your TRS-80™ Teach You 

ASSEMBLY LANGUAGE 
DISK I/O TECHNIQUES 

REMSOFT does it again! REMDISK-1 is a concise, 
capsulated supplement to REMASSEM-1. Package 
consists of two 45-minute lessons on audio casset- 
tes, and display programs providing illustration 
and reinforcement. Provides specific track and 
sector I/O techniques, and sequential and random 
file access methods and routines. 




95 



Apparat's long-awaited successor to NEWDOS+ is here! This is not an enhanced ver- 
sion of NEWDOS, but a completely new product. Simplified DOS commands can be in- 
stantly executed from BASIC, even within a program, without disturbing the resident 
code. System options, such as password protection, number and type of disk drives, 
BREAK key enable/disable and lowercase modification recognition, can be quickly and 
easily changed. Five new random-access file types allow record lengths of up to 4096 
bytes, and no FIELDing! A powerful CHAIN facility allows keyboard INPUTs to be read 
from a disk file. An improved RENUMBER facility permits groups of statements to be 
relocated within program code. Diskettes may even be designated as RUN-ONLY! 
Features all NEWDOS + utilities (SUPERZAP 3.0, etc.) and much more! One MTC 
technical staff member said having NEWDOS/80 is "better than sex" (you'll have to 
judge for yourself!). 

MODEL III VERSION 

Has all the features of the Model I version plus enhancements. Allows any mix of 
single- or dual-sided 40- or 80-track disk drives. Most BASIC and many machine 
code programs written for the Model I will run without modification. Includes a 
utility for converting Model I single density to Model III double density. 



REMDISK-1 



$29.95 NEWDOS/80 #SPECIAL# 

CALL REGARDING OUR UPGRADE PRICING 



$139.95 




Michael Shrayer's 



Model I and Model III 

An expanded version of the critically ac- 
claimed original word processing system! 
Includes all features of Version I plus many 
new extensions. Runs under most disk 
operating systems, has improved video 
text handling, loads any ASCII file for 
editing (including BASIC files), single sheet 
mode for printing on letterhead and more! 
Simple to use, features 2-key commands. 
An incredible package at an incredible 
price! 

SPECIFY MODEL I OR III 

Disk Version $79.95 

Tape Version $69.95 

CALL FOR AVAILABILITY 






Let your TRS-80™ Test Itself With 

THE FLOPPY DOCTOR & 
MEMORY DIAGNOSTIC 

by David Stambaugh 

A complete checkup for your MODEL I or 
MODEL III. THE FLOPPY DOCTOR-Version 3 
completely checks every sector of single or 
double density 35-, 40-, 77-, or 80-track disk 
drives. Tests motor speed, head positioning, 
controller functions, status bits and provides 
complete error logging. THE MEMORY 
DIAGNOSTIC checks for proper write/read, 
refresh, executability and exclusivity of all ad- 
dress locations. Includes both diagnostics and 
complete instruction manual. 

SYSTEM DIAGNOSTICS $24.95 
For MODEL III $29.95 



MORE 

PRODUCTS 



TRS-80 is a trademark of the 

Radio Shack Division of Tandy 

Corporation. DATALIFE is a 

trademark of VERBATIM. PLAIN 

JANE, AIDS-I, AIDS-MI, CALCS-III, 

CALCS-IV, MERGE-III are 

trademarks of MTC. 

; 1981 by Meta Technologies 

Corporation 



i 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged. 



fi 



PRICES IN EFFECT 

March 1,1982 THRU 

March 31, 1982 

Prices, Specifications, 
and Offerings subject to 
change without notice 

8203 



k 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• COD. 



T 



Add $3.00 for shipping 
& handling 
•$3.00 EXTRA for COD. 

•Ohio residents add 6.5% 
sales tax. 



ufc 
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Continued from page 14 

Representative, Paramus, NJ. 

Use CHR$(137) rather than CHR$(9). 
By adding 128 to 9, 10, 13, or any other 
CHR$ value Model II inhibits or 
translates, I am able to cause my 
Diablo 1640-RO to respond as though it 
had received the original value. This 
solution may not be effective for all 
printers, especially those which nor- 
mally use values greater than 128. 

Dale A. Swenson 

2264 East 4000 South 

Salt Lake City, UT 84117 

Card Reader Wanted 

I am looking for a card or optical 
reader that allows me to enter data in- 
to my TRS-80 Model III. Which com- 
panies make such a product? 

Fred E. Singer 

220 N.W. Eighth Street 

Evansville, IN 47734 

Bulletin Board 
for Model II 

I am using a Radio Shack Model II, 
and would like to run a bulletin board, 
however, I cannot find a bulletin board 
program written for the Model II. I 
would appreciate hearing from anyone 
who is running a bulletin board system 
with a Model II or who could give me a 
lead on getting a program. 

Roger Schechter, Esq. 

54 Park Avenue A10 

Verona, NJ 07044 

Quebec Users Group 

I wish to contact all TRS-80 owners 
(any models) living in the Montreal area 
who would be interested in forming a 
users group. Please contact me at the 
following address. 

Alain Poisson 

4250 Des Roses, C.P.1050 

Lachenaie, Quebec 

Canada J6W 3T8 



Continued from page 12 

but vital and Centronics should be severe- 
ly chastised for them. 

The deeper cover means that the tear- 
bar is eight lines ahead of the 737 posi- 
tion. Before each page printing command, 
you must add a statement such as: 

FOR N = 1 to 8: LPRINTCHR$(27) CHR$(138);:NEXT 

This will back up the paper eight lines in 
the printer. 

Note that the manuals of both 737 and 
739 are in error as to the codes required 
from a TRS-80 for forward and backward 
spacing. 

There is a difference of one line in the 
line counting required. For a 66 line page, 
the TRS-80 Models I and III are correct for 
the 737. For the 739 it is necessary to 
POKE 16424,66 for accurate paging 
(67— the default value of the TRS-80— is 
correct for the 737). With this POKE in 
place, the 739 will page correctly on 
receipt of LPRINTCHR$(12) (no semicolon 
required), and will advance one line on 
LPRINTCHR$(11) (with or without semi- 
colon). The 737 with its default POKE of 67 
will page correctly on LPRINTCHR$(11); 
(with semicolon), or LPRINTCHR$(12) 
(with or without semicolon). However, the 
737 will be one line too many on LPRINT- 
CHR$(11) alone! If in doubt, change your 
programs to use only LPRINTCHR$(12) 
and use the right POKE. (Don't forget to 
change the POKE if double sized printing 
is used). 

PEEK (14312) returns a number de- 
pending on the printer status. Four 
numbers are returned for each printer, and 
each printer returns the same numbers. It 
is therefore not possible by software to 
determine which printer is connected, and 
to adjust the line and page counts ac- 
cordingly. The numbers returned are three 
higher in each case for a Model I TRS-80 
than for a Model III (see Table 1). Watch 
out for the different numbers returned 
from initial and subsequent Local/On Line 
switches! 

Considering that the 739 contains a 
selector switch for various accent sets, it 
is a pity that Centronics did not see fit to 
use one position to make the 739 look like 
a 737. 

Incidentally, the Centronics 739 is also 
now available with a two-color print head. 





Model I Model III 


AC power off 


239 


236 


Power on— 1st time— LOCAL 


159 


156 


ON LINE 


31 


28 


2nd time— LOCAL 


63 


60 


ON LINE 


31 


28 


Table 1. 







Ribbon life with one color is about equal 
to one box of fanfold paper; it will be less 
with the two-color head. 

M. Barlow 

Supervising Engineer 

Studio Systems Department, 

Engineering Headquarters 

Canadian Broadcasting Corp. 

Montreal, Quebec 

Profile Precautions 

My October issue of 80 Microcomput- 
ing arrived a few days ago. As usual, I 
dropped everything else I was doing to 
look through the magazine as quickly as 
the mailman had delivered it. As I glanced 
through it the heading "The greatest pro- 
gram Radio Shack has released" jumped 
out at me. When I saw that the program 
being reviewed which had received such a 
glowing description was "Profile" my first 
reaction was disbelief. I was astounded 
when I saw that seven pages had been 



"/ have only returned 

one program in utter 

disgust— Profile. " 



devoted to a review of the program. I have 
purchased many programs since becom- 
ing involved with the TRS-80 Model I sever- 
al years ago. In all that time I have only 
returned one program in utter disgust. The 
program? Profile. 

Mr. O'Brien is to be commended on a 
very thorough description of the program 
in terms of what the program purports to 
accomplish. I am certain that no press 
agent for Radio Shack could have done a 
better job. It is not really what Mr. O'Brien 
said that I take issue with, it is what he did 
not say. In my opinion his review was 
grossly incomplete in that he did not refer- 
ence several items which would be of 
great interest and importance to anyone 
who contemplates purchasing Profile. 
These items include: 

• The sort program, although machine 
language, is painfully slow. It took me well 
over two hours to sort about 400 records. I 
am not a knowledgeable programmer, but 
the sort program appears to read records, 
compare them, and then write them right 
back to disk. One can only speculate as to 
the ultimate effect such heavy usage 
would have on a disk system. Radio Shack 
says in their Bulletin 1562-1 dated June 10, 

Continued on page 23 
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HflNNON 
GNCTICS 

MICR 



fi 



To Order: 

Toll Free 1-800-525-9158 

1650 South Laredo Court • Aurora, Colorado 80017 

WE OFFER ATTRACTIVE DISCOUNTS TO DEALERS IN SMALL QUANTITIES 




Soft-Sectored 5%" Double Density, Single Sided, Mini Disks, Shrink wrapped boxes of 10 with Jackets, Labels and Tabs. 

5 2 Boxes (JJQQ Qf\ 

each for ^)Ov2.v/vJ 



c-\j> * ssyj 1 each for 

THESE DISKETTES ARE FULLY GUARANTEED FOR ONE YEAR AGAINST DEFECTS. RETURN ANY 
DISKETTE GOOD, BAD OR OTHERWISE AND WE WILL REPLACE IT FREE WITH NO QUESTIONS 
ASKED. YES - WE MEAN IT! 

PLASTIC LIBRARY CASE 5%" for 10 diskettes. . . $2.95 
FLIPSORT DISKETTE FILE BOX 5%" for 50 diskettes. . $19.95 with 50 SHANNON MAGNCTKS disks. . .$109.95 



VERFSN DISK DRIVE HEAD CLEANERS 

These drive cleaning diskettes assure proper operation of all types of 5Va" disk drives by removing dirt 
and debris which can cause read/write errors and lost data. Designed for use with double or single 
density dual or single headed drives of any track count. The kits contain two cleaning disks and 
instructions in a reusable hard plastic diskette box. You can use it in justseconds to insure the reliability 



of your system. 



T $24.95Sr Two kits $39.96 



With or Without cabinet and power supply 



MASTERCARD 
AND VISA 
WELCOME 



We also accept 
COD • CHECKS 
MONEY ORDERS 



ORDERS IN U.S.A. SHIPPED U.P.S. FREE. 
Colorado residents add 6 1 /2% sales tax. 



Product Description 

2 drive disc drive cable 

3 drive disc drive cable 

4 drive disc drive cable 



Unit Price 

Quantity 10 

$19.29 
26.00 
28.96 



Custom Cables Available minimum order 10 
8" Extender Cable (Disk Drive) $9.98 



6 ft. Printer Cable 
10 Ft. Printer Cable 



$15.40 
17.79 



Unit Price 

Quantity 100 

$17.54 
23.50 
26.33 

Call for quote 

$8.98 

$14.00 
16.17 



1 Drive Cabinet w/power supply $51.20 $42.00 

2 Drive Cabinet w/power supply 57.82 48.00 

— IBM type Horizontal Design — 
— Does not require extender cable — 

Tandon 40 track Double Density Bare drive $195.00 each 
Minimum Quantity 10 




diskettes $190.00 

for 10 boxes of 10 

5Va" Double Density, Soft Sectored, 
Single Sided 
WITH HUB RINGS, 

Individually 100% certified 



LNW Research 

Computers 

8" or 5Va" Drives 

Double or Single Density 

Totally TRS-80 Compatible 

High Speed Processor 

Dealer pricing available 

Now available 

125K CP/M - Team computer 

Compatible with TRS-80 Model I 

and CP/M 



U.P.S. Shipping - $5.00 per order shipping and handling/wholesale orders only, minimum 10 pieces 




601 Lipan St. Denver, CO 80204 
303-892-6986 



Manufacturers and Wholesale Distributors 
of Quality Computer Products 



./ -' .- 



SO INPUT 




Sound Generator 



In my article "Polyphonic Sound 
Synthesis" (80 Microcomputing, June 
1981), there is an error on page 168, 
Table 2. The table is correct for older 
models of the TRS-80 but on newer 
models without the buffered cable, pin 
39 is not ground but +5 volts. 
Therefore, do not connect pin 39 to 
ground as shown. 

Richard L. Brocaw 

1850 Pearl Loop 

Bosque Farms, NM 87068 

Chess Tutor Fix 

Lines 1620-1710 were missing from 
the listing of my chess tutor program 
(80 Microcomputing, December 1981). 
There were also typographical errors in 
lines 660 and 670. The corrections 
listed in Program Listing 1 should 
resolve any problems you encounter 
with the program. 

Bob Dowd 

326 Porter Drive 

Lynn Haven, FL 32444 



Pay Up 



There are several typos in Program 
Listing 9, the "Loan Amortization 
Schedule", of Brian Honess' "Invest- 
ment du Jour" article (80 Microcom- 
puting, November 1981). The program 
in Program Listing 2 makes it run cor- 
rectly and cleans up the spacing for 
appearances. 

Don Picard 
321 Rive moods Lane 
Burnsville, MN 55337 

Printer Spooler Bug 

My "Print Spooler" article in the 
December 1981 issue has a serious 
bug in it. Apparently, under some cir- 
cumstances the character print sec- 
tion is entered with an unexpected 



value in the IX register. When the print 
driver updates what it thinks is the 
lines printed storage location, it is 
changing something else. This causes 
the DOS to move the disk input buffer 



until disk input overwrites the Basic 

program. This only seems to happen 

when the Spooler prints long disk files. 

The solution is to force the correct IX 

Continued on page 22 



660 IFYM$ = -O - 0"ORYM$ = "0 - O - O'THENCA = 1:GOTO740 

670 IFLEN(YMS) = 5 AND MIS$(YM$,3.1) = " - "THEN710 

1620 DATA9,2,1,3,3,0,3,7,8,6,6,0,10,3,1,7,5,0,3,2,8,4,7.0 

1630 DAT A7,5,2,5,3,0,4,6,8,5,7,0,9,7,1 ,6,3,0,0,0,0,0,0,55 

1640 DATA8.1, 1,3,1,0,1, 3,7,3,6 

1650 DATA99 

1660 DATA7,4,2,4,4,0,3,7,8,6,6,0,7,3,2,3,4,0,1 ,5,7,5,6,0 

1670 DATA9,2,1 ,3,3,0,4,6,8,2,4,0,1 1 ,4,1 ,3,2,0,1,4,7,4,5,0 

1680 DATA7,3,4,4,5,0,5,4,8,4,5.0,9,7, 1,6,3,0,1, 3,7,3,5,0 

1690 DATA10,3,1, 4,2,0,4,2,4,3,3,0,10,4,2,3,3,0,1,4,5,4,4,0 

1700 DATA9,6,3,4,4 

1710 DAT A99 

Program Listing 1 



5 REM THIS A REVISION OF THE LOAN AMORTIZATION SCHEDULE 

6 REM PRINTED IN "80 MICROCOMPUTING" MAGAGZINE 

10 CLS:PRINT:PRINT TAB(20) "LOAN AMORTIZATION TABLE":PRINT 
20 INPUT "LOAN PRINCIPAL =";P 
30 INPUT "INTEREST RATE =";R 

TOTAL PAYMENT =";M 

STARTING MONTH = " ; MO 

STARTING YEAR = " ; YR 



#### ### ####.## #####.## #####.##" 
MO YEAR N INT. PRIN. REMAIN." 



40 INPUT 

50 INPUT 

60 INPUT 

70 PRINT 

80 A$=" # 

90 PRINT" 

10 PRINT 

110 N=l 

120 I=P*(R/12) 

130 PR=M-I 

140 P=P-PR 

150 PRINT USING A$;MO, YR , N, I, PR, 

160 IF P+(P*(R/12) )<=M THEN 250 

170 N=N+1 

18 MO=MO+l 

190 IF MO=13 THEN 210 

200 GOTO 120 

210 MO=l 

22 YR=YR+1 

2 30 PRINT 

240 GOTO 120 

250 N=N+1 

26 MO=MO+l 

270 IF MO<=12 THEN 300 

28 MO=l 

290 YR=YR + 1 

300 I=P*(R/12) 

310 PR=P+I 

320 P=0 

33 PRINT USING A$ ; MO, YR , N , I , PR , P 

34 PRINT 

35 END 



Program Listing 2 
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Mk DATA RESOURCES M& 

QUALITY SOFTWARE FOR YOUR TRS-80® DISK SYSTEM 

TO ORDER CALL TOLL FREE 800-525-7958 





Data Resources is pleased to continue its commitment to professional quality TRS-80 
software by introducing The Silver Edition Software Series. This collection of programs 
represents the best contributions from the most talented and popular authors available. 



DATA RESOURCES NEW SUBSYSTEMS FOR AIDS III 



AIDS DISK SORT 

Designed tor files that are too large to sort "in 
memory" with AIDS or for when you don't 
want to wait while AIDS loads the records. 
Records are physically rearranged on disk. 
MODEL I $24.95 

AIDS FILE EDITOR 

Allows you to update and edit records in AIDS 
data files without loading the file into memory. 
Now you can change a single record in a 
mailing list quickly and easily with random 
access selection. 
MODEL I $24.95 



AIDS DATA ENTRY MODULE 

Designed for inputting data directly into AIDS 
files. Fields may be fixed to repeal trie same 
data. The key-in routines are improved in 
speed — no more over keying. Data can be 
added to the end of an existing file or a new file 
can be created. Files are automatically opened 
and closed so even if the computer is turned 
off in the middle of work, no more than 255 
keystrokes can be lost. 

MODEL I S24.95 



CUSTOM MADE CABLES 

S7 00 per Connector 

Si 00 per Foot of Cable 

We will make Printer and Drive Cables for you to 

your specifications. 10% discount for 10 or more. 

RIBBON CABLES 

Model I or III Printer $18.95 

2 Drive Disk Cable $19.95 

4 Drive Disk Cable $29.95 



THE MICRO ACCOUNTING SYSTEM 

This is the finest accounting system available for your 
TRS-80 Ideal for small business, this Intergrated 
General Ledger, Accounts Receiveable, Payable 
System includes a Checkbook manager. 
We offer something no other general business package 
can give you-a money back guarantee. If you are not 
totally satisfied return the package within 60 days and 
receive a full refund. Write for sample reports and full 
descriptions. 

MAS/80 complete S489.00 



B.T. ENTERPRISES 
UNITERM/80 

By Pete Roberts 
This is the state of the art in communications 
software. It configures itself for either Model I or 
Model III and can be used with any standard 
modem, both RS-232 and Bus-Decoding. 
Especially designed to use theextended commands 
in NEWDOS/80, but fully compatible with all major 
DOS systems. 
For Model I and III S89.00 



GENERIC 

SOFT SECTORED 57," DISKETTES 

PLASTIC BOX OF 10 $22.95 

BULK PAC OF 100 $200.00 

50 DISKS WITH A 

FLIPSORT $119.95 

HEAD CLEANING 

KITS $24.95 



THE FLOPPY DOCTOR 

By Dave Stambaugh 
FLOPPY DISK/MEMORY DIAGNOSTIC 
Computer "professionals" have long known the 
importance of regular use of diagnostic software in 
verifying the integrity of computer hardware. The 
TRS-80 is no exception; good diagnostics are a 
must. The MICRO CLINIC offers two programs 
designed to thoroughly check out the two most 
trouble prone sections of the TRS-80, the disk 
system (controller and drives) and the memory 
arrays. 
MODEL I $24.95 MODEL III $29-95 



VERBATIM 

SOFT SECTORED 5VV DISKETTES 
DOUBLE DENSITY 

DATALIFE $26.95 

1 BOX WITH A FLIPSORT $43.95 

FLIPSORT 
STORAGE CASE FOR 

50 DISKS $19.95 

10 TO A BOX 40 TRACK 



DYSAN 

SOFT SECTORED 5%" DISKETTES 
WHEN YOU CANT AFFORD 
ANYTHING BUT THE VERY BEST. 

SINGLE DENSITY $36.95 

DOUBLE DENSITY $39.95 

10 TO A BOX - 40 TRACK 



AIDS SYSTEMS 

BY METS TECHNOLIGIES 

MTC AIDS III 

This easy to use system allows even a novice 
TRS-80 user to create data files custom 
configured for many applications, from lists 
for mailing and cataloging to financial 
reporting and time scheduling. It requires NO 
PROGRAMMING and is complete with 
features for adding, deleting, sorting 
updating and printing. 
MODEL I $69.95 

MTC CALCS III 

Performs numeric calculations of data 

contained in AIDS files. Ideal for financial 

applications. 

MODEL I $24.95 

MTC CALCS IV 

The same features as CALCS III with more 
powerful formulas and the ability to store 
report formats. 
MODEL I $39.95 

M TC MERGE-III 

Combines up to 14 AIDS data files into a single 
file Duplicates may optionally be purged, anci 
sorted order of records is maintained. 
MODEL I S19-95 

SPECIAL 

AIDS III SUPER SYSTEMS 

AIDS III & CALCS III & MERGE III 

MODEL I $99-95 

AIDS III & CALCS IV & MERGE III 
MODEL I $109.95 

NEWDOS/80 Version 2.0 
for MODEL I and III $149.00 

The hottest Disk Operating System is now 
available in its latest version. This is the ONE 
from Apparat, Inc., the people whose systems 
have made the TRS-80 a reliable computer. 
This system includes: 

• Double Density support on the Model I 

• New Superzap with expanded capabilities 

• Diskette compatibility between Model I 
and III 

MODEL I DOUBLE DENSITY PACKAGE 

NEWDOS/80 Version 2.0 and the 

LNDOUBLER 

Everthing you need to convert your TRS-80 
Model I to run double density. Complete with 
software, hardware, and instructions, — 
installs in minutes with NO SOLDERING, 

WIRING OR CUTTING $229.95 

LNDOUBLER Alone $149.95 



M& 



MASTERCARD fi^ 
AND VISA _ 
WELCOME 
We also accept 
COD • CHECKS 
MONEY ORDERS 



.Data Resources Corporation 

Business & Professional Center 8000 East Quincy Ave. 
Denver, Colorado 80237 (303) 773-6665 



ALL SOFTWARE SUPPLIED ON DISKETTE. 
ORDERS IN U.S.A. SHIPPED U.P.S. FREE. 
Colorado residents add 6V 2 % sales tax. 

ATTN: DEALERS - We offer attractive pricing and terms to small 
computer retailers. Write for information on our dealer program and 
discounts in small quantities. 



= 1981 DATA RESOURCES CORP. 
TRS-80* IS A TRADEMARK OF TANDY CORP. 

AIDS III."- CALCS III,"- MERGE III," ARE TRADEMARKS OF METATECHNOLOGIES 



If you have 




thoughts 
about mail order, 
call us first. 



If mail-order shopping hasn't 
been everything you hoped for. 
look into Alpha Byte. 

Our incredible low prices, our 
guarantee of satisfaction, our ex- 
pertise — all as near as your 
phone. 

All you have to do is call. A 
state-of-the-art microcomputer ex- 
pert is standing by to answer 
your questions, offer advice, or 
take your order. 

The rest is up to us. At Alpha 
Byte, orders are processed right 
now! Quickly and efficiently. In- 
stock merchandise is usually 
shipped within 24 hours. Sooner 
than you think, there'll be a sur- 
prise at your doorstep. 

We make mail order quite 
painless and pleasant. Even fun. 
Call (213) 706-0333 and let us put 
a little sunshine into your 
shopping. 



PRINTERS 



ANAOEX DP 9500 
ANADEX DP 9501 
C-IT0H 25 CPS PARALLEL 
C-IT0H 25 CPS SERIAL 
C-IT0H 45 CPS PARALLEL 
CIT0H 40 CPS SERIAL 
EPSON MX-80 
EPSON MX-80F/T 
EPSON MX- 100 GRAPHIC 
EPSON GRAFTRAX 
IDS-445G PAPER TIGER 
IDS-460G PAPER TIGER 
IDS-560G PAPER TIGER 
MALIBU 200 DUAL MODE 
NEC SPINWRITER 3510 S R0 
NEC SPINWRITER 3530 P R0 
NEC SPINWRITER 7710 S R0 
NEC SPINWRITER 7730 P RO 
NEC SPINWRITER 3500 SELLUM 



1295 00 

1295 00 

1440 00 

1495 00 

1770 00 

1870 00 

SCALL 

SCALL 

SCALL 

90.00 

779.00 

94500 

1195.00 

2695 00 

2095 00 

2095 00 

2595.00 

2595 00 

2295.00 



OKIDATAMICROLINE80 
0KIDATA MICROLINE 82A 
0KI0ATAMICR0LINE83A 
OKIDATA MICROLINE 84 



389 00 
569 00 
• 799 00 
1199 00 



ISOLATORS 

ISO-1 3-S0CKET 
IS0-2 6S0CKET 



16K RAM SPECIAL 13.95 MODEMS 

Set of 8 NEC 41 16 ns wiih inslruclions Guaranteed one lull year 

MODEL I, III SOFTWARE 



LAZY WRITER MOD I 

LAZY WRITER MOD III 

MICR0PR00F SPELLING CHECK 

PR0S0FT NEWSCRIPT MOD I III 

PR0S0FT MAILING LABELS MOD I. Ill 

PR0S0FTNEWSCRIPT/LABELSM0DI III 

SPECIAL DELIVERY MOD I. Ill 

X-TRA SPECIAL DELIVERY MOD I. Ill 

TRAKCESS MOD I 

0MNITERM SMART TERMINAL MOD I III 

MAXI-MANAGER 

DOS PLUS 3.3 MOD I 

DOS PLUS 3 3 MOD HI 

DOS PLUS 3 38 MOD III 

LD0S 5 1 

CALCSTAR MOD I. Ill 

MICROSOFT EDITOR ASSEMBLER + MOD I 

MICROSOFT FORTRAN MOD I 

DISKETTES 

ALPHA DISKS 21.95 

Single sided, certified Double Density 40 Tracks, with Hub-Rmq 
Box of 10 Guaranteed one lull year 

VERBATIM 

MD 525-01 10. 16 
MD 550-01. 10 16 
MD 557-01. 10 16 
FD 32 or 34-9000 
FD 32 or 34-8000 
FD 34-4001 



169 00 

169 00 

84 95 

99 00 

29.95 

115.00 

119 00 

179 00 

24 95 

89 95 

89.95 

89 00 

89.00 

129 00 

149 00 

129.00 

24 95 

165 00 



NOVATION CAT ACOUSTIC 
NOVATION D-CAT DIRECT CONNECT 
NOVATION AUTO-CAT AUTO ANSWER 
UDS 103 LP DIRECT CONNECT 
UDS 103 JLP AUTO ANSWER 
D C. HAYES STACK Smart Modem 
LEXICON LX-11 



53.95 
53.95 



145.00 
165 00 
219 00 
175.00 
209.00 
249 00 
109 00 



CP/M S SOFTWARE FOR MOD II 

MICROSOFT 

MICROSOFT BASIC-80 
MICROSOFT BASIC COMPILER 
MICROSOFT FORTRAN-80. 
COBOL 80 



299 00 

319 00 
369 00 
599.00 



26.50 
44 50 
54 95 
36.00 
4560 
4860 



DYSAN 

5V..SS/0D. BOX OF 10 



DISKETTE STORAGE 

5V4 ' PLASTIC LIBRARY CASE 

8' PLASTIC LIBRARY CASE 

PLASTIC STORAGE BINDER WITH INSERTS 

PROTECTOR 5 '/. ' ' 

PROTECTOR 8" 

TRS-80 MOD I HARDWARE 

PERC0M DATA SEPARATOR 
PERC0M D0UBLER II 
TANDON 80 TRACK DISK DRIVE 
TANDON 40 TRACK DISK DRIVE 
LNW D0UBLER WITH D0SPLUS 3 3D 
LNWDOUBLER5/8 



45 00 



2 50 

3.50 

9.95 

2395 

29 95 



27.00 
.159.00 
429.00 
289.00 
159.00 
209.00 



MICRO PRO 

WORDSTAR 

MAILMERGE (REOUIRES WORDSTAR) 

SPELLSTAR (REQUIRES WORDSTAR) 

SUPERS0RT 

DATASTAR 

CALCSTAR 

OTHER CP/M- SOFTWARE 

SPELLGUARD . 

SUPERCALC 

C0MMX TERMINAL SOFTWARE 

dBASE II 

P&TCP/M" MOD II TRS-80 

C BASIC 2 

PASCAL Z 

PASCAL MT + 

PASCAL/M 

SYSTEMS PLUS - 

G/L. A/R. A/P. P/R 
C0N00R I 
CONDOR II 

SUPPLIES 

AVERY TABULABLES 

1.000 3% x 15/16 
3 000 3Vj x 15/16. 
5.000 3% x 15/16. . 



310.00 
110.00 
199.00 
19500 
245.00 
239.00 



239.00 
229.00 
.75.00 
599.00 
175.00 
.115.00 
349.00 
439.00 
205 00 

1799 00 
579.00 
849.00 



8 49 

14.95 
19 95 



FAN FOLD PAPER (Prices F.O.B. S.P.) 



9Vjx11 181b WHITE 3.000 Ct 
14 7/8x11 181b WHITE 3.000 ct 



29 00 

39 00 



TWO NEW 'OTHER MYSTERIES' 
BOOKS 



THE CUSTOM TRS-80 

MICROSOFT BASIC FASTER AND BETTER 



24 95 
24.95 

^11 
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CORVUS 

TRS-80 MOD 

Controller Case/P S 
5 MEGABYTES 
10 MEGABYTES 
20 MEGABYTES 
MIRROR BACK-UP 



, II, III 

Operating System. A&T 



3245.00 

4645 00 

5545.00 

725.00 



SPECIALS 

SPECIAL NO. 1 

TRS-80 DISK AND OTHER MYSTERIES. BOX OF VERBATIM 
DISKS. PLASTIC LIBRARY CASE 44.50 

SPECIAL NO. 3 

NEWDOS/80 2.0. BOX OF VERBATIM DISKS. PLASTIC LIBRARY 
CASE 149 00 

SPECIAL NO. 4 

MICROSOFT BASIC COMPILER BOX OF VERBATIM DISKS 
PLASTIC LIBRARY CASE "9 00 

SPECIAL NO. 5 

MICROSOFT BASIC DECODED AND OTHER MYSTERIES BOX OF 
VERBATIM DISKS. PLASTIC LIBRARY CASE 49 95 

DOUBLE DENSITY SPECIAL 

PERCOM DOUBLER II. NEWDOS/80. BOX OF VERBATIM DISKS, 
PLASTIC LIBRARY CASE 279 00 

COMMUNICATION SPECIAL MOD I & III 

NOVATION MODEM. OMNITERM TERMINAL SOFTWARE 

ACOUSTIC SPECIAL (CAT) 219 00 

DIRECT CONNECT SPECIAL (D-CAT) 239.00 

SERIAL CABLE 25 00 

DISK LIBRARY SPECIAL 

RACET DISKCAT CATALOGING PROGRAM. FLIP SORT (50 DISK 
CAPACITY) . 50 STICK-ON DISK LABELS 59 95 



TRS-80 GAMES 

TEMPLE OF APSHAI 

HELLFIRE WARRIOR 

STAR WARRIOR 

RESCUE AT RIGEL 

CRUSH. CRUMBLES CHOMP 

INVADERS FROM SPACE 

PINBALL 

STAR TREK 3 5 

MISSILE ATTACK 

STAR FIGHTER 

Z-CHESSIII 

ADVENTURE NO 1. 2. &3 

ADVENTURE NO. 4. 5. &6 

ADVENTURE NO 7. 8. & 9 

DUEL-N-DROIDS 

STARFLEET ORION 

INVASION ORION 
OLYMPIC DECATHLON 

MONTY PLAYS MONOPOLY 

SARGON II 

BLACKJACK MASTER 

ROBOT ATTACK 

GALAXY INVASION 

SUPER NOVA 

TUESDAY MORNING QUARTERBACK 

LUNAR LANDER 

THE MEAN CHECKER MACHINE 

GAMMON CHALLENGER 

SPACE ROCKS 

PIGSKIN 

ZOSSED IN SPACE 

ARCADE-80 

COMBAT 

SPACE INTRUDERS 

SILVER FLASH 

MORTONS FORK 

PROJECT OMEGA 



34 95 
34 95 
34 95 
24 95 
24.95 
17 95 
17 95 

17 95 

18 95 
24 95 
24 95 
34 95 
34 95 
34 95 
1795 
21 95 
21 95 
2495 
31 95 
31 95 
27 95 

17 95 
17.95 
1795 
26 95 
1895 
21 95 
1895 
1895 
17.95 
1895 
21 95 

18 95 
17.95 
1795 
26 95 
21 95 



CP/M is a registered trademark ot Digital Research 

Send for 
our hot new catalog. 

This catalog is a "must". Its unique 
3-ring binder format lets you keep it 
up-to-the-minute current. We will 
provide you with changes or addi- 
tions, as necessary, on a regular 
basis. 



Alpha Byte is proud to feature the finest 
business software available for the TRS-80 
from Occupational Computing Co., Inc. 



OCC A/R WITH BILLING AND 
INVENTORY CONTROL 

One step posting prints an invoice, 
reduces inventory, posts to customer 
ledger, and accumulates sales analysis. 
Can be set up as Open Item or Balance 
Forward system. 

Model I, III 750.00 

Model II 1495.00 

OCC PAYROLL 

Includes: Multiple Pay Frequencies, 
Salary or Hourly, Automatic Deductions 
(Federal, State, FICA, Disability In- 
surance), Commissions, Bonuses, Tips, 
Complete Journal, Check Writer, Check 
Register, Quarterly 94IA and Yearly W-2 
Reports. 

Model I. Ill 350.00 

Model II 495.00 

OCC UNION REPORTING 

Features: Interfaces with OCC Payroll 
(Data entry is from employee time card), 
Flexible Local Set-up (Union Codes and 
Classifications), Computation and repor- 
ting of Various Funds (Vacations, Dues, 
Pensions, Health & Welfare, Industry, 
Training, Promotion, Contract Ad- 
ministration). 
Model II 495.00 

OCC ORDER ENTRY 

Features: Allows On-Line Entry and 
Maintenance of Customer Orders. Sup- 
ports Credit Memos, Standard & Non- 
standard Discounts and Total Back- 
Order Control. Automatically Interfaces 
to OCC A/R, Billing and Inventory Con- 
trol. 
Model II 995.00 




OCC MANUFACTURING 
INVENTORY CONTROL 

Features: Bill of Material 'Explosion' 
maintains inventories in up to 10 levels 
of sub-assemblies and/or components. 
Allocates and relieves raw materials 
based on input of production schedules 
and completions thru the bill of 
Materials Explosion Update and Prints 
Bill of Materials Cost Report. All or 
selected ranges of assemblies are 'Ex- 
ploded' into the lowest level com- 
ponents; quantities and unit prices are 
extended for each component to give a 
unit cost for the entire assembly. Prints 
Inventory Exception Report and Sug- 
gested Purchase Orders. Automatically 
interfaces to OCC A/R , Billing and In- 
ventory Control and OCC Order Entry 
Systems. 
Model II 995.00 



All OCC Software is supplied with user 
oriented manuals that include easy user 
installation instructions. OCC Software 
is written in Radio Shack Basic and runs 
under TRSDOS. OCC Software uses 
Keyed Sequential Access Method 
(KSAM) File structure, Binary searches 
and fast Machine Language Sorts to in- 
sure the fastest possible execution. 
OCC's Exceptional Screen Control For- 
mat makes data entry as easy as filling 
out a form. Related OCC Software 
packages interface to form complete 
MENU DRIVEN Accounting systems. 

If you have a serious business applica- 
tion then you should consider OCC Soft- 
ware. Call for a complete description of 
any of OCC's Business Packages. 



We guarantee everything for 30 days. If 
anything is wrong, return the item and we'll make 
it right. And, of course, we'll pay the shipping 
charges. 

We accept Visa and Master Card on all orders; 
COO orders, up to $300.00. 

Add $2.00 for standard UPS shipping and 
handling on orders under 50 lbs. delivered in con- 
tinental U.S. Call for shipping charges over 50 
lbs. Foreign, FP0 and AP0 orders, add 15% for 
shipping. Californiana add 6% sales tax. 

Prices quoted are for stock on hand and are 
subject to change without notice. 

31245 LA BAYA DR, WESTLAKE 
VILLAGE, CALIFORNIA 91362 



- JPUHB 

PRODUCTS 

lb order, or for informationjCall: 

(213)706-0333 

To use our 24-hour modem order line, call: (213) 883-8976. 



sSee List ol Advertisers on page 402 
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SO INPUT 



SO MBU 



Continued from page 18 

value before entering the print driver. 
The required code changes are: 

• Change line 420 to: 420 LD 
(PRINT +13),HL 

• Add the following lines: 



852 Di 

854 PUSH IX 

856 LD IX.4025H 

862 POP IX 

864 Ei 



• Change the origins in 260 and 280 
to FB78H and FF78H respectively. 

I offer my sincere apology to those 
of you who spent time trying to make 
this work. 

Roger B. Gault 

9603 Mount Quail Road 

Austin, TX 78758 

Missing Messages 

My program, TXTWRT, does not 
assemble correctly when you type it in. 
The trouble is with the CALL to display 
program messages. My article, "More 
Write Stuff" {80 Microcomputing, De- 
cember 1981), was published without 
the accompanying message prompts. 
Program Listing 3 contains the miss- 
ing lines for the program. Insert these 
lines between lines 2940 and 3190 of 
the program. The slash marks are for 
spacing purposes only and should not 
be typed in. 

Lynard Barnes 

320 South Whipple Street 

Chicago, IL 60612 

Missing Programs 

Somewhere in your cutting room 
there is an eccentric with a pair of 
scissors. Once again, the programs in 
my series of articles "Alternate 
Course" have been tampered with. 
This time, the programs referred to as 
Fig. 1 and Fig. 2 in the October issue do 
not appear at all. 

Figure 3 contains an additional 

Continued on page 23 



M1 


OEFM 


TEXTWRITER// - //OPTIONS' 




DEFB 


ODH 




DEFB 


ODH 




DEFM 


'1-ADD////////2-LOAD' 




DEFB 


ODH 




DEFM 


'3 - SAVE///////4 - PRINT 




DEFB 


ODH 




DEFM 


'5 - BASIC//////6 - KILL BUF' 




DEFB 


ODH 




DEFM 


7 -1ST 1020 BYTES' 




DEFB 


ODH 




DEFB 





M6 


DEFM 


'(ENTER) TO SAVE BUFFER. 




DEFB 





M7 


DEFM 


(ENTER) TO LOAD BUFFER 




DEFB 





PRNT1 


DEFM 


'WILL SEND BUFFER TO LINE PRINTER ON KEY' 




DEFB 




Program Listing 3 



12 B=2:W(1)=1: W(2)= -1: W(3)=64: W(4)= -64: Y=16379 

2999 REM SUBROUTINE FOR USER CONTROLLED SAUCER 

3000 A$=INKEY$ 

3010 IF A$="" THEN GOTO 3040 

3020 B=ASC(A$)-64 

3030 IF B>4 OR B<=0 THEN B=l 

3040 POKE Y,32: POKE Y+l r 32: POKE Y+2,32 

3050 Y=Y+W(B) 

3060 IF Y+2=16383 THEN Y=15361 

3070 IF Y=15360 THEN Y=16379 

3080 IF Y+2>16383 THEN Y=Y-1023 

3090 IF Y<15360 THEN Y=Y+1023 

3100 POKE Y,187: POKE Y+1,157: POKE Y+2 r 140 

3110 RETURN 

Fig. 1 

12 B-2:W(1)-1:W(2)— 1:W(3) -64:W(4) — 64iY-16379 

108 GOSUB 3008 

110 GOTO 100 

3000 IF Y>X+64 THEN B-4: GOTO 3040 

3010 IF Y>X THEN B-2iGOTO 3040 

3020 IF Y-128 < X THEN B-3: GOTO 3040 

3030 B-l 

3040 POKE Y,32i POKE Y+1,32: POKE Y+2,32 

3050 Y-Y+W(B) 

3060 IF Y+3-16383 THEN Y-15361: GOTO 3100 

3070 IF Y-l-15360 THEN Y-16378: GOTO 3100 

3080 IF Y+3>16383 THEN Y-Y-1023: GOTO 3100 

3090 IF Y-K15360 THEN Y=Y+1023 

3100 POKE Y,187: POKE Y+1,157: POKE Y+2,140 

3110 K-Y+3 

3120 IF B-2 THEN K-Y-l 

3130 FOR T-l TO 15 

3140 POKE K,42 

3150 IF K-X OR K-X+l OR K-X+2 OR K-X+3 OR K-X-l OR K-X-2 OR K-X-3 THEN GOTO 4000 

3160 POKE K,32 

3170 K-K+W(B) 

3180 IF K<15361 THEN GOTO 3220 

3190 IF K>16382 THEN GOTO 3220 

3200 NEXT T 

3220 RETURN 

4000 PRINTS 530, "YOU LOSE I 1 1 " 

4010 INPUT "DO YOU WANT TO PLAY AGAIN*; AS 

4020 IF A5-"YES" THEN RUN 

4030 END 

4040 REM SUBROUTINE FOR COMPUTER CONTROLLED SHIP 

Fig. 2. 
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Continued from page 16 

1980, "Profile uses an 'on-disk' sorting 
method which requires a large number of 
disk read/write operations. We have dis- 
covered that disk life is a significant fac- 
tor in system failures, especially in long 
sorts of large or multiple drive systems. 
Users should use new backup copies reg- 



ularly." About half way through the fifth 
pass of a nine pass sort I got a disk read 
error. Unfortunately I had not yet obtained 
the Service Bulletins with their caution 
and, contrary to good practice, I had not 
made a copy of my file before sorting it. 

• The Basic program given in the 
manual for access to Profile files will not 




Continued from page 22 

listing which shows the code to get the 
ships to chase each other around a bit. 
I have only one question. As many of 
your readers know, the gremlins that 
cause errors to be created in programs 
are known as "bugs." The gremlins 



that cause errors in networks are 
known as "worms." What are the 
gremlins in cutting rooms called? 

Michael A. Duffin 
1507 East Avenue 
Berwyn, IL 60402 



5 CLS 

12 B«2:W(1)«1:W(2)=-1:W(3)=64:W(4)=-64:Y=16378 

13 D=2: V(l)=l: V(2)= -1: V(3)= 64s V(4)= -64: X=15365 
100 GOSUB 2000 

110 GOTO 100 

2000 A$=INKEY$ 

2010 IF A$="" THEN GOTO 2040 

2020 D=ASC(A$)-64 

2030 IF D>4 OR D<=0 THEN D=l 

2040 POKE X,32: POKE X+1,32: POKE X+2,32 

2050 X=X+V(D) 

2060 IF X+2-16383 THEN X=15361 

2070 IF X=15360 THEN X=16379 

2080 IF X+2> 16383 THEN X=X-1023 

2090 IF X<15360 THEN X=X+1023 

2100 POKE X,187: POKE X+1,157: POKE X+2,140 

2105 GOSUB 3000 

2110 RETURN 

3000 IF Y>X+64 THEN B=4: GOTO 3040 

3010 IF Y>X THEN B=2:GOTO 3040 

3020 IF Y-128 < X THEN B=3: GOTO 3040 

3030 B=l 

3040 POKE Y,32: POKE Y+1,32: POKE Y+2,32: POKE Y+3,32 

3042 REMPRINT "Y= "Y 

3050 Y=Y+W(B) 

3060 IF Y+3=16383 THEN Y=15361: GOTO 3100 

3070 IF Y=15360 THEN Y=16378: GOTO 3100 

3080 IF Y+3>16383 THEN Y=Y-1023: GOTO 3100 

3090 IF Y-K15360 THEN Y=Y+1023 

3100 POKE Y,176:POKE Y+1,190: POKE Y+2,189: POKE Y+3,176 

3110 K=Y+4 

3120 IF B=2 THEN K=Y-1 

3130 FOR T=l TO 15 

3140 POKE K,42 <n , 

3150 IF K=X OR K=X+1 OR K=X+2 OR K=X+3 OR K=X-1 THEN GOTO 401 

3160 POKE K,32 

3170 K=K+W(B) 

3180 IF K<15361 THEN GOTO 3220 

3190 IF K>16382 THEN GOTO 3220 

3200 NEXT T 

3220 RETURN 

4000 PRINTS 53 0, "YOU LOSE MI" 

4010 INPUT "DO YOU WANT TO PLAY AGAIN", -A$ 

4020 IF A$="YES" THEN RUN 

4030 END 

4040 REM SUBROUTINE FOR COMPUTER CONTROLLED SHIP 

Fig. 3. 



work as written. Bulletin 1562-4 gives the 
corrections for the program. Again, I did 
not have the advantage of seeing the Bul- 
letin in advance and spent many wasted 
hours trying to use the Basic program to 
salvage my file. 

• Bulletin 1562-5 gives corrections for 
another Basic program listed in the 
manual. 

• Bulletin 1562-6 gives further correc- 
tions. 

• Bulletin 1562-2 says that if Basic is 
used to access files built by Profile then 
"the LRL must be a number evenly divisi- 
ble into 256 minus one." 

I originally chose Profile since I needed 
the capability of maintaining a file of over 
1,000 records, each of which consisted of 
four fields. While the program may func- 
tion perfectly with a test file of several 
dozen records, I would encourage the seri- 
ous user with a large file to think twice 
before using Profile. As previously stated, 
I returned my copy to Radio Shack and ob- 
tained a refund. It is interesting to note 
that after I had my copy of Profile re- 
turned, the salesman ran me off a copy of 
all Customer Service Bulletins issued on 
Profile. If, ever again, I purchase any 
Radio Shack software I shall make it a 
point to ask for copies of any bulletins 
which pertain to the software. Other users 
might want to follow the same procedure. 

Charles K. Bridges 
Sacramento, CA 

Software Buyer's Tips 

It seems that of all the articles I have 
written for 80 the one on Profile drew the 
most active attention. 

The article, in context, was an attempt 
at a comparison between Profile and 
Microfile and a bit of an expansion on 
some of the features of Profile. To this day 
I stand by my statement that it was the 
best program released by the Shack up 
until that time. I do not understand the 
problem you were having with the two- 
drive sort, but again, as you point out, I 
had only entered about 120 or so pieces of 
data so the second drive was never real- 
ly utilized. I can only conjecture that in as 
much as a year or so ago a system with 
more than one drive was atypical, the pro- 
gram was never functionally paced 
through a multidrive exhaustive test. Soft- 
ware authors do have a tendency to ac- 
cept certain things for granted when 
others seem to work right. 

The Shack, and I know the ground will 
quiver when I write this, had not, up until 

Continued on page 24 
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SO INPUT 
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"-" ■•«"" f"tf= C*J 

then, ever released a program that was er- 




0w\ 


^^.^Bm^rn ■ 




ror free and good (what a generality!). 






nCDl m*m 




Look at Scripsit. It had more than a few 




Jim i 


IrlElilll 




coding faults but it is still, in my opinion, 




€J\f 






the best word processor bar one (Wordpro 




-:■ ' 


^^ 




4+ on the Commodore is equally as sim- 










ple and as effective), and that includes 

WordStar, Magic Wand and Memorite III. 

And the Shack's fixes are to be taken 




























Here is the long-awaited program listing of Convert which should have 




always with a grain of salt. In many cases 
they either work half-heartedly, not at all, 






appeared with James F. Williams' article "Smart Answers" in the April 








1981 issue of 80 Microcomputing.— Eds. 






or lead the way to more fixes. It is almost a 








00100 ;CONVERT 1.1 (C) 1980 BY JAMES 


F. WILLIAMS 




law (God forbid you wanted to use a serial 








00110 ;720 WEST HAVEN BLVD 
00120 ;ROCKY MOUNT, NC 27801 






printer with Scripsit and it did not conform 








00130 ; 






to Radio Shack's conception of what a 








00140 ;RESERVE MEMORY AT ORG POINT. 
00150 ;HIT SHIFT C AFTER TYPING IN A 


NUMBER (USE H AFTER 




serial printer should be — and look at all 








00160 ;A HEX NUMBER) FOR A REPLACEMENT CONVERSION ON THE 
00170 /SCREEN AND IN THE BUFFER. USE SHIFT B TO ACTIVATE A 




the corrections that the accounting pro- 








00180 /BACKWARD SEARCH FOR FIRST DECIMAL STRING BEFORE CURSOR 




grams gave rise to!) 








00190 ;AND PRINT CONVERSION AT CURSOR AND IN BUFFER. CONVERTE 




Your main problem, you see, was the 






D 


00200 ;NUMBER MARKED WITH 8. 






salesperson who sold you the program 






7F08 


00210 ; 

00220 ; I. INITIALIZATION ROUTINE 

00230 ORG 32520 


; CHANGE IF NOT 16K 




and not the program itself (you seem to 
hint at that, but never come out and say it). 






7F08 2A1640 

T 


00240 INTLZE LD HL,(4016H) 


;SAVE PREVIOUS INTERCcP 




In theory, when you buy software or hard- 






7F0B 22267F 
7F0E 21177F 
7F11 221640 


00250 LD (DECODE+1) ,HL 
00260 LD HL,MODE 
00270 LD (4016H),HL 


j SET THIS INTERCEPT 




ware, your salesperson should be like 
your high school guidance counselor. 






7F14 C3CC06 


00280 JP 6CCH 
00290 ; 


; RETURN TO BASIC 




With all your needs tucked neatly away in 






00300 ill. EXECUTION STATUS CHECK 
7F17 3E02 00310 MODE LD A, 2 
7F19 ED73DE7F 00320 LD (STKPTR+1) ,SP 


(MODIFIED BY PROGKAM 
; SAVED TO FIX STACK 




the frontal lobes, a salesperson worth his 
salt should be able to hunt and choose 






7F1D B7 


00330 

00340 OR A 


i FROM JP'S FROM SUB'S 




among the sea of software and give you a 






7F1E CAC27F 
7F21 3D 


00350 JP Z,BKSPCE 
00360 DEC A 


;AUTO TYPE BACKSPACE 




selection that fits your needs. If there are 






7F22 CAD07F 


00370 JP Z,BUFPTR 


;AUTO TYPE CONVERSION 




updates or errors to be corrected, your 








00380 ; 

00390 ;III. REGULAR MODE: CHECK FOR SHIFT C AND SHIFT B. 




salesperson should also keep you in- 






7F25 CD257F 


00400 DECODE CALL S 


;SET AT INITIALIZATION 




formed. (Let's be brutally honest, no piece 






7F28 2A2040 


00410 

00420 LD HL,(4020H) 


; DECODE KEYBOARD 
;LOAD CURSOR POSITION 




of software is ever totally bug-free or 






7F2B FE63 
7F2D 280E 


00430 CP 'C'+20B 
00440 JR Z,HEXDEC 


.•SHIFT C? 

;YES, HEX OR DEC? 




perfect, all of them go through a continual 






7F2F FE62 
7F31 C0 
7F32 CDEA7F 


00450 CP 'B'+20H 
00460 RET NZ 
00470 BKSRCH CALL SRCH 


; SHIFT B? 

7 NO, RETURN CHARACTER 

;YES, SEARCH FOR 0-9 




growth process and we all, equally, suffer 
and benefit from that growth.) 






7F35 38FB 
7F37 CD497F 


00480 JR C, BKSRCH 
00490 CALL DECM 


;0-9? NO, KEEP LOOKING 
;YES, DEC TO HEX CONVER 




Unfortunately, many of the times 1 find 






T 

7F3A C3CB7F 

7F3D 3E48 


00500 JP CHRFLG 
00510 HEXDEC LD A,'H" 


;TO SET AUTO CHAR FLAG 




myself in a Radio Shack store, 1 do not see 
people consulting with the salespeople. 






7F3F 2B 
7F40 BE 


00520 DEC HL 
00530 CP (HL) 


/BACK UP 1 LOC 
»H? 




Its more a case of "Oh, 1 will take that." 






7F41 283D 
7F43 CD497F 


00540 JR Z,HEX 
00550 CALL DECM 


;YES, HEX-DEC CONVERT 
; DEC-HEX CONVERT 




Yes, not every salesperson in every store 






7F46 C3BE7F 


0056 JP BKMODE 

00570 ; 

00580 ;IV. DECIMAL STRING TO VALUE TC 


;TO SET BACKSPACE FLAG 
HEX STRING CONVERSION 




knows the computer products, but do not 
make the assumption that none of them 






7F49 23 
7F4A E5 


00590 DECM INC HL 
00600 PUSH HL 


;END OF DEi; STRING+1 
;SAVE IT 




do. If you cannot get to the one or ones 






7F4B 0600 


00610 LD B,0 


; INITIALIZE CHAR COUNT 




that do immediately, make an appoint- 






7F4D CDEA7F 
7F50 30FB 


00620 DECSRH CALL SRCH 
00630 JR NC, DECSRH 


(FOR NON 0-9 

7 0-9? YES, KEEP LOOKING 




ment for a later date. That small bit of pro- 






7P52 05 


00640 DEC B 


7 1ST CHAR? 




crastination can sometimes save a lot of 






7F53 CADA7F 


0065 JP Z, RESET 


7 YES, RESET AND RETURN 




heartache later on. And if a salesperson 






7F56 Dl 
7F57 AF 


00660 POP DE 
00670 XOR A 


7 LAST CHAR LOC+1 TO DE 




does mislead you (those little buggers can 






7F58 12 


00680 LD (DE) ,A 
00690 


;PUT BYTE AT END OF 
7 STRING ON SCREEN 




sometimes get over eager) or fails to do 






7F59 04 


00700 INC B 


/RESTORE COUNT 




the things they should, then complain. 






7F5A 78 
7F5B 32C37F 


00710 LD A,B 

00720 LD (BKSPCE+1) ,A 


7 SAVE IT 




The image of the Shack, like any com- 






7F5E 23 
7F5F CD4F1E 


00730 INC HL 
00740 CALL 1E4FH 


7 FIRST 0-9 CHAR 
/CONVERT TO VALUE IN DE 




puter store, is derived from its employees, 






7F62 21FA7F 


00750 LD HL,BUF 


7 BUFFER 




their knowledge and their ability to assist 






7F65 EB 


00760 EX DE,HL 






a customer— would it surprise you if 1 told 






7F66 0E04 
7F68 0604 


00770 LD C,4 
007 80 DIGIT LD B,4 


/DIGIT COUNT 
/BIT COUNT 




you 1 am the manager of a computer store 






7F6A AF 


007 90 XOR A 


/CLEAR A 




in New York and that 1 will and have sent 






7F6B 29 
7F6C 17 


00800 SHFT ADD HL,HL 
00810 RLA 


/SHIFT HL 
/INTO A 




customers elsewhere when 1 know 1 can- 






7F6D 10FC 
7F6F C630 


00820 DJNZ SHFT 
00830 ADD A, 48 


;t BITS WORTH 

7 AD J TO ASCII 0-9 

Program continues 




not supply a product that will meet their 
specs? My customers still come back to 
me first when they need something. 












That is what it is all about in both soft- 






Continued on page 26 
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WHY 



THE LATEST BLAST 
FROM BIG FIVE... 

DEFENSE 
COMMAND 



IS THE ALPHA JOYSTICK 
SUCH A SUCCESS ? 



Because of games like these 



ALL GAMES ' 



l6KLevel2, Mod 1 + Mod 3 Cassette: $15.95 
32k Level 2, Mod 1 + Mod 3 Diskette. $19.95 
10% discount tor 2 games, 15% for 3 or more 
Games may be played with or without joystick. I 




DEFENSE 
COMMAND 






Big Five has done it again! Now the most popular 
arcade game of all time has a fascinating new twist. 
The Invaders are back! You are alone, valiantly 
defending the all important nuclear fuel cannister 
stockpile from a convoy of thieving aliens who 
repeatedly break off and attack in precision forma- 
tions. An alien passes your guard, swiftly snatching 
up a cannister and flying straight off. Quick! you 
have one last chance to blast him out of the sky. 
Great action and sound! 



BEST 
^SELLER, 



BEST 
SELLER 



SCARFMAN 

THE LATEST ARCADE CRAZE now runs on your 

TRS-80. 

It's eat or be eaten. You control Scarfman around 

the maze, gobbing up everything in your path. You 

attempt to eat it all before the monsters devour you. 

Difficulty increases as game progresses. Excellent 

high speed machine language action game. From 

The Cornsoft Group. With sound 

CAUTION: Played with the Alpha Joystick, Scarfman 

may become addictive. 



SUPER NOVA 



Asteroids tloat ominously around the 
screen You must destroy trie asteroids 
oelore they destroy you 1 (Big asteroids 
break into little ones.) Your ship will 
respond to thrust, rotate, hyperspace 
and lire Watch out tor that saucer with 
the laser' As reviewed in May 1981 Byte 
Magazine 



LUNAR LANDER 



As a vast panorama moonscape scrolls 
Dy select one ot many landing sights 
The more perilous the spot, the more 
points scored —it you can land sately 
You control LEM main engines and side 
thrusters Absolutely Ihe besi use ol 
TRS-80 graphics we have ever seen 1 
From Adventure Inlernational With 
sound 



ATTACK FORC^ 



As your ship appears on the bottom ot 
the maze, eight alien ships appear on the 
top. all traveling directly at you! You 
move toward them and tire missiles But 
the more aliens you destroy the taster 
the remaining ones become It you get 
too good you must endure the "Flag- 
Ship" With sound eKects 1 




COSMIC 



Your ship comes out ot hyperspace 
under a convoy ot aliens You destroy 
every one But another set appears. 
These seem more Intelligent, You 
eliminate them, too Your fuel supply is 
diminishing You musl destroy two more 
sets betore you can dock The space 
station is now on your scanner Wilh 
sound! 



As you look down on your view, 
astronauts cry out tor rescue You must 
maneuver through the asteroids & 
meteors (Can you get oack to the space 
station') Fire lasers to destroy the 
asteroids, but watch out, there could be 
an alien FLAGSHIP lurking includes 
sound effects' 



ONLY 

$39.95 

(MODEL I) 



THE ALPHA JOYSTICK: 
REAL ARCADE ACTION 

□ Features the famous ATARI JOYSTICK 
DWorks with any Level II or disk system 
DPIugs directly into KB or E/l (next to printer port) 
QCompatible with any other TRS-80 accessories 
DSaves your keyboard 
DFun to experiment in BASIC. Simply use A = INP(O) 

to read the joystick 

□ Fully assembled, ready to plug in and use. 

Price includes Atari Joystick + Alpha Interface + 
instructions + demo program. The Alpha Joystick 
is backed by an unconditional money back 
guarantee. It you are not delighted with it, return it 
within 14 days for a prompt and courteous refund. 

Mb ALPHA Products 




■ nC Skf 

MODEL III 
JOYSTICK 

ONLY 

$49.95 



85-71 79th Street, Woodhaven, NY. 11421 



(212)296-5916 



Toll Free 

Order Line 

800-221-0916 

Hours: 9 AM- 5PM, EJS.T. 
For Info Call (212) 296-5916 

ADD $2 00 PER ORDER I OR SHIPPING AND HAMM ING 
WE ACCEPT VISA MASltRCHARGF CHECKS MO 
COD ADD $3 00 EXTRA 4Mk 

QUANTITY DISCOUNTS AVAILABLE '■jHKjj^^. 
NY RESIDENTS ADD SAI FS TAX ^H MS) ' 

UVtHSEAS ORDERS ADD 10% — 



SO INPUT 



SO MBUg 








Program continued 














7F71 FE3A 


00840 




CP 


58 


;A-F RANGE? 






7P73 3802 


00850 




JR 


C, STORE 


;NO, STORE IT 






7P75 C607 


00860 




ADD 


Ar7 


;YES, AD J ASCII A-F 






7F77 12 


00870 


STORE 


LD 


(DE) ,A 


[PLACE HEX DIGIT IN BUF 






7F78 13 


00880 




INC 


DE 


;BUMP BUF POINTER 






7P79 (3D 


00890 




DEC 


c 


(DONE WITH 4 DIGITS? 






7F7A 20EC 


00900 




JR 


NZ, DIGIT 


;NO, GET ANOTHER 






7F7C 3E48 


00910 




LD 


A,'H' 


;ADD H ON THE END 






7F7E 12 


00920 




LD 


(DE) ,A 


;TO BUFFER 






7F7F C9 


00930 
00940 




RET 












00950 


■V. HEX 


STRING TO VALUE TO DECIMAL STRING CONVERSION 






7F80 0600 


00960 


HEX 


LD 


B,0 


;INTIALIZE CHAR COUNT 






7F82 CDEA7F 


00970 


HXSRCH 


CALL 


SRCH 


(SEARCH FOR 0-9 CHAR 






7F85 30FB 


00980 




JR 


NC, HXSRCH 








7F87 FE47 


00990 




CF 


•G* 


(GREATER THAN F? 






7F89 3004 


01000 




JR 


NC, NOHEX 


(YES, NOT HEX CHAR 






7F8B FE41 


01010 




CP 


'A' 


(GREATER THAN A? 






7F8D 30F3 
CH 


01020 




JR 


NC, HXSRCH 


(YES, HEX: CONTINUE SEAR 






7F8F 05 


01030 


NOHEX 


DF.C 


B 


(1ST CHAR NON HEX? 






7F90 2848 


01040 




JR 


Z, RESET 


(YES, RESET AND RETURN 






7F92 04 


01050 




INC 


B 


(RESTORE COUNT 






7F93 04 


01060 




INC 


B 


(ACCOUNT FOR H CHAR 






7F94 78 


01070 




LD 


A , 3 


(SAVE IT 






7F95 32C37F 


01080 




I,D 


(BKSPCE+1) ,A 






7F98 110000 


01090 




LD 


DE,0 








7F9B EB 


01100 




EX 


DE.HL 


;HL»0s DE-SCREEN LOC-1 






7F9C 13 


01110 


NEXT 


INC 


DE 


(BUMP SCREEN POINTER 






7F9D 1A 


01120 




LD 


a, ;de) 


(GET CHAR IN A 






7F9E FE48 


01130 




CP 


•H' 


(H? 






7FA0 2810 


01140 




JR 


Z, DECML 


; YES, END OF STRING 






7FA2 29 


01150 




ADD 


HL,HL 


(SHIFT HL LEFT 4 BITS 






7FA3 29 


01160 




ADD 


HL,HL 








7FA4 29 


01170 




ADD 


HL,HL 








7FA5 29 


01180 




ADD 


HL,HL 








7FA6 FE3A 
7FA8 3 002 


01190 
01200 




CP 
JR 


■9*+l 

NC.LTR 


(GREATER THAN 9? 
(YES, A-F 






7FAA C607 


01210 




ADD 


A, 7 


*NO, 0-9 






7FAC D637 


01220 


LTR 


SUB 


55 


(ADJUST TO REAL VALUE 






7FAE B5 


01230 




OR 


L 


(MERGE A AND L INTO A 






7FAr 6P 


01240 




LD 


L,A 


(MERGED VALUE BACK TO L 






7FB0 18EA 


01250 




JR 


NEXT 


(LOOP FOR ANOTHER DIGIT 






7FB2 010000 


01260 


DECML 


LD 


BC,0 


(MAKES ROM WORK BETTER 






7FB5 222141 


01270 




LD 


(4121H) ,HL 


( INTEGER WORK AREA 






7FB8 21FA7F 


01280 




LD 


HL,BUF 


(START OF BUFFER 






7FBB CD2F13 
EC 


01290 




CALL 


132FH 


,-ROM COVERTS VALUE TO D 






BR 


01300 

01310 








( STRING, STORE IN BUFF 








01320 


J VI. AUTO BACKSPACE GENERATOR 








7FBE AF 


01330 


BKMODE 


XOR 


A 


(SET FLAG TO BACKSPACE 






7FBF 32187F 


01340 




LD 


(MODE+1) ,A 








7FC2 3E00 


01350 


BKSPCE 


LD 


A,0 


(MODIFIED BY PROGRAM 






7FC4 3D 


01360 




DEC 


A 


(SET CONDITION FLAGS 






7FC5 32C37F 


01370 




L^, 


(BKSPCE+1) ,A 


(RESET BACKSPACE COUNT 






7FC8 3E08 


01380 




LD 


A, 8 


(BACKSPACE CHAR 






7FCA C0 
S 


01390 
01400 




RET 


NZ 


(RETURN BACKSPACE UNLES 
; COUNT IS 






7FCB 3E01 


01410 


CHRFLG 


: D 


A,l 


(SET FLAG TO PRINT 






7FCD 32187F 


01420 
01430 




LD 


(MODE+1) ,A 


,- CONVERTED CHAR'S 








01440 


;VII. AUTO CONVERTED CHARACTER 


GENERATOR 






7FD0 2IFA7F 


01450 


BUFPTR 


LD 


HL,BUF 


(MODIFIED BY PROGRAM 






7PD3 7E 


01460 




LD 


A,(HL) 


(GET BUF CHAR IN A 






7FD4 B7 


01470 




OP. 


A 


; CHECK FOR BYTE 






7FD5 23 


01480 




INC 


HL 


(UPDATE BUF POINTER 






7FD6 22D17F 


01490 




LD 


(BUFPTR+1) ,HL 


(SAVE IT 






7FD9 C0 


01500 
01510 
01520 




RET 


NZ 


[RETURN BUF CHAR IF 
[ NOT AT END OF BOP 








01530 


J VIII. 


RESET 


TO REGULAR MODE ROUTINE 






7FDA 21FA7F 


01540 


RESET 


LD 


HL,BUF 


(RESET BUF PTR 






7FDD 31DD7F 


01550 
01560 
01570 


STKPTR 


LD 


SP,S 


[MODIFIED BY PROGRAM. 
[ FIX STACK FROM 
[ JP'S FROM SUB'S 






7FE0 22D17F 


01580 




LD 


(BUFPTR+1) ,HL 








7FE3 3B02 


01590 




LD 


A, 2 


[RESET MODE FLAG 






7FE5 32187F 


01600 




LD 


(MODE+1) ,A 








7FE8 AF 


01610 




XOR 


A 


[RETURN NULL CHAR 






7FE9 C9 


01620 
01630 




RET 












01640 


(IX. BACKWARD 


ASCII 0-9 SEARCH 


SUBROUTINE 
















Program continues 









Continued from page 24 

ware and hardware, potential, price, per- 
formance and support; Profile excels in all 
of these areas (witness the enhanced ver- 
sion for the Model II). Yes, the problems 
with it limit its performance under certain 
conditions, the solution is not to exceed 
its limits. Unfortunately, without the help 
of someone who knows what those limits 
are, that is almost impossible. 

I apologize if I gave the impression that 
Profile was the greatest thing to walk the 
earth since Chivas Regal. It was meant in 
the context it was stated in, i.e. in 
reference to the Shack and the programs 
it had brought out before that and in com- 
parison to Microfiles. But do not give up 
on Profile, give up on the person who told 
you to buy it for your application. 

And not backing up your data! Xerox 
made a fortune on copy machines be- 
cause everyone indulged in the paranoia 
of lost information! On so fragile a media 
as a disk I would assume that no technical 
bulletin was necessary. 

My comments on Profile were centered 
on its flexibility and the amazing ability it 
has shown to be used/ Something lacking 
in many of the previous Radio Shack pro- 
grams. So, I allow you your disdain, since 
it does fit your application. But I also 
allow my surprise and enthusiam at such 
an enlightened program finding its way 
out of the Shack. 

Bill O'Brien 
New York, NY 



The following is an open letter to Ed 
Juge of Radio Shack. 



TRSDOS Manual Useless 

I am sitting in front of oneof your Model 
III machines with dual disk drives. I have 
your TRSDOS manual open on my lap. I 
have just saved a Basic program, follow- 
ing your manual's directions. Now, I have 
tried to load it, I have tried to run it. . . but 
all I get is "Direct Statement in File". 

Swell— but what does that mean? What 
can I do about it? How did it happen? How 
can I keep it from happening again? What 
is the status of my program? How can I 
get at my program to find out? As you pro- 
bably know, there is not one single word in 
your manual to answer any of these valid 
questions nor is there any information 
about any of the 40 other error messages 
(except a list). 

You constantly proclaim the sincere 

Continued on page 28 
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NOW MODEL I AMD MODEL III ! 



Now Model III users can take advantage of the ALPHA I/O system too. Our new 
MOD III/I BUS CONVERTER allows most port based Model I accessories (such as 
our ANALOG-80, INTERFACER 2 and INTERFACER-80) to connect to the Model III 
bus. MOD III/I BUS CONVERTER, complete with all connectors, only $39.95, 




2 Printer^ 



PRINTSWITCH 

Have 2 printers on line al all limes and select printer 1 or 
2 by means of a conveniently located switch. End the problem 
of constantly plugging and unplugging printer cables PRINT- 
SWITCH is a compact module that plugs onto the parallel printer 
port ol your TRS-80 and provides an edge connector tor each 
ol your two printers. It works with any two types of printers: 
dot matrix, daisy wheel, plotters, TRS-80 converted selectrics, 
etc. Assembled, tested, ready to use with connector and in- 
structions. For Model I or III (please specify) ONLY $59.00 



o^JP CABLES 

r on ra 



QfHT) 3 

®S 34Rn,54- 

© E>) 34 Pta, 2ft 

© F~D 34 Ph, 4ft 



J* 



9 



'^ 



40 ttt, 2 or 4 



I? 



SUPERIOR QUALITY REPLACEMENT & EXTENSION CABLES 

Highest quality cable and high lorce, gold plated contacts 
ensure the utmost in connection reliability 

O KEYBOARD TO EXPANSION INTERFACE $21. 

© DISK DRIVE CABLE FOR 1 OR 2 DRIVES $32. 

© DISK DRIVE CABLE FOR 3 OR 4 DRIVES $45. 

O DISK DRIVE CABLE EXTENDER $22. 

© PRINTER CABLE EXTENDER $24 

© 40 PIN BUS EXTENDER -2 ft. ..$22 4 ft $24 

Custom cable configurations are also available Call us 







YOU ASKED FOR IT: "EXPANOABUS XI. X2. X3 AND X4. 

CONNECT ALL YOUR TRS-80 DEVICES SIMULTANEOUSLY 
on the 40 pin TRS-80 bus Any device that normally plugs 
Into Ihe keyboard edge connector will also plug into Ihe 
•'EXPANDABUS". The "X4 is shown with protective 
covers (included) The TRS-80 keyboard contains Ihe bus 
drivers (74LS367) tor up to 20 devices more than you will 
ever need Using the E/l. il plugs either between KB and E/l 
or in the Screen Printer port Protessional Quality gold 
plated contacts Computer grade 40 conductor ribbon cable 
X2 $29 X3. .$44 X4 S59 X5 $74 

Custom configurations are also available call us 




ANALOG-80 A WORLD OF NEW APPLICATIONS POSSIBLE 
8 DIGITAL MULTIMETERS PLUGGEO INTO YOUR TRS-80 1 " 
Measure Temperature Voltage Current light Pressure etc 
Very easy to use lor example let s read input channel #4 10 
OUT 4 Selects input #4 and also starts the conversion 20 
A = INP|0) Puts the result in variable 'A Vona' 
Specifications input range 0-5V to 0-500V Eacn channel 
can be set to a different scale 

Resolution 20mV (on 5V rangel Accuracy 8 bits I 5%) Port 
Address lumper selectable Plugs into keyboard bus or E/l 
(screen printer porl I Assembled and tesled 90 day warranty 
.Complete with power supply, connector manual $139 



'SPECIAL THIS MONTH L 



$S 9 - 5 




DISK DRIVE EXTENOER CABLE, FREE YOUR MINI-DRIVES. 

End the daisy-chain mess once and for all Fits all mini- 
drives: Percom, Aerocomp, Shugart. Micropolis, MTI. Vista, 
Pertec, Siemens, BASF East lo install: just remove Ihe drive 
cover, plug in the EXTENDER CABLE and replace the cover. 

Now you can change and move your drives without dis- 
assembly Keep the cover on and Ihe dust out. High reliability 
gold plated contacts, computer grade 34 conductor cable. 
Tested and guaranteed 

Gel one lor each drive ONLY . .., $8 95 




TIMEOATE 80 REAL-TIME CLOCK/CALENDAR MODULE 

Keeps quartz accurate lime lot 3 years on 2 replaceable 
AAA batteries (not included) Gives MO/DATE/YR. DAY ol 
WfctK HR MIN SEC and AM/PM Features INTELLIGENI 
CALENDAR and even provides lor Leap Year This compact 
module simply plugs into rear ol Keyboard or side ol 
Expansion Interlace (may be slipped inside E'll Includes 
cassette software tor setting clock and patching to any DOS 
(including NEWDOS 80 2 0) Optional Y conneclor allows 
for lurlher expansion For Model I Fully assembled and 
tested Complete with instructions and cassette ONIY 



power relays unde? 

your 




INTERFACER-80: the most powerful Sense/Control module 

• 8 industrial grade relays, single pole double throw isolated 
contacts 2 Amp @ 1 25 Volts TTL latched outputs are also 
accessible lo drive external solid state relays 

• 8 convenient LEDs constantly display the relay states 
Simple "OUT" commands (in basic) control the 8 relays 

.8 optically-isolated inputs for easy direct interfacing to 
external switches photocells, keypads sensors etc 
Simple INP" commands read Ihe slatus ol Ihe 8 inputs 
Selectable port address Clean compact enclosed design 
Assembled, tested. 90 days warranty Price includes power 
supply cable connector superb user s manual $159 



GREEN SCREEN 

WARNING 

IBM and all Ihe ' ' biggies are using green screen monitors 

Its advantages are now widely advertised We leel that every 

TRS-80 user should enioy the benefits it provides Bui 

WARNING: all Green Screens are nol created equal Here is 

what we found 

•Several are |ust a Hat piece ol standard colored Lucite The 

green tint was nol made lor this purpose and is |udged by 

many lo be too dark Increasing the brightness control will 

result in a luzzy display 

•Some are simply a piece of thin plastic Mm taped onto a 

cardboard frame The color is satisfactory but Ihe wobbly film 

gives it a poor appearance 

•One "optical lilter" is in facl plain acrylic sheelmg 

•False claim A lew pretend to "reduce glare ' in lact. their 

flat and shiny surfaces (bolh film and Lucite type) ADD their 

own reflections to the screen 

•A lew laughs: One ad claims lo "reduce screen contrast 

Sorry gentleman but it's |ust the opposite One of the Green 

Screen's major benefits is to increase the contrast between 

the text and ihe background 

•Drawbacks Most are 'using adhesive strips to lasten their 

screen to Ihe monitor This method makes it awkward to 

remove for necessary periodical cleaning An (except ours) 

are flat. Light pens will nol work reliably because ol the big 

gap between the screen and Ihe lube 

Many companies have been manufacturing video filters lor 

years. We are not the first (some think they are), but we have 

done our homework and we think we manutaclure Ihe best 

Green Screen. Here is why 

tit fits righi onto the picture lube like a skin because n is the 

only CURVED screen MOLDED exactly lo Ihe picture tube 

curvature. II is Cut precisely lo cover the exposed area of the 

picture tube Ihe tit is sucn that the sialic electricity is 

sulficienl lo keep it in place 1 We also include some invisible 

reusable tape for a more secure fastening 

•The filler material lhal we use is |usl right, nol loo dark nor 

too lighl The result is a really eye pleasing display 

We are so sure that you will never lake your Green screen oft 

lhat we oiler an unconditional money-back guaranty try our 

Green Screen tor 14 days If loi any reason you are nol 

delighted with it. return it tor a prompt refund 

A last word We Ihink lhal companies, like ours, who are 

selling mainly by mail should •list their street address»nave a 

phone number (for quesiions and orders)»accepi CODs. not 

every one likes lo send checks to a PO box«otfer the 

convenience of charging their purchase lo maior credit cards 

How come we are the only green screen people doing if 

Order your ALPHA GREEN SCREEN today $1 2 50 



My ALPHA Products 



85-71 79 St.WOODHAVEN N.Y. 11421 



ADD S2 50 PER ORDER FOR SHIPPING ANO HANDLING 

ALL ORDERS SHIPPED FIRST CLASS MAIL 

WE ACCEPT VISA MASTER CHARGE CHECKS M 

COD ADD S2 00 EXTRA 

QUANTITY DISCOUNTS AVAILABLE ™ 

N Y RESIDENTS ADO SALES TAX M 



Info and order: (212) 296*5916 



INPUT 



SO MBUg 



Program continued 










7FEA 


04 


01650 


SRCH 


INC 


B 


;BUMP CHAR COUNT 


7FEB 




01660 




DEC 


BL 


;DEC SCREEN POINTER 


7FEC 


11FF3B 


01670 




LD 


DE,3BFFH 


;1ST SCREEN LOC-1 


7FEF 


DF 


01680 




RST 


18H 




7FF0 


38E8 


01690 




JR 


C, RESET 


;EXIT IF BEYOND SCREEN- 


7FF2 


7E 


01700 




LD 


A,(HL) 


SCREEN CHAR INTO A 




FE3A 


01710 




CP 


'9'+.i 




7FF5 


3F 


01720 




CCF 






7FF6 


Dfl 


01730 




RET 


C 


;YES, RET W/ CARRY 




FE3 


01740 




CP 


'0' 


;LESS THAN 0? 




C9 


01750 




RET 




;0-9? NO, RET W/ CARRY 






01770 


;x. 


SUFFER FOR 


HEX AND DEC 


STRINGS 


0005 




01780 


BUF 


DEFS 


5 




7FFF 


00 


01790 




DEFB 





,- TERMINATE WITH BYTE 






01800 




END 


INTLZE 




00800 TOTAL 


ERRORS 











The program listing that accompanied the article, "Micro Puzzle 
Box," was incorrect as printed in our January issue. Here is the 

correct listing. —Eds. 

5 ' 'RUN 50000" TO SKIP INSTRUCTIONS AND HEADER 
10 CLS:GOTO 25000 

10006 ' DISPLAY A(3,3X15-PUZZLE> 

10010 ' 0- BLANK SPC 

10020 CLS 

10030 FOR 1=0 TO 3 

10040 FOR J»0 TO 3 

10045 IF A(I,J)=0 THEN 10100 

10090 PRINTPI*6+J*3*64,DR$;A(I,J) ; 

10100 NEXT J, I 

10110 RETURN 

15000 ' CHECK FOR VICTORY 11! 

15010 FOR 1=0 TO 3:FOR J-0 TO 3 

15020 IF A(I,J)OB(I,J) THEN RETURN 

15030 NEXT J, I 

15040 PRINT@32+64,"YOU GOT IT 1 1 1"; 

15050 PRINT§32+128,"WITH ";MO;" MOVES."; 

15060 PRINT032+192, "PRESS ANY KEY TO RESTART:"; 

15070 IF INKEYS=" THEN 15070 ELSE 50000 

20000 ' INIT A{3,3) B(3 ,3) 

20005 DIM A(3,3) ,B(3,3) 

20010 FOR 1=0 TO 3:FOR J=0 TO 3sB(I , J) =J*4+I+1: A(I, J) =B(I . J) :NEXT J, I 

20020 B(3,3)=0:A(3,3)=0 

20025 XM=3:YM=3 

20027 GOSUB 10000 

20030 ' MAKE 100 MOVES, INCREASE LOOP SIZE TO IMPROVE SCRAMBLING 

20040 FOR 1=1 TO 100 

20050 XD«0:YD=0 

20060 IF RND(2)-1 THEN XD-RND(2) *2-3 ELSE YD=RND(2) *2-3 

20070 IF XD+XM<0 OR XD+XM>3 OR YD+YM<0 OR YD+YM>3 THEN 20050 

20 80 A(XM,YM)=A(XD+XM,YD+YM) : A (XD+XM , YD+YM) =0 

20032 PRINTaXM*6+YM*64*3,DRS;A(XH,YM) ; 

20083 XM=XD+XM:YK=YD+YM 

20084 PRINT@XM*6+YM*64*3,CLS; 

20085 PRINTP32,I; 
20090 NEXT I 
20100 RETURN 

25000 CLEAR 1000:DEFINT A-Z : CLS : PRI NT" 15 PIIZ ZLE" • PRI NT" 

BY DAVID MOEWS" 
25010 INPUT" DO YOU WANT INSTRUCTIONS (Y/N)";YNS 

250 15 YNS=LEFT$(YN$,1) 
25020 IF YNS-"N" THEN RUN 50000 
25025 IF YNSO"Y" THEN 25010 
25030 PRINT'THE 15 PUZZLE IS MADE UP OF 15 BLOCKS (NUMBERED 1 THROUGH 15) " 

25035 PRINT'AND 1 EMPTY SPACE" 

2 5 040 PRINT* IN A 4 X 4 FRAME. THE PUZZLE STARTS OUT IN A REGULAR" 

25050 PRINT'CONFIGURATION, THEN IT IS SCRAMBLED UP BY THE " 

25060 PRI NT "COMPUTER. YOUR OBJECT IS TO UNSCRAMBLE THE" 

25070 PRINT-PATTERN TO ITS ORIGINAL CONFIGURATION." 

25080 PRINT"PRESS ANY KEY TO CONTINUE:" 

25090 AS=INKEYS:IF A$="" THEN 25090 

25100 CLS:CCSUB 60000 

25110 FOR 1-0 TO 3:FOR J«0 TO 3sA(I,J) =1+1 +J*4s NEXT J, I 

25115 A(3,3)-0 

25120 GOSUB 10000 

Program continues 



Continued from page 26 

desire of Tandy to communicate with your 
customers. The most necessary form of 
communication for me is to know how to 
use the equipment you sell. For my money 
(which you now have), you have failed 
miserably with your TRSDOS manual. 
Your lack of any information about the 41 
errors is far overshadowed by the presen- 
tation of the main text. 

The hopeful (but quickly frustrated) 
user is told in detail about the syntax of all 
the commands available without the 
slightest hint on how these commands 
are used. For example, ATTRIB allows us 
to make files "invisible" while DIR lets us 
display them. Would I be prying into Tan- 
dy Corporations secrets if I ask what is the 
purpose of an "invisible" file? Is it really 
"invisible" if DIR can call it up? How do I 
use this feature in my programs? 

To a neophyte disk-owner, your manual 
is as useful as would be a spelling dic- 
tionary to a neophyte novelist— lots of 
words without any hint of meaning. After 
all the TRSDOS versions, why isn't there 
something like a "Getting Started With 
TRSDOS" so that I could use all my hard- 
ware? 

Nate Salsbury 
New Bern, NC 

Radio Shack Replies 

We do want to communicate with our 
customers. We try very hard to do just 
that, but we are human and make mis- 
takes. The fact that we did not include ex- 
planations of error codes listed for Model 
III TRSDOS and Disk Basic is unthinkable. 
We did miss it and we are now working to 
correct it. Thank you for bringing it to our 
attention. (In case you have not yet re- 
ceived an answer to the "Direct Statement 
in File" error, that means a command is 
contained in the file without program line 
numbers preceding it. It should not hap- 
pen if you are writing a program in Basic 
and saving it to disk. Where it most fre- 
quently occurs is using Scripsit to write 
your Basic program and forgetting to 
number a line or adding a direct command 
at the end of the file.) 

I cannot fully agree with your other ob- 
jections. We do include examples and 
sample uses. The specific example you 
mention was not covered because we 
thought it fairly obvious that an 
"invisible" file is one that is not normally 
"visible". How do you view file names? 
You list them using DIR — if you want to 
see the invisible files too, use DIR(INV). 

Continued on page 29 
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Continued from page 28 

The overall purpose was to enable you to 
unclutter the directory screen, yet let you 
see all files when you need or want to. 

We will look into your suggestion for a 
simple, comprehensive book covering 
TRSDOS. In the meantime, when you have 



questions like these, give your local Radio 
Shack store a call. They have an expanded 
computer department and should be able 
to answer almost any question you have. 
Also, remember that Computer Customer 
Services (1-800-433-1679) is available to 
you from 8 am to 5 pm central time to 



ft) MBUg 



Program continued 

25130 PRINT§37,"THE PUZZLE STARTS OFF" ; :PRINT§64+32 , "LIKE THIS. THE COMPUTE 

R"; 

25140 PRINT8128+32, "SCRAMBLES IT AROUND"; 

25150 PRINTgl92+32,"LIKE THIS:"; 

25160 PRINTg256+32,"<PRESS ANY KEY TO CONTINUED ; 

25165 IF INKEYS""" THEN 25165 

25170 XM=3:YM=3: GOSUB 20040 

25180 PRINTe32,"THEN YOU MOVE BLOCKS";CHRS(30) ; 

25190 PRINT66 4+32, "AROUND IN THE PUZZLE BY PRESSING" ;: PRINTS128+32, "THE ARR 

OW KEYS.";CHRS(30) ; 

25200 PRINT§192+32,"FOR EXAMPLE, IF YOU PRESSED THE"; 

25210 XD=0:YD— 1:ST$-"D0WN":S1$-CHR$(92) :S2$-"ABOVE" 

25220 IF YM»0 THEN XD»0 : YD=1 : ST$«"UP" :S1$=CHR$ (91) :S2$="BELOW" 

25230 PRINT@256+32,ST$;" ARROW KEY";CHR$(30) ; " (";S1S;")"; 

25260 PRINT@64*5+32,"THE BLOCK ";S2$;" THE"; 

25265 PRINTg64*6+32,STRINGS(10,32) ; STRINGS(LEN(S2S) ,131) ; 

25270 PRINT@64*7+32, "EMPTY SPACE WOULD MOVE ";ST$; 

25280 PRINT@64*8+32,"LIKE THIS:"; 

25290 PRINT@64*9+32,*<PRESS ANY KEY TO CONTINUED; 

25300 IF INKEYS-"" THEN FOR 1=1 TO 30 : NEXT: PRINT8256+32+12+LEN ( STS) , " ";:FO 

R 1=1 TO 30:NEXT:PRINTe256+32+12+LEN(ST$) ,Sl$;:GOTO 25300 

25310 A=XD+XM:B=YD+YM:M=XM:N»YM: GOSUB 30000 

25320 PRINTg64*9+32,CHR$(30) ; : PRINT@256+32+12+LEN(ST$) ,S1$; 

25330 PRINT@64*9+32,"THE OTHER ARROW KEYS FUNCTION"; 

25340 PRINT864*10+32,"IN A SIMILIAR WAY."; 

25350 PRINT@64*11+32,STRING$(13,32) ;CHR$(91) ;" UP"; 

25360 PRINT@64*12+32,"LEFT " ;CHR$ ( 93) ;STRING$( 15 ,32) ;CHR$ ( 94) ; " RIGHT"; 

25370 PRINT@64*13+32,STRING$(13,32) ;CHR$(92) ;" DOWN"; 

25380 PRINT@64*15+32,"<PRESS ANY KEY FOR THE GAME>"; 

25390 IF INKEYS="" THEN 25390 ELSE RUN 50000 

30000 ' MOVE <A,B> INTO <M,N> - EMPTY 

30010 ' DO NOTHING IF IMPOSSIBLE 

30015 L=0 

30020 IF A<0 OR A>3 OR B<0 OR B>3 THEN RETURN 

30030 IF ABS(A-M)>1 OR ABS(B-N)>1 THEN RETURN 

30040 IF ABS(A-M)=1 AND ABS(B-N)=1 THEN RETURN 

30050 IF A=M AND B=N THEN RETURN 

30060 A(M,N)=A(A,B) :A(A,B)=0 

30070 L— 1 

30150 PRINT@A*6+B*3*64,CL$; 

30160 PRINT@M*6+N*3*64,DR$;A(M,N) ; 

30163 MO=MO+1 

30165 GOSUB 15000 

30170 RETURN 

40000 ' KEEP TRACK 

40010 TI!=TI1+1:PRINT§32,"TIME: 

40020 AS=INKEYS:IF A$ = "" 

40030 XD=0:YD=0 

40040 IF A$=CHRS(91) THEN YD=1 

40050 IF A$=CHRS(10) THEN YD=-1 

40060 IF A$=CHR$(8) THEN XD=1 

40070 IF A$=CHR$(9) THEN XD=-1 

40080 A=XM+XD:B=YM+YD 

40090 M=XM:N=YM 

40100 GOSUB 30000 

40190 IF L THEN XM=A:YM=B 

40200 GOTO 40000 

50000 ' DO IT1 

50002 CLS 

50003 CLEAR 1000:DEFINT A-Z 
50005 GOSUB 60000 
50010 GOSUB 20000 
50020 MO=0:TI1=0 
50060 GOTO 40000 
60000 ' INIT STRINGS 
60020 LN$=STRING$(6,24)+CHR$(26) 
60030 L1$=CHR$(151)+STRING$(4,131)+CHR$(171) 
60040 L2$=CHR$(14 9)+STRING$(4,32)+CHR$(170) 

60050 L3S=CHR$(181)+STRINGS(4,176)+CHRS(186) 

60060 DR$=L1$+LNS+L2$+LN$+L3$+STRINGS(5,24)+CHR$(27) 

60070 CSS=STRING$(6,32)+LN$ 

60080 CLS=CSS+CS$+CSS 

60090 L1$="":L2$="":L3$="":LN$="":CS$-"" 

60100 RETURN 



'; Til; "MOVES: ";MO; 
GOTO 40010 



answer computer related questions. 

I hope that this information helps, but if 
not, don't hesitate to let me know. 

Bill Walters, 

Consumer Information Manager 

Tandy/Radio Shack 

Fort Worth, TX 

NEC Spinwriter 5530 

Wayne Mueller's article "A Driven 
Printer" (80 Microcomputing, November 
1981) presents a software solution to a 
common printer interface problem— the 
generation of automatic line feeds after 
carriage returns. However, for the specific 
printer he is working with, the NEC spin- 
writer 5530, a special driver is not nec- 
essary. 

I have successfully used a Spinwriter 
for almost a year without special soft- 
ware. This is possible because much of 
the Spinwriter's behavior is determined by 
32 internal switches. For example, line 
feeds are automatically generated after 
carriage returns when switch 3 (number 
two on the PC board marked G9BNB) is 
turned off. Other switches determine de- 
fault character spacing, buffer size, and 
response to special characters. While 
these switches are not easily accessible, 
you need set them only once.. 

New purchasers should ask their Spin- 
writer dealer to set the switches. Make 
sure you receive a copy of the NEC "Spin- 
writer Model 5530 Product Description," 
which describes the functions of the inter- 
nal switches. 

Mr. Mueller's program also solves some 
special problems arising with particular 
programs. However for those people who 
only need automatic line feeds, these 
switches provide an easy solution. 

Steven J. Zeil 

University of Massachusetts 

Amherst, MA 

Quit 

In regard to the article "In Command" 
(80 Microcomputing, November 1981), 
there is a much easier way to keep your 
variables from being cleared than using 
On Error GOTO. 

If you exit the Edit mode using the Q 
command no variables are cleared; of 
course, no changes are made in the line. 
This works whether you enter Edit or the 
computer automatically enters Edit after 
a syntax error. 

David E. Martin 
Kokomo, IN 
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£ft ACCOUNTANT 

h\/ Mirhaol Tannonhaum PDA 



by Michael Tannenbaum C.P.A. 



"The growing business computer market is 
drawing software vendors like honey draws bees." 



If the past few months are any indica- 
tion, the new year will provide wonderful 
opportunities for the business microcom- 
puter user. The growing business com- 
puter market is drawing software vendors 
like honey draws bees. All this talent is 
having a salutary effect: Almost without 
exception, microcomputer software is 
more professional. 

The MBS 

A good example of the new breed of 
software is the Microcomputer Business 
General Ledger (MBS) system distributed 
by Instant Software, Peterborough, NH 
03458. The MBS system represents a new 
standard in documentation and pre- 
sentation. 

Developed by the Microcomputer 
Business International Ltd of Surrey, 
England, MBS is supplied in an attractive 
plastic binder. Inside the binder is a 
separate case containing the system disk, 
file disk and a notebook of meticulously 
detailed instructions. As an example of 
proper documentation, the notebook is 
extraordinary. It contains five sections: 

• Technical Specifications 

• Guidelines for Use 

• Using the System 

• Specific Program Operating 
Instructions 

• Appendices 

The first section (Technical Specifica- 
tions) presents program details, describes 
each file, defines record layouts and 
specifies system capacities. To aid in 
understanding processing flow, this sec- 
tion presents a simplified flowchart for 
each program in the system. Each flow- 
chart contains an input description, a file 
specification section, an output descrip- 
tion and a summary of processing pro- 
cedures. With this presentation even a 
data processing novice can understand 
the processing techniques used. 

This ledger system is of the "balance 
forward" type. This means all details of 
current transactions are removed from 
the files when a month is closed. Typical 
of most microcomputer ledger systems, 
research into prior period's balances 



must be accomplished with hardcopy. 
Although this is cumbersome, there 
should be no problem— this system 
generates many printouts. For example, 
when initializing a chart of accounts, the 
system prints a logging entry after each 
account is entered. 

Unlike most other ledger systems i have 
reviewed, MBS has almost no pre-defined 
reports. Missing are the pre-defined 
Balance Sheet, Income Statement and 
other normal financial reports. The user 
must define reports; up to 99 different 
ones are possible on a two-drive system. 
Because report formats take up file 
space, there is a trade-off between the 



"Good code should 

be protected, 

and this is a 

weli-protected system." 



number of reports, accounts and transac- 
tions that can be processed. You should 
carefully examine the list of report, trans- 
action and count capacities included 
in the technical specifications before run- 
ning the system. 

The designers of this system are ob- 
viously familiar with the limitations of the 
floppy disk. Technical specifications in- 
clude an interesting section on disk ac- 
cessing speeds, file handling, sort and 
merge speeds and transaction file posting 
times. This is the first time I have seen in- 
formation of this type in a financial soft- 
ware package. If the posting and sorting 
time estimates are accurate, this system 
should be a fast performer. For the limited 
test data that I posted, performance was 
quite good. 

This same section refers to the 
modified operating system. The results of 



the modification became apparent when I 
tried to PEEK at the system code. 
Although the system is written in Basic, 
my attempt to list a program resulted in 
garbage. To further protect the system, 
you must enter the warranty code during 
initialization. This code is then a perma- 
nent part of the disk. I am in favor of prac- 
tices such as this. Good code should be 
protected, and this is a well-protected 
system. 

Initialization 

Initialization procedures are unique. 
Booting the system results in a message 
from the designers rather than the 
familiar Tandy logo. Afteryou comply with 
initial requests, the system displays an in- 
teresting menu. You can purchase this 
system as a complete accounting system, 
including a financial planning module. 
(Because I had only the ledger portion, my 
attempts to reference other modules 
brought a message that that portion of the 
system was not present and it could be 
purchased from a dealer.) 

Referencing the General Ledger mod- 
ule brought me into the G/L menu. Unfor- 
tunately I was unable to do any process- 
ing. Returning to the manual (it often pays 
to read the instructions), I found that I had 
to initialize the files before I could enter 
data. You select file initialization pro- 
grams from a utility menu. File initial- 
ization procedures allow you to place files 
on different drives, select disk names, 
define the system password and create 
files. Apparently the file initialization pro- 
gram sets up a data base reference 
system— it is quite time consuming. 

Documentation 

After learning my lesson during initiali- 
zation, I decided to read the manual 
before assigning accounts. The chapter 
entitled Guidelines for Use contains a de- 
tailed discussion of how to design a chart 
of accounts. Since the account coding 
structure is not predefined, the system 
can accommodate any current account 
coding structure. The designers recom- 
mend that you choose a sequence which 
separates assets, liabilities and P & L ac- 
counts. Standard reports such as the Trial 
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Balance list accounts in low to high order 
and without a proper sequence, so the 
resulting reports could be confusing. 

This system accommodates both nu- 
meric and alphanumeric account codes. 
To illustrate the coding structure's flex- 
ibility a three page account listing is pro- 
vided. This ledger system could probably 
accommodate a complicated chart of ac- 
counts if account capacity is not a prob- 
lem. (As a CPA, I appreciate the sugges- 
tion in the manual that the chart of 
accounts selected be reviewed by the 
firm's accountant.) 

The second portion of Guidelines for 
Use includes an interesting discussion 
about clerical control. This should be re- 
quired reading for anyone concerned with 
installing a computerized system. Almost 
always ignored by software vendors, this 
area considers all required control pro- 
cedures (such as use of input control logs 
and report retention requirements). In ad- 
dition this section provides well drawn 
flowcharts illustrating input and output 
control concepts. To make the whole 
thing easier to install, key control forms 
such as the Security Backup Log, Journal 
Voucher, Accounts Master Control Log, 
Input Batch Control Form (among others) 
are all provided. 

This section also discusses backup 
procedures. Diagrams indicate daily, 
weekly and monthly file rotation pro- 
cedures. Because floppy disks are subject 
to wear, this chapter mentions the need 
for periodic disk replacement. Concern for 
disk integrity is also apparent when run- 
ning the system. The system tests the 
files to ensure that records are usable. If a 
bad record is detected, the system in- 
dicates a problem and attempts to repair 
it. If repair is not possible you will have to 
use a backup. With this technique, a bad 
or worn disk should be detected quickly 
so you can replace it before data is lost. 

The Report Writer 

The balance of the Guidelines section 
is a tutorial on how to use the report 
writer. The system has a few pre-defined 
internal reports (such as a trial balance 
worksheet and various input control 
listings). The report writer must define 
reports designed for external users of ac- 
counting data. Because this system con- 
tains an enormous amount of accounting 
information (such as prior period bal- 
ances and budgets), you can develop very 
informative reports. 

For example, consider a retail firm with 
many stores located in various cities and 
states. Each store must produce profit 
and loss reports for overall control pur- 
poses. However, often the same data is 



also required summarized by a taxing 
authority for tax planning purposes and 
again by a district supervisor for bonus 
calculation purposes. The MBS report 
writer can extract this data and generate 
comparative reports to the prior year or 
budget. Because the report writer allows 
grouping accounts and definition of total 
levels, you can prepare either detail 
reports by account or summary reports. 
You select the level of detail when you run 
the report printing program. 

A report file maintenance program cre- 
ates a report format. Reports are defined 
with six data types. These data types 
range from the heading of the report (Type 
One) to the number of blank lines required 
(Type Six) between totals. Unfortunately 
no control is available over form layout. 



"The system developers 

have contrived 

to keep you informed 

of what the computer 

is doing at all times. ,f 



The only formats accommodated are Ac- 
tual versus Budget versus Last Year, Ac- 
tual versus Budget with variance amount 
and percent and Actual versus History 
with variance amount and percent. The 
lack of format control and the insertion of 
footnote data will be a problem to a CPA 
who wishes to generate client reports. 
Retyping will be required to add textual 
material before you can issue the reports. 
In comparison to other programs in the 
system, the report file maintenance pro- 
gram is not easy to use. Data types are 
entered by designating a line number and 
entering each type line by line. After you 
make the entry, it is erased from the 
screen. As a result you must keep a man- 
ual record of the last line number used 
and its purpose to avoid confusion. 
Because reports are executed on a line- 
by-line basis, you should select line 
numbers that will permit future insertions. 
Failure to observe this rule makes later in- 
sertions of captions and accounts impos- 
sible. If you make an error when entering a 



data type, you must retype the entire line. 
It is advisable when preparing a brand 
new report to lay the whole report out 
manually in draft form before using the 
report file maintenance program. 

Using the System 

Setting the system in operation is 
covered in two chapters in the manual. 
The first chapter, quite short, covers start- 
up procedures and input edit conventions. 
Even though start-up is conventional, it is 
advisable to read this short chapter thor- 
oughly. This system, like many of the 
original Radio Shack systems, uses the 
F1 and F2 keys to abort incorrect program 
selections. Unfortunately this option is 
not listed on any program menu. 

This deficiency aside, MBS screen lay- 
outs are clean, attractive and informative. 
The system developers have contrived to 
keep you informed of what the computer 
is doing at all times. Most screens have a 
neat box on the top which contains the 
program name being executed, a descrip- 
tion of the program activity and the cur- 
rent date. Below the box are displayed ac- 
tions requested. If an entry is not made 
within 15 seconds, a box appears on the 
lower few lines of the screen with a re- 
quest "Waiting for Input". 

The system designers use formatted 
screens well. For example, when you cre- 
ate a new account, all fields in which you 
can store data are displayed at once. 
Selecting an appropriate field number 
moves the cursor to the field's location; 
the maximum field length is displayed. 
This procedure makes data entry rather 
like filling out a preprinted form. This is 
quite advantageous because account cre- 
ation requires you to enter an enormous 
amount of data. You may enter up to 13 
periods of history and 13 budget figures, 
in addition to the current periods and year- 
to-date activity amounts. 

Because initializing a chart of accounts 
is prone to error, all data entered is logged 
on the printer as you complete each ac- 
count entry. In addition, the computer 
halts data entry after the 50th item to sort 
the input information and update the files. 
Use hardcopy log and the pause to control 
the initialization procedure. You should 
compare input totals to the account totals 
batch by batch to prevent incorrect histor- 
ical and budget detail which may contam- 
inate future reports. 

To guide new operators through each 
program in the system the manual has 
detailed instructions and screen 
photographs. With these instructions 
there should be no difficulty in entering 
transactions and using each program. In 
addition, each output routine has error- 
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We will meet or 
beat any price 



'-'V-- 



m.s 



ACCOUNTANT 





MICROCOMPUTERS 

In fact, no matter what price you see 

advertised by Texas Computer Systems, 
Micro Management, Computer Plus, 
Pan American, or any authorized Radio 
Shack dealer tor TRS-80 Computers with 
pure factory installed memory and full 
warranty, we'll beat it! 

ATARI 

MICROCOMPUTERS 

We have consistently offered the best 
prices on 

APPLE . COMMODORE VIC-20 

OKIDATA • MICROLINE 
EPSON . WABASH • MAXELL 

— plus a complete line of Diskettes, 
Monitors, Modems and other 
accessories — all at the best delivery 
from the largest inventory in the 
Northeast. 

If you're looking for the best prices in 
the U.S.A., check the others, but call 
Computer Discount of America. 

TRS-80 and Radio Shack are trademarks of Tandy Co. 



write or call for FREE Computer Catalog 
with pictures, specs, accessories and prices. 

CALL TOLL FREE: 
800-526-5313 




COMPUTER DISCOUNT OF AMERICA. INC. 
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trapping procedures to help prevent major 
errors. However, the greatest aid to in- 
stallation is the hardcopy log printed after 
every entry that can affect a file. With this 
log you can track down and correct even 
the most subtle error. 

If you purchase this system as a stand- 
alone ledger, you will enter all data 
through the posting program. The posting 
program allows you to enter transactions 
for the current period or the next account- 
ing period. This procedure allows you to 
enter activity for the next period without 
being forced into an early closing for the 
current one, a nice touch. 

The transaction entry routine also facil- 
itates accrual entries. If you enter a trans- 
action as an accrual, it is marked for auto- 
matic reversal in the next period. During 
data entry, account validity is verified; 
however, an automatic balancing require- 
ment is not enforced. The designers of the 
ledger state that MBS "has its own batch 
balancing controls which will tell you 
when a batch of input data is out of bal- 
ance and by how much." They have elect- 
ed to give the user the option of posting 
out-of-balance batches. While I preferthat 
the system accept only balanced entries, 
there might be an occasion where a one- 
sided entry is required. Since the system 
requires printing of a record of all data in- 
put transactions, tracing an out-of-balance 
condition should be reasonably easy. 

This system has all the characteristics 
that I expect from a well-written and prop- 
erly documented general ledger system. A 
limited test cannot exercise all of the sys- 
tem's features; however, I see no reason 
why I could not install it for a client's use. 
Although the report format is too limited 



for professional use, it should be quite 
adequate for internal management. If, as 
indicated by the menu, you can install a 
fully integrated system, you could auto- 
mate all elements of accounting/record- 
keeping. This would be quite interesting 
and I look forward to obtaining additional 
modules in the future. 



Integrated Systems 

With respect to integrated systems, I 
have recently received the order entry, 
sales analysis and accounts payable 
modules for the three-disk COBOL series 
of Tandy systems. With the exception of 
the payroll portion, this represents a total- 
ly automated system of accounting/rec- 
ordkeeping for the Model II. Tandy advises 
that this system can be transferred to the 
new hard disk subsystem. When my hard 
disk system is delivered, I will retest all 
previously reviewed modules as an inte- 
grated system. I expect that this test will 
prove quite interesting. 

The COBOL system represents a sub- 
stantial achievement— a fully integrated, 
professionally designed software pack- 
age. With software such as this there 
should be no reason for a modest-size 
business to postpone automating record- 
keeping. 

The MBS system is in the same league 
and this increase in the choice of systems 
will benefit all. The MBS system with its 
different features and processing speed 
may prove more suitable for some clients 
than the more complicated Tandy system. 
Either way, we professionals will have a 
greater range of alternatives to help our 
clients into the computer age.B 





Tired of typing in all 
your programs? 

Save time 
and money! 
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Plus $1.50 ea. Postage & Handling 
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SOFT BITS 

a basic/assembly column 



by Roger Fuller 



One of my goals in this column is to 
provide simple machine code pro- 
grams which interface with Basic. To this 
end I will try to keep programs compatible 
with Models I and III, whether disk or not. 
While this month's program is consider- 
ably longer than 80 bytes, it still meets 
these criteria. 

Scripy is Born 

I wrote Scripy because I saw a need for 
a simple, easy to understand and operate, 
yet functional word processor. I want to 
thank Lynard Barnes for his article "More 
Write Stuff" (80 Microcomputing, Decem- 
ber 1981) which introduced me to this 
concept. 

Since most letters are only one page 
long and written on standard 8V2 by 1 1 pa- 
per, Scripy holds 66 lines of 64 characters. 
The screen thus functions as a window on 
the letter; the program needs only vertical 
scrolling for you to view the entire page. 

Scripy is actually a screen-oriented text 
editor rather than a word processor. I de- 
signed it to do the word processing in Ba- 
sic. Since it needs only 4,224 bytes of 
string space, there is ample room for addi- 
tional coding even in a 16K system. 

Dear John 

Scripy uses the four arrow keys for non- 
destructive cursor movement. You may 
change letters by over-typing. To insert an 
additional character in a line press the 
Break key to add a space at the current 
cursor location; then type the correct 
character. Press the Clear key to delete 
the character under the cursor. Pressing 
Enter moves the cursor to the beginning 
of the next line. Press all arrow keys simul- 
taneously to exit the input mode when you 
have finished entering text. 

When you add a character the remain- 
ing text on that line moves over one posi- 
tion. (The last character is discarded.) 
When you delete a character the remain- 
ing text on that line moves in one position 
and the program places a space at the end 
of the line. Text will not automatically 
wrap around when the end of a line is en- 
countered. You may type a character in 
the very bottom of the screen without the 
screen scrolling up because Scripy does 



not use the video driver to print on the 
screen. 

Scripy uses only one ROM routine, 
Radio Shack's documented address 
002BH. This key scan works just like Ba- 
sic's INKEY$. On the Model III the key 
scan provides auto repeat and lowercase. 
Model I users may use drivers to accom- 
plish the same functions if desired. Such 
drivers do not interfere with the program's 
operation. 

To load and save text strings with a 
tape-based system, you must write a spe- 
cial conversion scanner to change quota- 
tion marks to some other code (such as 
CHR$(127)). If you have a disk system you 
can use Line Input or random access to 
avoid the same problem. 



"Scripy is actual iy 

a, screen-oriented 

text editor 

rather than a 

word processor." 



The simple initialization routine shown 
in Program Listing 1 fills the strings with 
spaces and ensures that they are contigu- 
ous in memory. The strings must be in 
order from lowest to highest for the pro- 
gram to work properly. You can relocate 
the object code to any place in memory 
with an assembler. You can assemble the 
source code in a 16K system. 

When modifying the strings in Basic be 
sure to restore them to correct sequence 
and position before reentering Scripy. If 
you have Disk Basic, use the MID$ re- 
placement function to avoid disturbing 
the strings' lengths or positions. Tape or 
disk system users can employ the method 
shown in Program Listing 2 to restore the 



strings to the correct situation. 

The Programs 

I wrote Scripy in a top down manner. 
That is, I first developed the overall con- 
cept. Then I broke the main idea into ac- 
tual functions. Using these functions as 
subroutines to a main control loop made 
writing structured code easy. While I did 
not vigorously structure the assembly 
code for Scripy it does have many aspects 
of structured programming: 

• The program's core is on the first 
page. 

• Program control centers in a main 
loop. 

• Subroutines (with one exception) are 
entered at the top and exited at the 
bottom. 

• I assigned meaningful labels. 

• Visual separations follow program 
divisions. 

• I used many comments. 

• Program parameters are at the start 
of the code. 

You can enter Scripy via a USR call. 
Other methods are possible, but initializa- 
tion requires the address of the first char- 
acter in the text block. Normally, VARPTR 
generates the address and passes it to 
Scripy via the USR operand. 

Initialization also moves the first 
screen of text to the display and resets the 
counter, TOPCNT. (TOPCNT determines 
which line of text is currently displayed at 
the top of the screen.) 

After initialization control drops to the 
main loop entry section. Here the cursor 
pointer is updated by loading the contents 
of register pair DE into the storage loca- 
tion assigned for this pointer. DE passes 
the current cursor location to subroutines 
and back. The cursor flash switch is test- 
ed; if it is on the cursor is displayed to 
the screen. 

At last the key scan loop is entered and 
the screen pointer and the string pointer 
HL are saved. HL points to the location in 
memory corresponding to the character at 
the current cursor location. HL also 
passes the current text character pointer 
to subroutines and back. 

Next, the flash counter and counter lim- 
it value are loaded. A SBC instruction 
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INTELLIGENT 
PRINTER INTERFACE 

Free Your Computer from the Mundane Task of Printing 



Imagine being able to use your 
computer seconds after beginning an 
extensive printout. 

Visualize your printout with page 
breaks, page numbering and titles, 
margins of your choice, indented 
carryover lines, on any size paper! 

Appreciate the time and money you 
will save by not waiting on your 
printer. 

SooperSpooler, a buffered printer 
interface, maintains control over your 
printer while you go on using your 
computer for more productive 
activities. Eliminate waiting while 
your printer pecks through a long 
document. SooperSpooler accepts 
information from your computer at up 
to 2500 characters per second and 
feeds it to your printer as fast as it can 
handle it — without using any of your 
computers memory or time! As soon 
as SooperSpooler has stored your 
document in its buffer, control of your 
computer is returned to you. 



SooperSpooler features include: 

16K Memory — Will handle most of 

your printing jobs (expandable, see 

options) 

Buffer Status Readout — Lets you 

know just how much data is stored 

Space Compression — Makes the 

best use of memory on columnar 

documents 

Pagination — Eliminates printout on 

page perforations 

Page Stops — For single sheet 

printouts 

Headers and Page Numbering — 

Give your listing a professional look 

Indentation on Carryover Lines — 

Easy to find the beginning of a line 

Self Test Routine — You instantly 

know that all is well 

All Features Software Controllable 

— Your program can take over 

Plugs into Most Computer 

Systems — Standard cables available 

$349.00!— 16K parallel I/O unit 



Options: 

• Serial Board— $95.00— Gives you 
the option of any combination of 
serial or parallel input or output. Can 
also be used for modem transmission. 

• Memory Expansion — $159.00 — 
Additional 46K for a total of 62K 

• Cables — Available per your 
application. 

TM 

SooperSpooler by Compulink 
— The missing link that gives 
your microcomputer 
mainframe printing. 

COMPULINK 

CORPORATION 

1840 Industrial Circle, Dept. A 

Longmont, CO 80501 

(303)651-2014 

Order line: 800-525-6705 

Dealer inquiries welcome 
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INTELLIGENT PRINTER INTERFACE 
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We accept 


• Checks 


• VISA 


• Money Orders 


• MasterCard 


• COD 



Add $3.00 per order for postage and handling 

COD add $3.00 

Colorado residents add sales tax 



Prices and Specifications Subject to Change 
Without Notice 
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If you have 

anything to do 

with the TRS-80* 

System you 

should be 

reading the 

EIGHTY 

SYSTEM 

NEWSLETTER 

every week! 



Don't miss a single issue of the new Eighty 
System Newsletter . . . published weekly and 
mailed every Friday by First Class Mail. This 
is the only publication designed lor personnel 
in the TRS-80* industry, including manufac- 
turers, distributors, dealers and computer 
users. The Eighty System Newsletter is 
compiled and edited by Ken Gordon, producer 
of the National TRS-80* Show, the Eighty/ 
Apple Show, the NJ Microcomputer Show, 
and publisher of the Amateur Radio Equip- 
ment Directory. Here is valuable information 
in professionally prepared format about TRS- 
80" hardware, software, peripherals, trends in 
the industry, and latest news. In addition, 
each weekly issue contains brief digests of 
articles related to the TRS-80* system 
appearing in over 100 computer related and 
general interest publications. This bibliography 
will save you both time and money in keeping 
up with articles in print on the TRS-80* 
computer system. The Eighty System News- 
letter is a must lor all active TRS-80* users, 
plus anyone involved in any way with the 
manufacturing, distributing or retailing of 
TRS-80* products. 

Subscribe today: Mail the coupon with 
your check for $39 for the next 52 weekly 
issues (sent First Class Mail that's only 
75C per week.) If for any reason you are 
not satisfied with the Eighty System 
Newsletter — we will refund the undelivered 
portion of your subscription. 



KENGORE CORPORATION 

3001 Route 27 
Franklin Park, NJ 08823 
(201) 297-2526 

□ Enclosed is my check for 
$39 for the next 52 issues 
of The Eighty System 
Newsletter (sent First Class 
Mail). 

Name 

Company 

Address 

City State Zip 

•TRS-80 is a Registered Trademark of Tandy 
Corporation/Radio Shack Division. 
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compares the two values and branches 
program execution. The value of the 
counter DE is not destroyed by a SBC 



HL,DE operation. 

After the program makes this test for a 
statuschange it will either changethecur- 



1000 


< *************** LISTING 1 


1001 


i 


1100 


' ASSUMES AT LEAST 4224 BYTES OF STRING CLEARED 


1101 


1 AND S$() HAS ALREADY BEEN DIMINSIONED 


1102 


i 


1150 


IF FRE( nn ) ' CLOSES UP STRING SPACE 


1200 


FOR L%=6b TO STEP -1 : S$ (L%) =STRING$ (64 ,32) : NEXT 


1300 


i 


1400 


1 HERE PLACE YOUR LOAD ROUTINE IF ANY 


1500 


• 


1600 


1 HERE DEfxNE THE USR CALL ADDRESS AND MAKE THE CALL 


1601 


1 USE EITHER L%=USR( VARPTR( S $ ( 63 J ) ) 


1602 


• OR L%=USR1( VARPTR( S$(H) ) ) IF DISK 


1700 


• 


2000 


i************** LISTING 2 


2001 


i 


2100 


IF FREC") ' CLOSES UP STRING SPACES 


2101 


FOR L%=65 TO STEP -1 : S$(L%) = S$(L%) + nn : NEXT 




Program Listing 1. 



Program Listing 2. 



F002 8F 
F003 00 
F004 001 
F006 00 
0032 



F007 CD7F0A 
F00A 23 
F00B 5E 



F00F E5 
F010 11003C 
F013 D5 
F014 010004 
F017 EDb0 
F019 AF 
F01A 3206F0 
F01D D] 
F01E El 



F01F 
F023 
F026 
F027 
F029 
F02C 
F02D 
F02E 
F02F 
F033 
F034 
F037 
F039 
F03B 
F03E 
F03F 



ED5300F0 

3A03F0 

B7 

2804 

3A02F0 

12 

D5 

E5 

ED5B04F0 

13 

219001 

EDS 2 

3019 

3A03F0 

B7 

2F 



00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

530 

00540 

00550 

00560 

00570 

00580 



'; S C R I P Y BY ROGER FULLER PUBLIC DOMAIN 

.******** ***** ********************************* *********** 



KQU 



CURLOC DEFS 

CURSOR DEFB 

ONOFF 

COUNT 

TOPCNT 

MAXCNT 



DEFB 
DEFW 
DEFB 
EQU 



02BH 



2 

143 



66-16 



; BASIC'S KE'i Sv,AN 



; CURSOR ADDRESS STORAGE 
; GRAPHIC OF 4 PIXEbS 

;0=OFF FF=ON 

; COUNTER FOR FLASHING 

; STRING LIwE AT SCKEEN TOP 

; LIMITS SCROLLING 



.************** INITIALIZATION SECTION AND USR ENTRY POINT 



USRADR 



CALL 

INC 

LD 

INC 

LD 

EX 

PUSH 

LD 

PUSH 

LD 

LDIR 

XOR 

LD 

PC) P 

POP 



0A7FH 
HL 

E, (HL) 

HL 

D, (HL) 

DE r HL 

HL 

DE,3C00H 

DE 

BC r 1024 

A 

(TOPCNT) ,A 

DE 

HL 



;GET STRING ARRAY ADDRESS 



;HL => STRING LINES 
;SAVE STRING POINTER 
;HOME CURSOR LOCATION 
;SAVE IT 

;ONE SCREEN OF STRINGS 
; DISPLAY IT 

(ZERO TOPCNT 

; RESTORE SCREEN POINTER 
;RESTORF, STRING POINTER 



t*********** main LOOP *******' 



LD 

LD 

OR 

JR 

LD 

LD 

PUSH 

PUSH 

LD 

INC 

LD 

SBC 

JR 

LD 

OR 

CPL 



(CURLOC) ,DE 
A, (ONOFF) 
A 

Z,KYLOOP 
A, (CURSOR) 
(DE) ,A 
DE 
HL 

DE, (COUNT) 
DE 

HL,400 
HL,DE 
NC,BLINKX 
A, (ONOFF) 
A 



UPDATE CURSOR LOCATION 

GET CURSOR FLASH SWITCH 

TEST IT 

IF CURSOR IS OFF 
ELSE GET CURSOR 
AND PUT T T ON SCREEN 

SAVE SCREEN POINTER 

SAVE STRING POINTER 

GET COUNT 

BUMP COUNT 

GET LIMIT VALUE 

TEST COUNT 

IF COUNT NOT OVER LIMIT 

GET CURSOR FLASH STATUS 

TEST IT 

CHANGE STATE 

Program Listing 2 Continues 
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Our drives feature excellent engineering, and 
all of the advanced performance features you've 
come to expect from the nation's leading disk 
drive manufacturers. All systems are completely 
burned-in and tested. And. you'll see at least 
five quality assurance stamps on each and every 
drive, which is how we make sure our drives 
will run and will continue to run past our 
optional two year extended warranty. 

Our drive packages start at $250.00 and in- 
clude a comprehensive operations manual and 
an attractive static free, dust free cover. 



Systems available for Altos. 1 Apple™, Atari. 
Heath™. North Star™. S-100, 2 TRS-80™ (Model 
I. II. III. Color). Zenith™. 

If one of our drives fails to meet your highest 
expectations of how trouble free and reliable a 
disk drive can be. then return it to us for a 
complete refund.* 

So. before you buy another drive, take a test 
drive with one of ours. We're sure that you'll 
findTRAXXtobethe 
finest. 

IT'S GUARANTEED! 






Call our toll-free TRAXX LINE: 1-800-621-3102. In Illinois, call: (312) 987-1024. 10AM-6PM CST. 
Monday thru Friday. "For full refund drives must be returned within 10 days of purchase. 



■ 
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F040 3203F0 


00640 


LD 


(ONOFF) ,A ; 


UPDATE SWITCH 






F043 2805 


00650 


JR 


Z, PUTCUR ; 


IF CURSOR IS OFF 






F045 El 


00660 


POP 


HL ; 


RESTORE STRING POINTER 






F046 E5 


00670 


PUSH 


HL ; 


AND SAVE IT AGAIN 






F047 7E 


006 80 


LD 


A,(HL) f 


GET CHAR 






F048 1803 


00690 


JR 


S+5 








F04A 3A02F0 


00700 PUTCUR 


LD 


A, (CURSOR) ; 


GET CURSOR CHAR 






F04D 2A00F0 


00710 


LD 


HL,(CURLOC) t 


POINT TO SCKEEN 






F050 77 


00720 


LD 


(HL),A ; 


DISPLAY CURSOR/CHAR 






F051 110000 


00730 


LD 


DE,0000H j 


RESET COUNTER 






F054 ED5304F0 


007 40 BLINKX 


LD 


(COUNT) ,DE | 


UPDATE COUNT 






F058 CD2B00 


00750 


CALL 


KEYIN 








F05B El 


00760 


POP 


HL 


RESTORE STRING POINTER 






F05C Dl 


00770 


POP 


DE 


RESTORE SCREEN POINTER 






F05D B7 


007 80 


OR 


A 








F05E 2008 


007 90 


JR 


NZ, KEYCK 


IF A NEW KEY TxPED 






F060 3A4038 


00800 


LD 


A,(3840H) j 


ARROW KEYS ROW ADDRESS 






F063 FE78 


00810 


CP 


120 


ALL ARROWS PRESSED 






F065 20C6 


00820 


JR 


NZ,KYLOOP 


IF NOT EXIT CONDITIONS 






F067 C9 


00830 
00840 ; 


RET 




















00860 ; 












F068 F5 


00870 KEYCK 


PUSH 


AF 


SAVE CHAR 






F069 7E 


008 80 


LD 


A, (HL) 


GET CHAR UNDER CURSOR 






F06A 12 


00890 


LD 


(DE) ,A 


PUT ON SCKEEN 






F06B 3EFF 


00900 


LD 


A,0FFH 


CURSOR ON STATUS VALUE 






F06D 3203F0 


00910 


LD 


(ONOFF) ,A 


UPDATE SWITCH 






F070 E5 


00920 


PUSH 


HL 








F071 210000 


00930 


LD 


HL,0000H 








F074 2204F0 


00940 


LD 


(COUNT) ,HL 


RESET FLASH COUNTER 






F077 El 


00950 


POP 


HL 








F078 Fl 


00960 


POP 


AF 


RESTORE CHAR 






F079 FE5B 


00970 


CP 


5BH 


T 






F07B CAC2F0 


00980 


JP 


Z,UP 


E 






F07E FE1B 


00990 


CP 


1BH 


S 






F080 CAC2F0 


01000 


JP 


Z,UP 


T 






F08J FE0A 


01010 


CP 


0AH 








F085 CAE1F0 


01020 


JP 


Z,DOWN 


A 






F088 FElA 


01030 


CP 


1AH 


R 






F08A CAE1F0 


01040 


JP 


Z,DOWN 


R 






F08D FE08 


01050 


CP 


08H 









F08F CA01F1 


01060 


JP 


Z P BACK 


W 






F092 FE18 


01070 


CP 


18H 








F094 CA01F1 


01080 


JP 


Z,BACK 


K 






F097 FE09 


01090 


CP 


09H 


E 






F099 CA0BF1 


01100 


JP 


Z,OVER 


Y 






F09C FE19 


01110 


CP 


19H 


S 






F09E CA0BF1 


01120 


JP 


Z,OVER 








F0A1 FE1F 


01130 


CP 


1FH 








F0A3 CA3CF1 


01140 


JP 


Z, DELETE 


; CLEAR KEY 






F0A6 FE0D 


01150 


CP 


0DH 








F0A8 CA17F1 


01160 


JP 


Z, ENTER 


; ENTER KEY 






F0AB FE01 


01170 


CP 


01H 








F0AD CA65F1 


01180 


JP 


Z, INSERT 


; BREAK KEY 






F0B0 FE20 


01190 


CP 


20H 








F0B2 38*>B 


01200 


JR 


C, KEYCKX 


IF NOT PRINTABLE ASCII 






F0B4 12 


01210 


LD 


(DE) ,A 


ELSE PUT ON SCREEN 






F0B5 77 


01220 


LD 


(HL) ,A 


AND IN STRING 






F0B6 7B 


01230 


LD 


A,E 


LSB OF CURSOR LOCATION 






F0B7 E63F 


01240 


AND 


63 


ADJUST TO TAB POSITION 






F0B9 FE3F 


01250 


CP 


63 








F0BB 2802 


01260 


JR 


Z, KEYCKX 


IF AT END OF LINE 






F0BD 23 


01270 


INC 


HL 


ELSE BUMP STRING 






F0BE 13 


01280 


INC 


DE 


AND SCREEN POINTERS 






F0BF C31FF0 


01290 KEYCKX 
01300 ; 


JP 


SCRIPY 








F0C2 7B 


01320 UP 


LD 


A,E 








F0C3 FE40 


01330 


CP 


64 








F0C5 3010 


01340 


JR 


NC,UP2 


NOT TOP ROW 






F0C7 7A 


01350 


LD 


A,D 








F0C8 FE3C 


01360 


CP 


3CH 








F0CA 200B 


01370 


JR 


NZ,UP2 


NOT TOP ROW 






F0CC 3A06F0 


01380 


LD 


A, (TOPCNT) 








F0CF B7 


01390 


OR 


A 








F0D0 280C 


01400 


JR 


Z,UPX 


IF CAN'T SCROLL DOWN 






F0D2 CD89F1 


01410 


CALL 


SCRNDN 


SCREEN DOWN 






F0D5 1807 


01420 


JR 


UPX 








F0D7 01C0FF 


01430 UP2 


LD 


BC,-64 








F0DA EB 


01440 


EX 


DE,HL 








F0DB 09 


01450 


ADD 


HL,BC 


MOVE UP ON SCKEEN 






F0DC EB 


01460 


EX 


DE,HL 








F0DD 09 


01470 


ADD 


HL,BC 


MOVE UP IN STRINGS 






F0DE C31FF0 


01480 UPX 
01490 ; 


JP 


SCRIPY 














F0E1 7B 


01510 DOWN 


LD 


A,E 








F0E2 FEv.0 


01520 


CP 


0C0H 








F0E4 38ll 


01530 


JR 


C, DOWN 2 


NOT BOTTOM ROW 






F0E6 7A 


01540 


LD 


A,D 








F0E7 FE3F 


01550 


CP 


3FH 


Program Listing 2 Continues 



















Percom Disk Storage 

Quality Percom products are available from 
the following authorized Percom retailers 
If a retailer is not listed for your area, call 
Percom toll free at 1-800-527-1222 for the 
address of a nearby retailer, or to order directly 
from Percom. 

ARKANSAS 

MICROCOMPUTER SYSTEMS. INC Hot Springs (50 1 ) 623 5209 

ARIZONA 

SIMUTFK Tucson (602)323-9391 

CALIFORNIA 

Al I'M A BYTE ST( IRES Calabasas (213) 883-8594 

BF.RKEL.l-Y MICROCOMPUTERS Berkeley (415)848 7122 
COMPUTER INFORMATION EXCHANGE 

San Luis Rcy (714) 757-4849 

COMPUTER SERVICE CENTER Hollywood (2131 851-3431 

DESMAR ELECTRONICS Santa Clara (408)988-2208 

HOBBYWORLD Northridge (213)886-9200 

DISTRICT OF COLUMBIA 

THE PROGRAM STORE Washington (202! 337 4691 

FLORIDA 

F.NTRON, INC. Largo (813)586-5012 

MICROSYSTEMS SOFTWARE. INC 

Hollywood (305)983-3390 



GEORGIA 

COMMERCIAL DATA PRODUCTS Atlanta 

HAWAII 
COMPUTER CENTER Honolulu 

IDAHO 
OFFICE MAGIC COMPUTERS Boise 

ILLINOIS 
GARCIA & ASSOCIATES Chicag, 

KANSAS 
BESCO ELECTRONICS Shawnee 

GARDENS. INC Hutchinson 

KENTUCKY 
COMPUTER MAGIC Louisville 

MASSACHUSETTS 

lewksbury 
MARYLAND 



OMNITEK 
DAMASCUS C B 
ALTERNATE SOURCE 
THE CODE ROOM 

LEMBERGLRCO 



(404) 325-7800 

(8()h)4«H 2171 

(208)376 4613 

(312)782 9750 

[913)268-7633 
(316)669 8261 

(502) 893-9334 

(617)851 4580 

(301)2532101 

(517)487-3358 

(612)934 1826 

(314)422-3353 



COLUMBUS TV 
CURTRON1CS 



HARDSIOE 



Damascus 
MICHIGAN 

Lansing 
MINNESOTA 

F.den Prame 
MISSOURI 

Vienna 
NEBRASKA 

Columbus (402)564-5531 

Lincoln (402)423-7771 

NEW HAMPSHIRE 

Millord (8001258 1790 

NEW JERSEY 
CI IANNE1. 1 RADIO SI IACK Medford (609) 654 7454 

NEW MEXICO 
AUTEL ELECTRONICS Albuquerque (505)255-6451 

NEVADA 
PCS COMPUTER Us Vegas (702)870-4138 

NEW YORK 
H & E COMPUTRONICS Spnng Valley (914)425-1535 

MICRO 80 SYSTEMS Brooklyn (212)748-3236 

PROGRAMS UNLIMITED Jencho (800)645 6038 

STONYCLOVE NewYorkCity (212)391-8337 

DATASCAN COMPUTER SYSTEMS INC 



HOLL1DAY MFG. 



Selclen 
NORTH CAROLINA 

Greensbor 
OHIO 
FEI.DMAN ENTERPRISES Akron 

MPS Wadsworth 

PENNSYLVANIA 

ADVANCED MECHANIZATION Ivyland 

COMPUTER ANA1 YST'S New Bright. 



(516)698-6285 
(919)274 6346 

(216) 724-5583 

1216)330 27V! 

(215)672-9000 
(412)846-9323 
SUNRISE ELECTRONICS Chambersburg (717)264-8214 

TENNESSEE 
COMPUTER WORLD INC Nashville (615)244-6094 
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TEXAS 

PERCOM COMPUTER CENTER Richardson 

COMPUTER TO GO Austin 

BREEZE QSD INC Dallas 

TEXAS COM! 'U ! LP. SYSTEMS Arlington 

UTAH 
MICRO MNEMONICS Sunset 

WASHINGTON 
COMPUTER SERVICE"- Kennewick 

NORTHWEST COMPUTER SERVICE 

Bellvue 
WEST VIRGINIA 
BURCO DISTRIBUTORS Huntington 

WISCONSIN 
BYTE SHOP MILWAUKEE Greenfield 

FINAMORES Marshfield 

FOREIGN DEALERS 

AUSTRALIA 

DICK SMITH ELECTRONICS P.O. Box 321 North Ryde NSW2113 

CANADA 
VAEFRIOTE AND ASSOC Guelph Ontano (416)624-4899 

DVR ELECTRONICS SurreyBC (604)576 1045 

COTS MICROSYSTEMS. LTD Ottawa (613)741-7937 

MICRO COMP ENTERPRISES INC Pickering (416)839-4561 

MICRO MART Montreal (514)731-9486 

MEXICO 
CIBERMATIC.SA Mexico (905)592 (433 

COMPUTADORAS Y ASESORAMIENTO 

Rio Pan vco 1 4 Mexico 5 D. F. 
DOMINICAN REPUBLIC 
RADIO SHACK Santo Domingo [804)565 9121 



(214) 690-0207 
(512)472-8926 
12141 -184 7976 
1817)274-5625 

(801)825-9317 

[509)582 9759 

;206) 4544979 

(304)453 6387 

1414)281 7004 
(715)384 9610 



'1981 PercomDataCo., Inc. 



Qtt)t $ercom $ertpf)era! 



35 cents 



Percom's DOUBLER II tolerates wide variations in media, drives 



GARLAND, TEXAS — May 22, 1981 — 
Harold Mauch, president of Percom Data 
Company, announced here today that an im- 
proved version of the Company's innovative 
DOUBLER '* adapter, a double-density plug-in 
module for TRS-80* Model I computers, is 
now available. 

Reflecting design refinements based on both 
theoretical analyses and field testing, the 
DOUBLER II ", so named, permits even great- 
er tolerance in variations among media and 
drives than the previous design. 

Like the original DOUBLER, the DOU- 
BLER II plugs into the drive controller IC 
socket of a TRS-80 Model I Expansion Inter- 
face and permits a user to run either single- or 
double-density diskettes on a Model I. 

With a DOUBLER II installed, over four 
times more formatted data — as much as 364 
Kbytes — can be stored on one side of a five- 
inch diskette than can be stored using a stan- 
dard Tandy Model I drive system. 

Moreover, a DOUBLER II equips a Model I 
with the hardware required to run Model III 
diskettes. 

(Ed. Note: See "OS-8CT: Bridging the TRS- 
80* software compatibility gap" elsewhere on 
this page.) 

The critical clock-data separation circuitry 
of the DOUBLER II is a proprietary design 
called a ROM-programmed digital phase-lock 
loop data separator. 

According to Mauch, this design is more 
tolerant of differences from diskette to diskette 
and drive to drive, and also provides immunity 
to performance degradation caused by circuit 
component aging. 




Percom DOUBLER II 



Mauch said "A DOUBLER II will operate 
just as reliably two years after it is installed as it 
will two days after installation." 

The digital phase -lock loop also eliminates 
the need for trimmer adjustments typical of 
analog phase-lock loop circuits. 

"You plug in a Percom DOUBLER II and 
then forget it," he said. 

The DOUBLER II also features a refined 
Write Precompensation circuit that more 
effectively minimizes the phenomena of bit- 
and peak-shifting, a reliability-impairing char- 
acteristic of magnetic data recording. 

The DOUBLER II, which is fully software 
compatible with the previous DOUBLER, is 
supplied with DBLDOS", a TRSDOS '- 
compatible disk operating system. 

The DOUBLER II sells for $2>C5, includ- 
ing the DBLDOS diskette. ^.J^il/LW 



K H.v *!«• 



Circuit misapplication causes diskette read, format problems. 

High resolution key to reliable data separation 



GARLAND, TEXAS — The Percom 
SEPARATOR" does very well for the Radio 
Shack TRS-80' Model I computer what the 
Tandy disk controller does poorly at best: reli- 
ably separates clock and data signals during 
disk-read operations. 

Unreliable data-clock separation causes for- 
mat verification failures and repeated read 
retries. 

CRC ERROR -TRACK LOCKED OUT 

The problem is most severe on high-number 
(high-density) inner file tracks. 

As reported earlier, the clock-data separa- 
tion problem was traced by Percom to misap- 
plication of the internal separator of the 1771 
drive controller IC used in the Model I. 

The Percom Separator substitutes a high- 
resolution digital data separator circuit, one 
which operates at 16 megahertz, for the low- 
resolution one-megahertz circuit of the Tandy 
design. 

Separator circuits that operate at lower 
frequencies — for example, two- or four- 



megahertz — were found by Percom to provide 
only marginally improved performance over 
the original Tandy circuit. 

The Percom solution is a simple adapter that 
plugs into the drive controller of the Expansion 
Interface (EI). 

Not a kit — some vendors supply an un- 
tested separator kit of resistors, ICs and other 
paraphernalia that may be installed by mod- 
ifying the computer — the Percom 
SEPARATOR is a fully assembled, fully tested 
plug-in module. 

Installation involves merely plugging the 
SEPARATOR into the Model I EI disk con- 
troller chip socket, and plugging the controller 
chip into a socket on the SEPARATOR. 

The SEPARATOR, which sells for only 
$29.95, may be purchased from authorized Per- 
com retailers or ordered directly from the fac- 
tory. The factory toll-free order number is 
1-800-527-1222. 

Ed. note: Opening the TRS-80 Expansion In- 
terface may void the Tandy limited 90-day 
warranty. ^ 2 



The Percom DOUBLER II is available from 
authorized Percom retailers, or may be ordered 
direct from the factory. The factory toll-free 
order number is 1-800-527-1222. 

Ed. note: Opening the TRS-80 Expansion In- 
terface may void the Tandy limited 90-day 
warranty. 1 

All that glitters is not gold 

OS-80^ Bridging the TRS-80* 
software compatibility gap 

Compatibility between TRS-80* Model I diskettes 
and the new Model III is about as genuine as a gold- 
plated lead Krugerrand. 

True. Model I TRSDOS* diskettes can be read on 
a Model III. But first they must be converted and re- 
recorded for Model III operation. 

And you cannot write to a Model I TRSDOS* dis- 
kette. Not with a Model III. You cannot add a file. 
Delete a file. Or in any way modify ■ a Model I 
TRSDOS diskette with a Model III computer. 

Furthermore, your converted TRSDOS diskettes 
cannot be converted back for Model I operation. 

TRSDOS is a one-way street. And there's no re- 
treating. A point to consider before switching the 
company's payroll to your new Model III. 

Real software compatibility should allow the di- 
rect, immediate interchangeability of Model I and 
Model III diskettes. No read-only limitations, no 
conversion/re-recording steps and no chance to be 
left high and dry with Model III diskettes that can't 
be run on a Model I. 

What's the answer? The answer is Percom 's OS- 
80"' family of TRS-80 disk operating systems. 

OS-80 programs allow direct, immediate inter- 
changeability of Model I and Model III diskettes. 

You can run Model I single-density diskettes on a 
Model III; install Percom's plug-in DOUBLER™' 
adapter in your Model I, and you can run double- 
density Model III diskettes on a Model I. 

There's no conversion, no re-recording. 

Slip an OS-80 diskette out of your Model I and in- 
sert it directly in a Model III. 

And vice-versa. 

Just have the correct OS-80 disk operating sys- 
tem — OS-80, OS-80D or OS-80/III — in each com- 
puter. 

Moreover, with OS-80 systems, you can add. de- 
lete, and update files. You can read and write disket- 
tes regardless of the system of origin. 

OS-80 is the original Percom TRS-80 DOS for 
BASIC programmers. 

Even OS-80 utilities are written in BASIC. 

OS-80 is the Percom system about which a user 
wrote, in Creative Computing magazine. ". . . the best 
$30.00 you will ever spend. "t 

Requiring only seven Kbytes of memory, OS-80 
disk operating systems reside completely in RAM. 
There's no need to dedicate a drive exclusively for a 
system diskette. 

And, unlike TRSDOS, you can work at the track 
sector level, defining and controlling data formats — 
in BASIC — to create simple or complex data struc- 
tures that execute more quickly than TRSDOS files. 

The Percom OS-80 DOS supports single-density 
operation of the Model I computer — price is 
$29.95; the OS-80D supports double-density opera- 
tion of Model I computers equipped with a DOUB- 
LER or DOUBLER II; and, OS-80/III — for the 
Model Ml of course — supports both single- and 
double-density operation. OS-80D and OS-80/III 
each sell for $49.95. 

*^ 3 



PRICES ANDSPECIFICATIONSSUBJECTTOCHANGEWITHOUTNOTICE. PRICES DO NOT INCLUDE HANDLING AND SHIPPING. 

PERCOM DATA COMPANY, INC. 11220 Pagemill Road Dallas, Texas 75243 (214) 340-7081 

^Trademark of Percom Data Company, Inc. 'TRS-80 and TRSDOS are trademarks of Tar.dy Corporation which has no relationship to Percom Data Company. 'tCreative Computing Magazine, June, 1 980, page 26. 



■See List of Advertisers on page 402 
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F0E9 


200C 


01560 




JR 


NZ r DOWN2 , 


NOT BOTTOM ROW 


F0EB 


3A06F0 


01570 




LD 


A, (TOPCNT) 




F0EE 


FE32 


01580 




CP 


MAXCNT 




F0F0 


280C 


01590 




JR 


Z, DOWNX , 


IF CAN'T SCROLL UP 


F0F2 


CDB2F1 


01600 




CALL 


SCRNUP 




F0F5 


1807 


01610 




JR 


DOWNX 




F0F7 


014000 


01620 


DOWN 2 


LD 


BC,64 




F0FA 


EB 


01630 




EX 


DE,HL 




F0FB 


09 


01640 




ADD 


HL,BC , 


MOVE DOWN ON SCREEN 


F0FC 


EB 


01650 




EX 


DE,HL 




F0FD 


09 


01660 




ADD 


HL,BC 


MOVE DOWN IN STRINGS 


F0FE 


C31FF0 


01670 
01680 
01690 


DOWNX 


JP 


SCRIPY 










F101 


7B 


01700 


BACK 


LD 


A,E 




F102 


E63F 


01710 




AND 


63 




F104 


2802 


01720 




JR 


Z, BACKX ] 


IF AT START OF LINE 


F106 


IB 


01730 




DEC 


DE 


ELSE BACKUP ON SCREEN 


F107 


2B 


01740 




DEC 


HL 


AND IN STRINGS 


PI 08 


C31FF0 


01750 
01760 
01770 


BACKX 


JP 


SCRIPY 










F10B 


7B 


01780 


OVER 


LD 


A,E 




F10C 


E63F 


01790 




AND 


63 




F10E 


FE3F 


01800 




CP 


63 




F110 


2802 


01810 




JR 


Z, OVERX 


IF AT END OF LINE 


F112 


23 


01820 




INC 


HL 


ELSE MOVE OVER ON SCREEN 


F113 


13 


01830 




INC 


DE 


AND IN STRINGS 


F114 


C31FF0 


01840 
01850 
01860 
01870 


OVERX 


JP 


SCRIPY 




F117 


7B 


ENTER 


LD 


A,E 




F118 


FEL0 


01880 




CP 


0C0H 




F11A 


3 81 A 


01890 




JP, 


C,ENTER2 


IF NOT ON BOTTOM ROW 


F11C 


7A 


01900 




LD 


A,D 




F11D 


FE3F 


01910 




CP 


3FH 




F 1 1 F 


2015 


01920 




JR 


NZ,ENTER2 


IF NOT ON BOTTOM ROW 


F121 


3A06F0 


01930 




LD 


A, (TOPCNT) 




F124 


FE32 


01940 




CP 


MAXCNT 




F126 


2811 


01950 




JR 


Z, ENTERX 


•IF CAN'T SCROLL UP 


F128 


CDB2F1 


01960 




CALL 


SCRNUP 




F12B 


01C0FF 


01970 




LD 


BC,-64 




F12E 


09 


01980 




ADD 


HL,BC 


;MOVE UP IN STRINGS 


F12F 


EB 


01990 




EX 


DE,HL 




F130 


09 


02000 




ADD 


HL r BC 


;MOVE UP ON SCREEN 


F131 


EB 


02010 




EX 


DE,HL 




F132 


ED5300F0 


02020 




LD 


(CURLOC) ,DE 


;UPDATE CURSOR'S POSITION 


F136 


CDD6F1 


02030 


ENTER2 


CALL 


NXLINE 




F139 


C31FF0 


02040 
02050 
02060 


ENTERX 


JP 


SCRIPY 










F13C 


7B 


02070 


DELETE 


LD 


A,E 




F13D 


2F 


02080 




CPL 






F 1 3 E 


E63F 


02090 




AND 


63 


;A = REMAINING LINE LENGTH 


F140 


4F 


02100 




LD 


C r A 




F141 


0600 


02110 




LD 


B,0 


;NOW BC = REMAINING L&NGTH 


F143 


2812 


02120 




JR 


Z, ENDSPS 


;IF AT END OF LINE 


F145 


D5 


02130 




PUSH 


DE 




F14 6 


E5 


02140 




PUSH 


HL 




F147 


62 


02150 




LD 


H,D 




F148 


6B 


02160 




LD 


L,E 




F149 


23 


02170 




INC 


HL 


;HL => NEXT SCREEN CHAR 


F14A 


EDB0 


02180 




LDIR 




;MOVE UP LINE ON SCREEN 


F14C 


4F 


02190 




LD 


C,A 


.•RESTORE MOVE COUNT 


F14D 


El 


22200 




POP 


HL 


; RESTORE STRING POINTER 


F14E 


E5 


02210 




PUSH 


HL 


;THEN SAVE IT AGAIN 


F14F 


51 


02220 




LD 


D,H 




F150 


5D 


02230 




LD 


E,L 




F151 


23 


02240 




INC 


HL 


;HL -■•> NFXT STRING CHAR 


F152 


EDB0 


02250 




LDIR 




;MOVE UP LINE IN STRINGS 


F1.54 


El 


02260 




POP 


HL 




F155 


Dl 


02270 




POP 


DE 




F156 


4F 


02280 
02290 
02300 




LD 


C,A 


; RESTORE LENGTH CuUNT 


F157 


E5 


ENDSPS 


PUSH 


HL 




F158 


09 


2310 




ADD 


HL,BC 


;HL => END OF STRING LINE 


F159 


3620 


02320 




LD 


(HL),' ' 


;PUT A SPACE THERE 


F15B 


D5 


02330 




PUSH 


DE 




F15C 


EB 


02340 




EX 


DE,HL 




F15D 


09 


02350 




ADD 


HL,BC 




F15E 


3620 


02360 




LD 


(HL),' ' 


;AND AT END OF SCREEN LINE 


'.'160 


Dl 


02370 




POP 


DE 




F161 


El 


02380 




POP 


HL 




F162 


C31FF0 


02390 
02400 
02412 
02420 


; 


J P 


SCRIPY 




F165 


7B 


INSERT 


LD 


A,E 




F166 


2F 


02430 




CPL 






F167 


E63F 


02440 




AND 


63 


;A = REMAINING LINE LENGTH 
Program Listing 2 Continues 



sor/character and the status switch (ON- 
OFF) or not. If the cursor/character re- 
quires changing, a CPL instruction flips 
the switch, updates it and displays the ap- 
propriate cursor/character. Line 650 
chooses the cursor or character since a 
CPL does not disturb the results of the OR 
A test at line 620. If the cursor is not to be 
displayed, the string pointer is restored 
and JP $ + 5 skips the get cursor 
instruction. 

This jump counts from the address of 
the current instruction to the address of 
the instruction at line 710, or five bytes. 
This saves creating another label for just 
this short jump. (I do not use this tech- 
nique very often, and only for jumps under 
10 bytes.) The program flow merges again 
and either updates or resets the flash 
counter, depending on the value of DE. 

Now the program scans and tests the 
keyboard for a character. If there was no 



"Put any text processing 
routines. . .just before 
the Return instruction." 



new key, the program examines the ad- 
dress of the arrow keys for the exit condi- 
tion. If all four keys are not pressed, con- 
trol (which is just another name for the 
program counter of the Z80) passes back 
to the main loop scanner. 

(Put any text processing routines like 
the conversion scanner mentioned earlier 
just before the Return instruction. If you 
do use such a scanner you will need to 
add a PUSH HL with its corresponding 
POP HL to save and restore the string 
pointer.) 

If you press a key, control is sent to an 
input key processor. This routine turns off 
the cursor and resets the flash counter so 
that the cursor moves without leaving the 
cursor at the old address. Resetting the 
counter makes the cursor visible instantly 
when moved. If I did not reset the counter I 
would be unsure of the cursor's position 
until it blinked on again. If you type a key 
that is not a control key or a printable 
character, control is sent back to the reen- 
try point of the main loop. 

If you type a printable key the program 
displays it at the current cursor location 
and puts it into the current text character 
location. The program then tests for the 
end of the screen line. If the end of the line 
has not been reached it updates the cur- 
sor location pointer and the current text 
character pointers and sends control 
back to the reentry point of the main loop. 
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Reader Service for facing page v29-~ 



mission: to defend 
/vivid survive! 




by Jeff Zinn 



Now Available: the Futuristic 



m 







I 



i 



^ 



Model 1 AND Model 3 owners may now purchase 
the new, exciting, and versatile "TRISSTICK". The 
TRISSSTICfC is compatible with all of our games and 
comes packaged with complete instructions for use 
with your own programs. It features the famous 
Atari joystick with a molded plastic interface 
module that simply "plugs in" to your computer: no 
modification or wiring is required. 



ia!iM mm 



1=) 




P.O. Box 9078-185 Van Nuys.CA 91409 (213) 782 6861 



Prices per game TRS-80 16K Lev2 Modi Mod3 Cassette - 
TRS-80 32K Lev2 Modi Mod3 Diskette 
Joystick (specify Modi or Mod3) — 

10% discount for 2 items ordered, 1 5% for 3 or more 

Please add $1 75 per order for shipping, foreign orders add $6.00. 

California residents please add 6% sales tax 



$ 1 5.95 All products ©1 982 by Big Five Software. 

$19.95 Programs are all 1 00% machine language for high quality graphics. Disk 

$39.95 version saves high scores to disk & is compatible with TRSDOS. Sound 

effects are playable through the cassette AUX plug. Please call or write for 
information on all of our products TRS-80 & TRSDOS are trademarks of 
Tandy Corp. 



SOFT BITS 



Program Listing 2 Continued 



F169 
F16A 
F16C 
F16E 
F16F 
F170 
F171 
F172 
F173 
F174 
F175 
F177 
F178 
F17 9 
F17A 
F17B 
F17C 
F17D 
F17E 
F180 
F181 
F182 
F184 
F185 
F186 



4F 

0600 

28E9 

D5 

E5 

EB 

09 

54 

5D 

2B 

EDB8 

4F 

El 

E5 

09 

5 4 

5D 

2B 

EDB8 

El 

Dl 

3E20 

12 

77 

C31FF0 



F189 
F18A 
F18B 
F18E 
F191 
F194 
F196 
F197 
F198 
F19B 
F19E 
F19F 
F1A0 
F1A1 
F1A4 
F1A7 
F1A9 
F1AC 
F1AD 
F1AE 
F1AF 
F1B0 
F1B1 



D5 

E5 

01C003 

11FF3F 

21BF3F 

EDB8 

El 

E5 

CDD6F1 

01C0FF 

C5 

09 

09 

11003C 

014000 

EDB0 

2106F0 

35 

CI 

El 

09 

Dl 

C9 



F1B2 
F1B3 
F1B4 
F1B7 
F1BA 
F1BD 
F1BF 
F1C0 
F1C1 
F1C4 
F1C7 
F1C8 
F1CB 
F1CD 
F1D0 
F1D1 
F1D2 
F1D3 
F1D4 
F1D5 



D5 

E5 

01C003 

11003C 

21403C 

EDB0 

El 

E5 

CDD6F1 

014000 

C5 

11C03F 

EDB0 

2106F0 

34 

CI 

El 

09 

Dl 

C9 



F1D6 ED5B00FI 
F1DA 7B 
F1DB 2F 
F1DC E63F 
FIDE 3C 
F1DF 4F 
F1E0 0600 
F1E2 09 

F1E3 EB 



02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02540 
02550 

02560 

02570 

02580 

02590 

02600 

02610 

02620 

02630 

02640 

02650 

02660 

02670 

26 80 

026 90 
02700 ; 

02710 ; 

2720 SCRNDN 
02730 

027 40 
02750 
02760 
02770 
027 80 
27 90 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
02870 
02880 
02890 
02900 
02910 
02920 
02930 
02940 
02950 ; 

02960 ; 

02970 SCRNUP 
02980 

02990 
03000 
03010 
03020 
03030 
03040 
03050 
03060 
03070 
03080 
03090 
03100 

03110 

03120 

03130 

03140 

03150 

03160 

03170 ; 

03180 ; 

03190 NXLINE 

03200 

03210 

03220 

03230 

03240 

03250 

03260 

03270 

03280 



LD 

Li) 

JR 

PUSH 

PUSH 

EX 

ADD 

LD 

LD 

DEC 

LDDR 

LD 

POP 

PUSH 

ADD 

LD 

LD 

DEC 

LDDR 

POP 

POP 

LD 

LD 

LD 

JP 



C,A 

B,0 

Z,ENDSPS 

DE 

HL 

DE,HL 

HL,BC 

D,H 

E,L 

HL 

C,A 

HL 
HL 
HL,BC 

D,il 
E,L 
HL 

HL 
DE 

A, ■ ' 
(DE) ,A 
(HL) ,A 
SCRIPY 



PUSH 

PUSH 

LD 

LD 

LD 

LDDR 

POP 

PUSH 

CALL 

LD 

PUSH 

ADD 

ADD 

LD 

LD 

LDIR 

LD 

DEC 

POP 

POP 

ADD 

POP 

RET 



PUSH 

PUSH 

LD 

LD 

LD 

LDIR 

POP 

PUSH 

CALL 

LD 

PUSH 

LD 

LDIR 

LD 

INC 

POP 

POP 

ADD 

POP 

RET 



F1E4 09 
F1E5 EB 
F1E6 C9 



03290 
03300 
03310 
03320 
03330 
TOTAL ERRORS 



;,D 

LD 

CPL 

AND 

INC 

LD 

LD 

ADD 

EX 



ADD 

EX 

RET 



DE 

HL 

BC,960 

DE r 3FFFH 

HL,3FBFH 

HL 

HL 

NXLINE 

BC,-64 

BC 

HL,BC 

HL,BC 

DE,3C00H 

BC,64 

HL,TOPCNT 

(HL) 

BC 

HL 

HL,BC 

DE 



DE 

HL 

BC,960 

DE,3C00H 

HL,3C40H 

HL 

HL 

NXLINE 

BC,64 

BC 

DE,3FC0H 

HL,TOPCNT 

(HL) 

BC 

HL 

HL,BC 

DE 



DE, (CURLOC) 

A,E 

63 
A 

C,A 
B,0 
HL,BC 

DE,HL 



HL,BC 
DE,HL 



;BC = REMAINING LINE LENGTH 
: IF END OF LINE 



DE => END OF SCKEEN LINE 
HL => NEXT TO LAST CHAR 
OPEN UP LINE ON SCREEN 
RESTORE MOVE COUNT 



DE => END OF STRING LINE 
HL => NEXT TO LAST CHAR 
OPEN UP STRING LINE 



;PUT A SPACE ON SCKEEN 
;PUT A SPACE IN STRING 



;15 ROWS TO MOVE 
;DE => END OF SCREEN 
;HL => END 2nd LAST ROW 
;MOVE THE ROWS DOWN 

: RESTORE STRING POINTER 



;SAVE FOR LATER USE 
;MOVE UP IN STRINGS UNTIL 
;HL => STRING TO BE MOVED 
;DE => TOP LINE OF SCREEN 
;BC = ONE LINE LENGTH 
;MOVE STRING TO SCREEN 

.■ADJUST TOP LINE COUNTER 



;HL => NEW STRING 

; AT SAME SCREEN POSITION 



;15 ROWS TO SCROLL 
;DE => TOP SCREEN LINE 
;HL => NEXT LINE DOWN 
;MOVE THEM UP 



;HL => START NEXT STRING 

;SAVE FOR LATER 

;DE => LAST SCREEN LINE 

;MOVE ONTO SCKEEN 

;BUMP TOP ROW COUNTER 



; ADJUST STRING POINTER 

;GET CURSOR ADDRESS 

;A = REMAINING LINE LENGTH 



;BC = DISTANCE TO NEXT LINE 
;MOVE STRING POINTER TO 
; START OF NEXT STRING 



;DE => NEXT SCREEN LINE 



If you press a control key, control is 
sent to the appropriate subroutine for ac- 
tion. At the end of each control key sub- 
routine, control returns to the reentry 
point of the main loop. 

Subroutines 

The main loop calls only three subrou- 
tines: SCRNUP, SCRNDN, and NXLINE. 
They return with DE, HL, CURLOC, and 
TOPCNT appropriately updated to reflect 
modified conditions. 

SCRNUP moves the bottom 15 lines up 
one line and replaces the last screen line 
with the appropriate line of text. SCRNDN 
moves the top 15 lines down one line and 
replaces the top screen line with the ap- 
propriate line of text. 

NXLINE moves both the cursor posi- 
tion and the text position to the start of 
the next appropriate line. NXLINE com- 
putes the distance on the screen, since 
the addresses of the end of a line on the 
screen have the last five bits set. Thus the 
distance can be added to each pointer. 
These three subroutines have no error 
checking, depending on the calling rou- 
tine for error detection. 

The left and right arrows update the 
pointers, provided that movement is 
allowed. The program tests for allowabil- 
ity on the cursor address since line ad- 
dresses for start and end of each screen 
line have the last five bits either zeros or 
ones respectively. The AND 63 operation 
strips off the high three bits and tests for 
zeros, or allows a CP 63 to test for ones. 

The up and down arrows move the 
pointers unless a screen scroll is required. 
If a scroll is required the main loop tests 
for allowability before calling the correct 
subroutine. Allowability testing is based 
on fixed screen addresses. 

The Enter key moves to the start of the 
next line and scrolls if required and al- 
lowed. When a SCRNUP is required the 
pointers are backed up one line after 
scrolling. This allows NXLINE to position 
the pointers as required. 

Delete moves the remaining text in un- 
less there is none. If so, it skips the move 
section and jumps to the end space sec- 
tion. Remember that everything done on 
the screen must also be done in the text. 
Insert moves the remaining text out one 
position unless there is none. If so it 
branches to ENDSPS. Delete and Insert 
are the only routines that do not exit at the 
bottom. 

Feel welcome to use, modify and ex- 
pand Scripy. Please send me your com- 
ments and suggestions on this column. I 
would appreciate your input in developing 
this column. My address is 630 East 
Springdale, Grand Prairie, TX 75051. ■ 
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MTI® can upgrade your 
TRS-80 Model III 



to have giant data storage 
like the Big Boys. 

with prices like the little guys. 

WINCHESTER/e 




MTI DOES IT AGAIN 






LIKE THE BIG BOYS. Ti 

access if on line s 1 

used b , lies, such as Xerox. IBM 

I DEC All of this and the 
!o 30 megabytes 
cally ai 'aster than floppy while 

maintd : / with TRS DOS 

and DOS ph 

SIMPLE INSTALLATION 

! Ill 

INCREASED APPLICATIONS. W.th tl 

WlNf ; 



OURS IS REALLY USEABLE: 

or 7 5 
lid allow vou 



BACK-UP CAPABILITY. The MTI WIN- 
ns fully ba< I iy TRS- 

80 Model ill floppy 

id up by file . Other 

rnodel- 

essional data 
storage 
pusine 



SIX MODELS AVAILABLE 

mbytes 
Winchester 7 

inytes) 

Wincheslei 7 5/e8Q with 80 irk dual hd (loppy 

Prices Irom S2.695. 

CP/M-80b MTI can turn your TRS-80 Model III 
into two computer systems, TRS-DOS. and 
CP/M By adding a CP/M card and an 80 x 24 
column video card, you will convert your compu- 
ter to a CP/M machine 

Speed-Up Enhancement *149. 

Internal Disk Drive J 695. 

External Disk Drive »379. 

WANT MORE? For more information call any 
of our 64 authorized sales and service centers 
listed below. If you prefer you can call or write 
us and we'll send you and a 



■ ■ 




JUST LIKE THE BIG BOYS. 


catalog 
















TRS-80 j ft 
























MTI AUTHORIZED SALES AND SERVICE CENTERS 






Anchorage. AK 


. . (907) 333-8322 


Redondo Beacn, CA 


(213) 370-5556 


Buckingham, IA 


(319) 478-2826 


Troy, NY 


(518) 273-8411 


Rodgers. AR 


(501) 636-9168 


Riverside, CA 


(714) 781-6361 


Belleville. IL 


(618) 277-2354 


White Plains, NY 


(914) 761-9283 


Mesa, A? 


(6C2) 833-8949 


San Diego, CA 


(714) 275-4243 


Collinsville, IL 


. (618) 345-5068 


Tonkawa. OK 


(405) 628-2693 


Phoenix A/ 


(602) 244-9739 


San Jose. CA 


(408) 946-1265 


Oak Parit. IL 


(312) 386-3323 


Tulsa. OK 


(918) 836-9503 


Sierra Vista. AZ 


(602) 458-2479 


Santa Ana. CA 


(714) 850-1228 


Shawnee. KS 


(913)631-2029 


Portland. OR 


(503) 281-7640 


Tucson, AZ 


(602) 323-9391 


Santa Monica, CA 


(213) 393-5785 


Ashland. KY 


(606) 325-2210 


Dallas. TX 


(214) 247-6679 


Anaheim. CA 


r 3-0240 


Vallejo. CA 


(707) 554-4933 


Shreveport, LA 


(318) 865-7189 


Missour City, TX 


(713) 499-5241 


Covina. CA 


(213) 332-4088 


Walnut, CA 


( 714) 594-9760 


Anoka, MN 


(612)427-5783 


San Angelo, TX 


(915) 658-3781 


Golela. CA 


(805) 967-7628 


Westlake Village, CA 


(213) 706-0333 


Cameron, MO 


. . (816) 632-6528 


Cheyenne, WY 


(307) 632-9132 


Ofl Beach. CA 


(714)842-1348 


Colorado Spring, CO 


(303) 630-3334 


Great Falls. MT 


(406) 737-0901 


Buenos Aires. ARG 


32-1858 


Inglewood, CA 


(213)673-3295 


Grand Junction. CO 


(303) 434-3616 


Missoula. MT 


(406)549-9715 


Paris, FRANCE 


306-4606 


Lancaster, CA 


(805) 942-5747 


Grolon, CT 


(203) 445-5166 


Raleigh, NC 


(919) 755-1175 


Holm, GERMANY 


4103-4315 


Montclair. CA 


(714) 626-4813 


Wilmington, DE 


(302) 762-0227 


Grand Forks. ND 


. (701) 772-7848 


Florence, ITALY 


55-45-4319 


,t\ CA 


(213) 886-9200 


Hollywood. FL 


(305)981-imi 


West Milford, NJ 


. . (201) 728-8080 


Singapore, JAPAN 


220-7182 


Orange CA 


(714) 771-0880 


Lynn Haven. fL 


.6452 


Las Vegas. NV 


(702) 870-4138 


Cape Town, S.AFRICA 


2145-1047 


Pacheco CA 


-A 9- 2260 


Mary Esther, FL 


(904) 243-5793 


Jericho. NY 


(516)333-2266 


Tahiti. F.P 


2-54-47 


Ptacerville. CA 


(916) 622-4640 


Tampa, FL 


! /-6023 


New Rochelle. NY 


(914) 235-4444 


Taichung, TAIWAN 


4228-5523 


Port Huememe. CA 


(805) 985-2329 


Norcross. GA 


(404) 449-8982 


Syracuse. NY 


(315) 487 5000 


Bang Kok. THAILAND 


314-1161 


1 T 1 












Call or write lor tree brochure: 


mm mm 


MICROCC 




US PRICES, F OB SANTA ANA 


niii 


3304 W W 
(714)979- 

on page 402 


IACARTHUR. SANTA ANA. CA 92704 
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M is a registered trademark o! Digital 


'.'erasers 
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it-Drive Systems 




from 

Internally mounted drives that feature double- or 
single-density storage, comprehensive pre- 
delivery testing, 48-hour burn-in and, best of all, 
Percom's widely acclaimed disk controller. A 
First-Drive System includes the four-drive disk 
controller, one or two drives, power supplies, 
cables and a fully illustrated owners manual. Use 
Model III TRSDOS*, Percom OS-80+ and all 
other Model III compatible DOSs. 



Note: If you prefer not to make the First-Drive 
System installation, we'll do it for only $29.95 
plus shipping. This includes a 48-hour operat- 
ing burn-in of your Model III computer, instal- 
lation of the drive system and final checkout 
of the expanded system. 




Our Own Fully Tester 



275 



Every Access Floppy Disk drive is electrically tested, mechanically tested and 
burned-in 48 hours under operating conditions. Look for the signed test list in 
the shipping carton. 

AFD drives are capable of either single- or double-density operation. Store up 
to 364 Kbytes (formatted) in double density. Store twice the data on a single 
diskette using AFD "flippy" drives." 

15-day free trial offer... comprehensive 90-day limited warranty... unbeatable 
prices... AFD-1 00 (a) $275.00, -100F (w $329.00, -200 @ $429.95, -200F (cv 

$449.95. 



How to order -Odor by calling Access Unlimited toll-free on 1-800-527-3475. Or order by man. 
Orders may be charged to a VISA or Master Card account, or paid by cashier's check, certified 
check or money order COD orders require 25% deposit. Sorry, we cannot accept personal 
checks. We pay shipping and insurance charges on orders over Si .000 00 Add approximate in- 
surance and shipping charges tor orders under $1,000.00 If in doubt about these Charges, ask 
when you call in your order. Texas residents include 5% sales tax. Minimum mail order $20.00 
Allow 2 to 4 weeks for delivery 
• Technical & Texas: (214) 340-5366 

Save! VISA and Master Card charges are not deposited 
until the day your order is shipped. 



PRICES AND SPECIFICATIONS SUBJECT TO CHANGE WITHOUT NOTICE. 



Everybody's Favorites - for Less! 



Percom Data Separator 

Green Screen I, II, or III 

Head Cleaning Kit 

Drive Numbering Tabs (pkg 0-3) 

5 1 / 4 " Flip-N-File 

8" Flip-N-File 



$23.95 
$18.95 
$24.95 
$3.00 
$24.95 
$39.95 






Percom's Proven DOUBLER II f 

irade Your Model I to Double Density for 
only $159.95 

And not with some unproven hacker's kit, either. But with an assembled and fully 
tested Percom DOUBLER-lh. The DOUBLER-llt simply plugs into the disk drive 
controller socket of your Expansion Interface. Then it lets you store over four 
times more on one side of a diskette, depending on the drive, than you can store on 
standard Tandy Model I drives. Other features: • Reads, writes and formats either 
single- or double-density • Includes DBLDOS'", a TRSDOS* compatible disk- 
operating system -Runs TRSDOS*, NEWDOStt, Percom OS-80t and other 
single-density software immediately. Change to double-density operation when con- 
venient • Lets Model III software be read on your Model I • Includes on-card high- 
performance data separation and write precompensation circuitry. 



kidata Printers! 



The two most popular printers on the 
market today. They provide the features 
you want, the reliability you need, a price 
you can afford. 

/IX-80 - Call for latest low price. 

Microline 80 only $399.95 

Other models available. 



Low Cost 
System Furniture 

Modular design permits cus- 
tom arrangements • Furniture 
styling and quality • TRS-80* 
colors • OK for UPS shipping 
• Reassemble without tools 

System desks from $115 
Printer stands from $144 




Arrick Products Quick-Switch^ 

Just flick a switch to connect your TRS-80" printer port from device #1 to 
device #2. Or, "Quick-Switch" a peripheral between computers. Versions 
for RS-232 or Centronics interfacing. Includes 5-foot 34-pin cable with 
card-edge socket, box-mounted 34-pin card-edge plugs. From $79.95. 

1 trademark of Arrick Products Company. 



'':» 



Save! Make ACCESS your one-call shopping center for TRS-80* 
hardware and software. Call our toll-free order number for free 
product literature and latest prices. 



Toil-Free 
Order No. 



-527-3475 



o 



(orders & literature only) 




^See List of Advertisers on page 402 
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SO REVIEWS 

edited by Michael E. Nadeau 



"You better have 

a good resolution tv 

to play these games." 



Games Trilogy: 
Color Space Invaders 
Meteoroids 
Space War 
Spectral Associates 
Tacoma, WA 
$59.95 cassette 

by David G. Bartlett 

They've always said that the Color Com- 
puter was capable of high resolution 
graphics. These games prove it. (You better 
have a good resolution tv to play these 
games.) All are in machine language and 
require 16K, but not Extended Basic. Mete- 
oroids and Space War require joysticks. 

Color Space Invaders 

Color Space Invaders is the same old 



game that you never get tired of playing, 
but this time you get the invaders waving 

their arms {or is it feet?) and blinking at 
you as they drop their bombs. This game 
can be played with the joysticks but it 
seems easier using the arrow keys and 
space bar. 

You do not have to play at all if you 
want, you can watch the computer play 
itself, but the computer plays such a lousy 
game that you soon get frustrated and de- 
cide to show it how it is done. You also 
have a movable defense shield that pro- 
tects you from falling bombs when posi- 
tioned over your cannon. The shield is very 
hard to position and I find it easier to 
dodge the bombs than to try to use the 
shield. 

A nice feature of the display is the lack 
of a perceptible border around the edge of 




the field and the entire screen flashing 
when you take a hit. The game has 16 skill 
levels. 



"The black hole's 

gravitation is 

what makes 

this game fun.". 



Meteoroids 

Meteoroids is an Asteroid-type game 
with very good action and speed. It in- 
cludes most of the features of the popular 
arcade game including alien spaceships 
that fire back. Your ship is supposed to be 
controlled by the joysticks, but in this and 
the Space War game, the ship is very sen- 
sitive and difficult to control and the high 
resolution makes it hard to tell which way 
you are aimed. However, all this adds to 
the skill required and therefore the enjoy- 
ment. Another problem I have is holding 
both joysticks while I try to control the 
craft's aim and position. 

Space War is similar to Meteoroids, but 
the main object is to destroy a death star 
which has only one weak spot. When you 
destroy it you are in for a treat but do not 
be too close when it goes or you will too. 
Some of the obstacles are enemy fighters, 
roving asteroids, space mines and a black 
hole with strong gravitational effect on 
you and your missiles. 

The black hole's gravitation is what 
makes this game fun. You can simulate 
the effect on the Voyager spacecraft as it 
was catapulted past Jupiter and even get 
into an unstable orbit for short periods. Of 
course that is not the real object of the 
game. 

These games have sound. I think they 
are a better bargain than most software 
for this computer and they provide a 
good example of its excellent graphics 
capabilities. ■ 
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Master Control 

Soft Sector Marketing Inc. 

Garden City, Ml 

$24.95 

by Scott L. Norman 



Master Control is a tape cassette pro- 
gram for redefining TRS-80 Color 
Computer key functions. After reading the 
advertisement I found two features espe- 
cially hard to resist: single-keystroke entry 




of common Basic commands and auto- 
matic line numbering during program 
entry. 

The cassette is accompanied by an in- 
struction leaflet, which is brief (2-Va 
pages) but sufficient. The keyboard over- 
lay differs from the one shown in the ad- 
vertisements. Production versions of Mas- 
ter Control use a peel-and-stick foil with 
black lettering on a dull silver background. 
The purchaser removes five die-cut slots 
from the foil (to clear the four rows of keys 
and the spacebar), and then attaches the 
overlay to the computer's keyboard sur- 
face. I did not want to misalign or per- 
manently wrinkle the large, unwieldy 
sticker so I mounted it on a thin sheet of 
clear plastic and cut out the slots using a 
hobby knife. The result was a fairly 
rugged, removable overlay to which I have 
since added a second layer of plastic to 
protect the foil surface. 

Operation 

Master Control is written in machine 
language and is relocatable, a feature 
which I have used to great advantage. The 
instruction leaflet gives these command 
sequences for loading it into the topmost 
1,100 bytes or so of a 16K or 32K computer: 



32K: CLEAR 25, 30200 

CLOADM "MASTER", 16000 

Although Color Computer documenta- 
tion does not dwell on the point, the num- 
ber following the comma in the Clear in- 
struction specifies the highest (decimal) 
memory address which Basic can use- 
like the Memory Size command of the 
Model I. The 16000 in the 32K loading com- 
mand is a decimal offset, telling the 
machine to load the program 16K higher 
than the loading address specified in the 
program itself. 

I resent anything that steals memory 
from my Basic programs, so I use the fol- 
lowing method to relocate Master Control. 

My system consists cf a 16K machine 
with a Computerware Power Pack (2K 
ROM plus 6K RAM) plugged into the car- 
tridge port. The RAM is not contiguous 
with the memory normally addressed by 
the Basic interpreter; it starts at decimal 
53248 (hex D000). Since the first loading 
sequence above tells us that Master Con- 
trol's unadulterated load address is 15104, 
I can load it into my outboard RAM by giv- 
ing an offset of 53248 - 15104, or 38144. In 
other words, the single statement, 
CLOADM "MASTER", 38144 does the job. 
This leaves all of the computer's internal 
memory free for Basic programs. The 
same procedure will work for the other 
plug-in RAMs appearing on the market; 
just check their starting addresses. 

No matter how you load it, you invoke 
Master Control with the EXEC command. 
The copyright notice comes up on the 
screen, and the usual flashing block cur- 
sor is replaced by a flashing # sign. To use 
the keyboard normally just type; to use 
any of the new key definitions, press the 
down arrow, which serves as the special 
shift key. The next key you press then per- 
forms its Master Control function. Control 
is not toggled; you must press the down 
arrow before each use of a redefined key. 
Some of the functions of the redefined 
keys require Extended Color Basic. You 
can combine them with individual letters 
to cut down the number of keystrokes for 



other commands; for example, the right 
arrow is redefined as Reset, so the se- 
quence P-down arrow-right arrow yields 
Extended Color Basic's Preset command. 

Space constraints make some of the 
notations on the keyboard overlay rather 
cryptic. As an example, the LEFT$( and 
RIGHT$( functions are abbreviated as L$ 
and R$, respectively. This ceases to be a 
problem after a very short time. 

The control key itself has another 
meaning; pressing the down arrow twice 
in succession generates the STRING$( 
command. A few keys do multiple jobs, 
making use of the regular shift key. For ex- 
ample, down arrow-8 produces the List 
command, while down arrow-shift-8, or 
down arrow-( turns the automatic line 
numbering feature on or off. 

This feature deserves more attention. 
When it is on each time you press Enter a 
new number is printed to prepare for 
the next Basic statement. The default 
value for both starting line number and 
increment is 10. To change, you press 
down arrow- %. The Master Control cursor 
changes to a non-flashing reverse-video #, 
and you key in the new starting line num- 
ber, press Enter, and then key in the incre- 
ment. If you want to change only the start- 
ing line, key in the new starting line num- 
ber and press Break. This is especially 
handy if you want to skip a large block of 
line numbers when keying in program 
statements. 

Setting up the line numbering feature 
does not bring it into play; you still have to 
use the down arrow-( sequence. Turning 
off the automatic numbering in the midst 
of program entry (for editing a previous 
line, for instance) does no harm, and num- 
bering resumes at the next line in se- 
quence when it is resumed. In fact, this 
memory feature extends to the case 
where Master Control itself is turned off 
and later restarted. 

Why turn it off? Well, Soft Sector claims 
that Master Control does embarrassing 
things if left on while running a Basic pro- 
gram which calls for keyboard input. I have 
left it on while running several programs 



"Soft Sector claims 

that Master Control 

does embarrassing things 

if left on while running 

a Basic program." 



16K: 



CLEAR 25, 15104 
CLOADM "MASTER" 
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and have never seen anything untoward, 
but I am not anxious to push matters. 

Master Control operation is not as cum- 
bersome as it sounds. It takes a little while 
to get used to the new command posi- 
tions, just as it takes time to learn the 
command syntax of a new editor. In re- 
turn, though, you save considerable time 
and effort in program entry. 

On the subject of saving effort, another 
feature deserving special mention is the 
"custom" key, or down arrow-K. You can 
redefine this key at will to generate a com- 
mand or group of commands of particular 
use to you. As received, the custom key 
prints these statements: 



FOR I ^ 1 TO 3: CSAVEM "MASTER", 15104,16380,15104: 
FOR Y = 1 TO 1000: NEXT Y: NEXT I: SOUND 128,10 



This series is followed by a programmed 
Enter command. In other words, Master 
Control comes prepared to make three 
copies of itself. To redefine the custom 
key press down arrow-& and enter the de- 
sired commands. Remember, you can 
string commands together with colons 
and can include Enter in your definitions. I 
have used this feature to set up single-key 
.entry of such things as the setup com- 
mands for high-resolution graphics and 
the PEEKs and POKEs used in merging 
Basic programs. 

I have used Master Control as standard 
procedure ever since I bought it. The first 
program I wrote with it was a foreign lan- 
guage drill which made extensive use of 
data statements for bilingual word lists, 
and PRINT@s and CHR$s for screen 



prompts and graphics. I avoided an awful 
lot of repetitive typing. I would make 
minor changes, though. Master Control in- 
consistently include opening parenthe- 
ses with some commands; I would like to 
see the "(" included with CHR$, Line, Cir- 
cle, and PEEK. Similarly, it does not seem 
especially worthwhile to have included 
Print in Master Control's repertoire when 
the Color Basics already have a two- 
stroke abbreviation (Shift-?) for it. 

The best compliment I can pay Master 
Control is this: On those occasions when i 
try to do some quick and dirty program- 
ming without it, I find myself pressing 
something like down arrow-5 and wonder- 
ing why the machine does not switch to 
Edit mode as it obviously should! ■ 



C.C. Writer 

L.W.C. Dyle 

Transformation Technologies 

Bloomingdale, IL 

$30 cassette 

by Paul Grupp 

A word processing program for 
the TRS-80 Color Computer? Many 
wonder if the TRS-80 Color Computer 
could ever make a good word processing 
machine, regardless of the quality of the 
software. The flaws that immediately 
come to mind are the toy-like keyboard, 
the minuscule screen display, and the ri- 
diculous reverse video system Tandy 
chose to indicate lowercase. 

These can all be overcome. The key- 
board works a lot better than it looks and 
machines like the Apple get by with the 
small display. The lowercase problem is 
another matter, but by the time you read 
this, a modification kit should be available 
that gives the Color Computer true lower- 
case capabilities— descenders and all. 
The Color Computer may never be a con- 
tender in the serious word processing 
market, but it could easily fill the needs of 
thousands of casual writers for an ade- 
quate system at a reasonable price, pro- 
vided good software is available. 

C.C. Writer is one of the first word pro- 
cessing programsto be announced forthe 
Color Computer. It is written in Basic with 
23 pages of well-written documentation. It 
will run on a 16K machine, but since this 
allows you to write only about two pages 
of text before saving to cassette, 32K is 
recommended. With 32K of RAM, you will 
be able to handle 8-12 pages before sav- 
ing to tape. If you find this limiting, note 



that the program supports file chaining. 
You can string several files together to 
produce one continuous printed document. 

Because the program is written in 
Basic, it cannot compete with more so- 
phisticated word processing systems. 
C.C. Writer lacks almost all the features 
that I have come to depend on in the 
Model I Electric Pencil and Model II 
Scripsit. 

You load the program into the machine 
and set up the print format parameters. 
This is an easy task, and this part of the 
program is very well written. Things get a 
little rougher when you start typing in your 
text. C.C. Writer is sentence oriented; you 
have to hit Enter at the end of each 
sentence. This program displays a lot of 
information on the screen at the end of 
each sentence (number of paragraphs you 
have used, number of characters left, and 
so on). This conspires with the small 
screen size of the TRS-80C to let you see 
precious little of your polished prose at 
one time. It is rather frustrating if you 
want to scan what you have just written 
before going on. 

Word processing is popular because 
you can make corrections painlessly 
while typing. When the document is com- 
plete, you can correct mistakes that 
slipped by the first time without retyping 
the whole thing. C.C. Writer does reason- 
ably weli on the last sort of editing, but 
comes up short on the first. 

Once you have entered a sentence, the 
only way to correct it is to go back to the 
menu, select one of the edit modes, find 
the sentence you want to change, and cor- 
rect the mistake. This is a major hassle. 

The author defends his program by sug- 
gesting that the best way to write is to sit 



down and enter your thoughts. Later, 
when the creative binge is over, you can 
go back and correct any mistakes you 
may have made. Great theory, but imprac- 
tical. If I look up and see a glaring mistake, 
I can not think about anything else until I 
have fixed it. 

Entering text into C.C. Writer may be 
frustrating, but printing it once it is in the 
machine is considerably more satisfying. 
The author has thoughtfully provided all 
the important functions. You have com- 
plete control over margins, line spacing, 
paragraph indentation and page length. If 
you want your finished product to look 
flashy, you can add headers and page 
numbers and even justify the text. Most 
documents produced on C.C Writer will be 
completely indistinguishable from docu- 
ments produced on, say, aTRS-80 Model II 
with Scripsit. I plugged a CPRINT module 
from Micro Labs into the ROM pak slot on 
the right side of the computer to provide a 
parallel printer port. I plugged a NEC Spin- 
writer with s standard TRS-80 printer 
cable into that. This arrangement worked 
perfectly with C.C. Writer. 

Is C.C. Writer for you? It depends on 
your needs. If you are interested in word 
processing because of the flexibility and 
speed it can add to your writing, this pro- 
gram will not satisfy you. If you do not 
have a typewriter, but do have a Color 
Computer and a printer, you could do a 
lot worse than C.C. Writer. As the pro- 
gram stands, the finished product looks 
good, but I rate my old Smith Corona 
several points ahead in the ease-of-use 
department. Those who crave true word 
processing power would do well to wait 
for something a little more sophisticated 
to come along. ■ 
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low you can place your TRS-80 Model 1 components into 
one convenient, portable, handsomely designed desk top 
package. The ORGANIZER puts everything witin easy reach, 
with room for Monitor, Expansion Interface, four Disk Drives, 
Diskettes, Cassettes, tape recorder and many accessories. 
The ORGANIZER eliminates messy wires, reduces eye and 
body strain, provides room for ventilation, and works as a 
dust shield. 

The ORGANIZER is constructed of wood with a rich walnut 
tone, strain resistant finish (similar to quality stereo speaker 
cabinets). When the handles are attached it is TOTALLY 
PORTABLE so that you can move your computer to home 
and office easily without unplugging cables. 

There is sufficient ventilation space in the cabinets, but the 
accessory fan is recommended when using for prolonged pe- 
riods. The ORGANIZER has been designed to give you 
enough room on the sides for all connections and cables. The 
disk drive cabinet can be placed next to or on top of the video 
cabinet (see pictures). 

The ORGANIZER consists of two cabinets: 

CABINET ONE holds Monitor, Expansion Interface (including 
LOBO, LNW, and all other presently made interfaces), Power 
Supplies, Line Filters, Cables, Power strip, fan and has an 
easily removable front panel for re-booting. 

CABINET TWO can hold up to four Disk Drives, Tape Record- 
er, fan, Diskettes and cassettes. This cabinet is usable with 
any manufacturers^ 5V4" disk dries horizontally or vertically. 
THIS CABINET IS MADE TO HOLD THE DISK DRIVES FOR 
THE MODEL III AND THE COLOR COMPUTER. 





*We also have a cabinet for the Color Computer. This cabinet 
is designed to protect and house the keyboard computer 
component and to handle any size video monitor on top. The 
disk drive cabinet can also be purchased with this unit (see 
accessories price list). 

Additional Accessories: 

Fan $19.50 

Carrying Handles $1 7.50 

Cabinet One $42.00 

Cabinet Two $32.00 

Color Computer Cabinet $32.00 

(4 disk cabinet) $54 50 

APPLE CABINET $37.50 

For VISA, MASTERCARD, or C.O.D. 

For fast service 

CALL NOW COLLECT 

(213) 456-9023 

Or send check or money order to: 



2794 Hume Rd. 




ibu, California 90265 



(-- 1 16 



^See List ot Advertisers on page 402 
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SECS 
Sigmon 
Data Soft, Inc. 
Sepulveda, CA 
$29.95 each 



by Douglas R. Cook 



If you are interested in exploring what 
the color graphics TRS-80 Color Com- 
puter has to offer, then you are in for a 
treat. The Screen Edit Control System, 
SECS, is one of the most useful tools 
available for color graphics. SECS is two 
programs, one in machine language and 
the other in what I would call Color 
Graphics Basic. You must learn a few new 
commands, but nothing wild. They are a 
little different than ordinary Basic. If you 
have a reasonably good understanding of 
almost any Basic, then you should have 
no trouble adapting to SECS. 

With SECS programs you can produce 
any 8 by 10 dot matrix graphics character 
you desire. A group of 64 characters may 
be created and used at any one time. The 
characters and programs generated may 



Chromasette Magazine 
Santa Barbara, CA 93102 
$45/year 



by Douglas R. Cook WB7SOW 

Chromasette Magazine is the second- 
generation magazine of the suc- 
cessful CLOAD Magazine. Chromasette is 
dedicated to the Radio Shack TRS-80 Col- 
or Computer. Chromasette arrives month- 
ly on cassette containing six to eight pro- 
grams in TRS-80 Extended Color Basic. 
The programs are usually long, so 16K of 




be saved to tape and reload. 

Along with the SECS programs comes 
an Editor program. It allows you to conve- 
niently edit programs or text on the 
screen. A large number of corrections, ad- 
ditions or deletions may be made with 
ease, at any location on the screen. Pro- 
grams or text may be saved to tape and 
then reloaded later with either Basic or the 
Editor program. 

The SECS and Editor programs are ex- 
cellent. A large television screen will pro- 
duce a more detailed graphic character 
that the SECS program allows. 

Sigmon 

This is a 6809 machine-code monitor 
program giving you 18 powerful corn- 
mands. Dump, List, Disassemble, Assem- 
ble, Find, Move, Step, Break, Set, Go, 
Write, Read, PLOAD, PRT, NOPRT, Mode, 
Exit and Speed. Sigmon comes with a 
14-page instruction booklet and a source 
listing. The program is written in code that 
can be relocated. It is 6K long and located 
at the top of memory and can be protected 
by Basic's Clear command. 

The monitor is easy to use and the in- 
struction manual is well written and infor- 



mative. DataSoft has noted several ad- 
dresses used by Basic and by Sigmon as 
buffered storage areas. There are no Ba- 
sic entry points noted, but Sigmon does 
use portions of the operating system for 
subroutines. 

The Dump command displays hex or 
ASCII and has the option of including the 
graphic values along with memory values. 
The List command displays a character 
representation of memory contents, with 
a large number of locations displayed per 
line. The Step command can be very use- 
ful in fixing stubborn programs. The Write 
and Read commands create and load a 
Basic-compatible (CLOADM) tape file. The 
disassembler displays address, opcode, 
mnemonic and next address. The assem- 
bler allows entering either numeric values 
or mnemonics directly into memory. The 
Move command moves a block of memory 
from one location to another. These are 
only a few of the options available, but 
they give you an idea of the power of 
Sigmon. 

Sigmon is a good monitor program. 
Even though it is a large program, the ca- 
pabilities it has are necessary for the seri- 
ous programmer. ■ 



"Most Chromasette Magazine 
programs are written in 
TRS-80 Extended Color Basic. . . 



memory is required. Along with the tape 
are several pages of notes, comments and 
instructions on running the programs. 
Chromasette points out problems and ex- 
plains solutions they have developed in 
programming Color Basic. 

The program notes suggest changes to 
the programs to do slightly different 
things or improve operation. The modifi- 
cations help the user explore the pro- 
grams and understand how they run and 
what happens when the changes are 
made. The exercises provide insight for fu- 
ture programming techniques. 

The first program on every tape is a 
graphics display called Cover. Cover is dif- 
ferent every month. Besides enjoying the 
graphic display, by listing this program 
you can learn how to perform color 
graphics with the Color Computer. 



A few of the programs are instructional. 
In Jumble you un-jumble letters of various 
groups to spell a word. How Far computes 
the distance between two locations on 
Earth. This program is useful in amateur 
radio operations for determining the 
distance between any two radio stations 
in contact with each other. 

Some of the programs are games. The 
games are entertaining. You will probably 
not find these games boring after one or 
two plays. Color graphics and sound are 
included in the games. Most programs 
can be run by either keyboard or joystick 
control. 

Most Chromasette Magazine programs 
are written in TRS-80 Extended Color Ba- 
sic, some use machine-language subrou- 
tines. This is a magazine for the advanced, 
average and beginning programmer.B 
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Scarfman 

The Cornsoft Group 

Indianapolis, IN 

Models I & III 

$19.95 cassette & disk 

by J. L. Latham 



Scarfman is like the popular arcade 
game Pacman. 
The instructions advise you to power up 
under TRSDOS and then insert the disk in 
drive for Model I and in drive 1 for Model 
III. However, you can bring up your Model I 
cold and boot up the Scarfman disk 
without TRSDOS. 

In the arcade version several colored 
monsters run around a simple maze. You 
control another creature shaped like a 
large C. The object of the game is to eat 
the monsters. It is not just a chase-the- 
monsters-through-t he-maze situation, 
however. Under special circumstances 
the monsters change color and should 
you catch them at the wrong time, they 
eat you. 

Each game begins with your character 
at the bottom center of the screen and the 
five monsters at the top center. Arrow 
keys control your character. Little square 
boxes dot your path and as you pass each 
one you gain points. Plus signs occur 
around the maze and force all the 
monsters into the safe-to-eat stage. When 
you have disposed of blocks and pluses 
the maze fills with them again and the 
level of difficulty increases. The monsters 



improve at finding you or hiding and they 
revert to inedible monsters more quickly. 

The action is fast. You have to stay 
sharp to prevent being devoured. All too 
often I have sneaked up on a tasty 
monster only to have him turn into a man- 
eater and scarf me off the screen. Some 
people say the arcade version is slower 
than the TRS-80 version. 

And this black and white version is 
superior to one version written for the Col- 
or Computer. 



When your game is finally over, press- 
ing Enter starts the monster running 
again and skips Reboot. 

Sound is an extra feature. A speaker 
amplifier attached to the cassette cord 
produces sound effects each time a 
square, plus, monster or you are de- 
voured. The sounds are simple and syn- 
chronous with the speed of the action. 
The Cornsoft Group also states that the 
program will work with the Alpha Prod- 
ucts Joystick.B 



Newscript 6.0 

ProSoft 

North Hollywood, CA 

Models I and III, 48K 

$99.95 disk 

by Jon Boczkiewicz 

My system consists of a Model I, disk 
drive, 48K of memory, an expansion 
interface and the Radio Shack's Line 
Printer IV. I consider Scripsit to be a very 
useful word processing program, however 
I dislike not being able to use the high- 
density proportional type in a justified for- 
mat. The only company offering what I 
wanted — a justified proportional font, as 
well as the other features -was ProSoft. 
Newscript has a fantastic documenta- 
tion. (A friend who works with mainframes 
claims the documentation alone should 
cost $80) It runs 150 pages with a table of 




contents and index. Every bit of it (except 
the graphics) was done with the Newscript 
program. 

The Format 

There are several programs, most of 
them are written in Basic for easy modifi- 
cation. The program seems to have been 
written with the Radio Shack LP IV (Cen- 
tronics 737) printer in mind, but with a 
strong support for the MX-80, though any 
printer may be used. There is a section on 
installation procedures, explaining how to 
customize the program for the printer and 
the DOS being used. DOSPLUS, LDOS, 
NEWDOS and TRSDOS are supported. 
There is also a section (and a utility pro- 
gram) for purchasers of the earlier ProSoft 
programs, Subscript/Subedit. A sample 
letter serves as an example, and the 
documentation covers some editing. 

If you don't like Radio Shack's Level II 
manual, you probably won't like New- 
script's documentation. Most of the man- 
ual consists of commands, explanations, 
and examples. There is no way to look up 
what you want to do. However, most of the 
commands are logical (.ce for center, .us 
for underscore). Even though there is a 
summary sheet you will probably keep the 
manual near you for a while. 

The two chief programs are Edit and 
Script. Edit allows full editing of a docu- 
ment, including insert and delete, block 
copy, move or delete, and global search 
and change. A convenient feature for me, 
living on a power line which gets its share 
of breaks and outages, is Autosave, which 
allows the document to be saved auto- 
matically as often as you desire. It does 
take a few seconds to record the file, but 
not nearly as long as would be required to 
retype even one screen. It also has the 
ultimate command, Whoops. This restores 
the screen to its original contents wiping 
out all changes. 

Documents are created as a group of 
files. You may set file length at the begin- 



80 Microcomputing, March 1982 • 53 



so 



IEWS 



ning as well as file name, but if you over- 
run the file length, it extends itself auto- 
matically, it is recommended that a series 
of short files be used rather than a few 
long ones as they are much faster to save 
and recall. Since it is possible to put 
breaks in the document to allow changing 
the disks, the length of a document is ac- 
tually unlimited. The greatest page num- 
ber is 999, but pages do not have to be 
numbered. Files can be chained during 
editing or during printing. 

In the Edit mode, the top line is the 
command line, and the lines running 
down the side are the Line Manipulation 
Area (LIMA). This allows line-oriented 
editing, along with character-oriented 
editing. The lines are 255 characters 
long, and the screen serves as a window 
on this line. There is one problem— ma- 
nipulating material is limited to that 
shown on the screen. The scale with the 
Top-Of-File (and End-Of-File) markers is 
for aligning columns and can be called 
up at any time. Starting on the third 
line, you can use Script commands or 
write text. 

The program supports Radio Shack's 
lowercase modification, and gives type- 
writer-like reversal. When the end of the 
line is reached, the program backs up to 
the last space and pulls any characters 
after it onto the next line, so lines break 
only at the end of words. Though the pro- 
gram is in Basic, there is no problem with 
missed keystrokes, even while the words 
at the end of lines are being manipulated. 
The only delays occur when Enter is 
pressed, any commands in the command 
line or the LIMA are processed, and the 
screen is refreshed. This takes about two 
seconds for refreshing, plus whatever 
time is required for processing commands 

When you create a document, edit sig- 
nal completion by typing End on the com- 
mand line. This saves the file in process, 
and gives you the opportunity to stop, edit 
another file, or go into Script (default). The 
file must be saved, as Script is another 
program 13 grans long. Because the disk 
must have a minimal DOS on it, as well as 
the various word-processor programs, not 
too much can be stored on it. If you have 
only one disk drive, you must store on 
another disk and put the main disk back 
when switching to another program. Here 
double-sided disks come in handy. 

Printing is controlled by a series of 
command words which must be placed 
first on a line, though there may be several 
command words in a single line. Each is 
two letters long and starts with a period, 
such as .pp, the indicator for paragraph. 
Some have parameters which can be 
varied, others do not. Some have special 



limitations; for instance, .pp must be the 
last on a line, if you put several on a line, 
offering greater flexibility. 

Newscript features easily used controls 
for double-width (expanded) letters, 
underlining single-sheet printing, over- 
striking for darkness, double spacing, 
editing and others. 

The print font can be changed and de- 
faults to proportional or high-density 
print, justified by increasing the space be- 
tween the letters to fill the space at the 
end of the line. You can control the 
amount of fill allowed and the default 
gives a slightly greater amount of space 
than the printer ordinarily does. This 
makes the printout more readable. Chang- 
ing this is a sophisticated control which 
requires planning and experimentation. 

Formatting controls allow for hanging 
indents or offsets, variable indentation to 
set off lines, and skipped lines. Up to six 
header and footer lines may be used, with 
a left-justified, centered, and right-justi- 
fied section on each line. You may merge 
other files with the file being printed, or 
use keyboard input where desired. The 
program has many capabilities and for 
this reason is slightly complicated. 

Newscript differs from earlier ProSoft 
products with some important changes. 
Mininit, an extra option on the earlier pro- 



grams, is now included, which supports 
Radio Shack's lowercase modification. 
This also speeds up the keyboard, provid- 
ing repeat and debounce, both of which 
can be tailored to the needs of the key- 
board and typist. You no longer have to hit 
Enter with every line and forced spacing is 
possible. 

The program is not perfect. It does not 
provide any means of hyphenating, and 
some commands are not convenient. But 
you get a phone number to call for help, 
and they provide service for their 
customers. For those of you who have 
sophisticated dot-matrix printer and a 
limited budget, this is definitely a program 
to consider.B 

Since I wrote this article several things 
have changed, I moved up to a Model III 
and needed a new program to run on it. I 
called and was told that there had been 
several changes (enough to justify calling 
the new program 6.1), and that Prosoft 
would convert and update the program for 
$6. The new program is available on a 
TDOS diskette, a subset of DOSPLUS, 
which gives much shorter transition time 
between Edit and Script. This costs $12 
for Model I, or $10 for Model III, though it is 
standard for new customers. And the pro- 
gram contains even more capabilities 
than before. ■ 



XBUG 

Computer Applications Unlimited 

Rye, NY 

Models I & III 

$19.95 



by Alan Bumes 

XBUG is an excellent monitor and 
software debugger with efficient 
power, clear documentation and low cost. 
If you are just getting started with ma- 
chine-language programming, XBUG will 
fulfill your needs. If you already use an as- 
sembler and disassembler as an experi- 
enced machine-language programmer, it 
is a good investment as an interactive 
debugger. 

Xf3UG has 25 commands and command 
variations. These commands can be cat a 
gorized into memory and register manipu- 
lation functions and software develop- 
ment functions. 

Memory and Register 
Manipulation Functions 

Display and search memory. Displaying 



a page of memory is accomplished by 
entering the command byte and starting 
address for the memory page. The 
memory display format for XBUG is 16 
lines, 16 bytes to a line, in a split-screen 
format with the hexadecimal display on 
the left and the ASCII representation on 
the right. 




Single keystrokes initiate a scroll for- 
ward through memory in 256-byte blocks 
or 128-byte half-blocks, or a scroll back- 
ward in full 256-byte blocks. 

Searching through memory for bit pat- 
terns up to 16 bytes long is also easy. 
XBUG searches all memory starting at the 
current page and displays either a page of 
memory on a find or returns a "no find" 
message. Memory searching may be re- 
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HAPPINESS IS...NEWSCRIPT 

THE WORD PROCESSOR FOR 
BUSINESSMEN AND PROFESSION 

We offer you ongoing support by answering 
your questions and providing reasonably 
priced enhancements. 

A FEW OF NEWSCHIPTS STANDARD FEATURES: 

*Form Letters with merging of names and addresses 
*Gives superb appearance to your final documents 
*Comprehensive manual with hundreds of examples 
*Centering, top/bottom titles, indents, pagination 
Underlining, boldface, double-width, italics f 
*Sub-scripts, super-scripts, proportional pitch ' 
*Generates Table of Contents, sorted Index 
*Allows block graphics, special symbols" 

*Search and replace globally or within a range 
*Block move, copy, delete, insert from other file 
*AUTOSAVE. WHOOPS. DIRECTORY. KILL. REPEAT 

*Based on IBM's "EDGAR" and "SCRIPT" systems 

* Supplied ready-to-run on "tiny" DOSPLUS 

*Easily transferred to NEWDOS. NEWDOS/80, LDOS, TRSDOS 

♦Includes handy Quick Reference Card 

NEWSCRIPT CONTROLS THESE PRINTERS : 

*EPSON MX-80, MX-100: all 12 fonts, plus underlining 
and block graphics; italics with GRAFTRAX 

♦Centronics 737, 739; Radio Shack L.P. IV. L.P. VIII. Prowriter, 
Daisy Wheel II, NEC PC-8023A, TEC 8500R, C.ITOH 8510: 
Right-justified true proportional printing (ledding) 

"Good support lor: Diablo, Spinwriter, Starwriter, QUME, Microline, 
Anadex, modified Selectric, standard line printers 

NOW AVAILABLE: right-justified true proportional support for 
Diablo, Spinwriter, Starwriter, and Qume (Daisy Wheel Option)** 

TYPICAL USER AND REVIEWER COMMENTS 

the manual: 

"It definitely rates the first '10' given to any documentation reviewed in this column. " (A. A. Wicks, COMPUTRON1CS. October, 1981) 

the software: "An excellent Word Processor" (D.H.): "Absolutely fantastic" (S.E.S.): "You have features that I cannot duplicate 
on my $14,000 system" (J.B.) 

the support: "Your phone information system and the prompt and courteous staff that you provide to help your clients...are worth 
the cost or the system. (V. H.H.I 

REQUIRED CONFIGURATION: 48K TRS-80 with 

one disk drive. Specify Model I or Model III. 



t Some leatures work only ii your printer has the mechanical capability. 
* * Daisy Wheel proportional is extra-cost option. 
♦Effective April 10th., NEWSCRIPT will beS12S. 

TO ORDER, CALL NOW, TOLL-FREE: 

(800) 824-7888, Operator 422 

CALIF: (800) 852-7777, Oper. 422 

ALASKA/HAWAII: (800) 824-7919 

FOR TECHNICAL INFORMATION CALL: 

(213)764-3131, or write to us. 



NEWSCRIPT 6.2: $ 

MAILING LABELS OPTION: 
Special: NEWSCRIPT + LABELS: 
Daisywheel Proportional Option: 
"PENCIL" to NEWSCRIPT Converter: 
Manual Only ( 1 80 pages): 
Reference Card Only: 

Electric Webster + Correction Feature: 
Graphics Editor and Programmer: 
DOSPLUS 3.4: 

Order from your Software dealer, or from: 



99.95 

29.95 

115.00 

49.95 

'■* "<^3V% 
OViVU 

■fan a --y* 4» 



45, 
149, 



Tt:MS: Wo accept VISA. Mastercard, checks Mor.ev Orders. CO D and 
even cash. Wc pay shipping via surface UPS inside U.S.A. Please add 
$3.00 for Blue Label, 6% tax in California, and 15% outside North Amer- 
ica (air shipment). 



PRom 



~J 






DEPT. C, BOX 839 • NO. HOLLYWOOD, CA 



sumed by two keystrokes since XBUG re- 
tains the current search pattern until you 
enter a new pattern. 

Modify memory. XBUG modifies memo- 
ry either by setting a block to a constant, 
or by writing hexadecimal data into 
memory byte by byte. 

To set a block of memory to a constant 
requires you to enter a single letter com- 
mand, the starting address, the length of 



the block to set, and the desired hexadeci- 
mal constant. If no constant is given, zero 
is the default value. This function is useful 
in debugging software that readsorwrites 
to buffers. With the buffer set initially to a 
known state the exact changes caused by 
test software can be observed. 

To enter hexadecimal code using the 
keyboard requires a command byte, start- 
ing address, and an even number of bytes 
up to 16, of input data. 



CPRINT Parallel Printer Interface 
Micro Labs, Inc. 
Richardson, TX 
$49.95 



by Bill Dye 



Until recently, owners of the Color 
Computer were limited to using the 
serial interface to attach a printer. Radio 
Shack's only compatible printer was the 
Line Printer VII with its limited features 
and marginal print quality. The alternative 
was a printer that could be converted to 
the RS-232 interface. Even then, if the seri- 
al printer could receive at a higher speed, 
the Color Computer was limited to a 
2,400-baud output. Also, the Color Com- 
puter only put out a seven-bit signal un- 
less the PTFX program was loaded first. 

CPRINT is an eight-bit Centronics-com- 
patible, parallel printer interface that 
functions as a bi-directional port. After 
connecting cables and powering up, 
EXEC49152 initializes CPRINT; all PRINT# 
-2s and LLISTs are redirected to the 
parallel port. 

I tried a short LLIST first. Although I 
was running at 2,400 baud, I was surprised 
at the increase in speed. CPRINT gives 
you control of the line and page length 
and skips over the perforations between 
pages. To change these values, the ex- 
cellent instructions give you the locations 
to POKE. 

The benefits of the CPRINT are most 
apparent for anything beyond straight 
printing. A serial interface usually loses 
the first byte if the computer wants to 
transmit while the printer is busy. After 
transmitting a line, the computer waits for 
a ready signal before continuing. A paral- 
lel interface does not have that problem; 
the computer can get the next line ready 
while the printer is busy with the last. 

The eighth bit allows you to use all 
printer control codes and block or bit 



graphics. If you have an editor that works 
with ASCII, fancy print graphics become 
less of a chore. 




CPRINT's screen printer can be activat- 
ed anytime the cursor is on the screen. 
Text is printed normally; a period replaces 
any unprintable characters. After getting 
a screen print, you must hit Enter to clear 
the machine or the next entry is ignored. 
This is handy for saving a screen of code 
for later reference, but if used to print a 
program-generated screen, the input vari- 
able name is deleted from the program. 
This makes documentation of program 
screens time-consuming. Compensating 
for this, you can turn off the printer and 
the computer will not hang. This lets you 
get screen prints while suppressing regu- 
lar printing. 

CPRINT creates some radio frequency 
interference (RFI). Micro Labs recom- 
mends using a twisted or shielded printer 
cable or shortening the cable. If that 
fails, unplug the cable, when you are not 
printing. 

CPRINT is well made and increases the 
selection of printers available to the Color 
Computer owner. ■ 



Display and modify registers. XBUG 
supports display and modification of the 
Z80 registers. The registers are displayed 
on the left, 16 bytes of memory to which 
the registers point, are displayed in the 
center, and the status flag registers are 
displayed on the right. The registers can 
be modified with a command byte, the 
code modified for a register, and a 
hex byte or hex word can be inserted into 
the register. 

Software Development Functions 

XBUG relocates to any address in RAM. 
Therefore, it can be used with virtually any 
system program regardless of its location 
in memory. The only requirement is that 
you have at least 2,560 bytes of RAM for 
XBUG either before or after the system 
program. 

XBUG single steps at three speeds 
allowing careful perusal of tricky portions 
of code or fast stepping through loops. 

Another handy debugging technique is 
the use of program breakpoints to stop a 
program at a user-specified place. With 
XBUG you can set up to 10 program break- 
points and remove them either selectively 
or globally. When a program hits a break- 
point the last register or memory display 
is updated and displayed on the screen. 

During debug XBUG's display and key- 
board monitoring capabilities can be dis- 
abled allowing test program access to the 
keyboard for input and to the screen for 
output. 

I liked XBUG's ability to load and write 
system tapes. This function is useful to 
backup or rewrite system tapes at 1,500 
baud for my Model III. 

If you desire a printout of a screen dis- 
play XBUG can route a copy of the screen 
through the parallel printer port, or with 
the Model III through a serial port. 

XBUG Documentation 

XBUG's simple manual describes all 
the commands complete with examples. 
Its organization is logical and clear and in- 
cludes several appendices. The first ap- 
pendix is a hexadecimal-ASCII conver- 
sion table. Following that is a full index to 
the Z80 instruction set including the CB, 
ED, DD and FD extensions. It is possible 
to use this index to disassemble some of 
the screen memory displays, although a 
disassembler would be preferable. 

I am impressed with the quality of this 
product. The manual, software and exam- 
ples are excellent. 

I found Computer Applications Unlimit- 
ed to be conscientious when I did have 
questions on their software. XBUG is a 
good investment. ■ 
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(Graphics Editor and Programmer) 

G.E.A.P. 

J.F. Consulting 

Palm Desert, CA 

$16.95 

by Richard C. McGarvey 



One of the most tedious parts of pro- 
gramming is the design and layout of 
the CRT display. Whether you are drawing 
and animating a space ship attack or set- 
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ting up a data form to be filled in by a com- 
puter operator, the display programming 
is time consuming and nerve wracking. For 
this reason I have often considered writ- 
ing a program that would let the program- 
mer draw or write on the CRT and manipu- 
late the video contents into proper posi- 
tion and proportion. Once the image was 
perfect, the computer would generate the 
program to recreate the screen every time 
it was needed. This program could then be 
merged into the main program. 

G.E.A.P. 

Well, William Mason of J.F. Consulting 
beat me to it. G.E.A.P. is a Basic program 
that does all I planned and more. 

Any programmer can easily learn to 
draw a screen of graphics or text and then 
save the screen as a Basic program 
merged into the final game or applica- 
tion program. 



"You can even 
create your 
own modules. . . 



G.E.A.P. allows the programmer to ma- 
nipulate all or part of the screen. The pro- 
grammer can try different layouts without 
damaging the previously saved screen. If 
the new way looks better he can perma- 
nently update the screen. Otherwise he 



can recall the old screen layout and try 
something else. 

G.E.A.P. Modes 

G.E.A.P. has four modes. Regular mode 
is signified by a flashing dot cursor. The 
cursor can be moved in any direction with 



The Designate mode is the guts of the 
G.E.A.P. program. While in this mode you 
can select any area of the screen, reverse 
it, move it, tilt or rotate it, multiply the 
views of it, magnify it, fill it in, shrink or ex- 
pand it and save it if you like it or cancel it 
if you do not. You can draw half of a 



"The Designate mode is 
the guts of the G.E.A.P 



the arrow keys in any combination. The 
left arrow moves the cursor left and the up 
arrow moves it up. Both arrows together 
move the cursor up and left. If the shift key 
is held as the cursor is moved, a line is left 
in the trail of the cursor. Want to erase the 
line? Go back over it with the cursor with- 
out holding the shift key. The Regular 
mode is active at power up and can be 
reached from all other modes (except the 
Print mode) by hitting the period key. 

The second mode is the Print mode. The 
main function is to put text on the screen. 
Enter the Print mode by hitting the aster- 
isk. Once in this mode the cursor changes 
to an asterisk. The cursor can be moved 
with the arrows; anything that is typed ap- 
pears on the screen. To exit the mode you 
must first enter the Keypad mode by hit- 
ting the Clear key. Once in Keypad mode 
every other mode is readily available by 
hitting the appropriate cursor key. 

The Keypad mode is available at the 
touch of the < key or by the Clear key if 
you are in the Print mode. The cursor, the < 
symbol, is again positioned by the arrows. 

Now look at your keyboard. Note the 
keys Q, W, A, S, Z and X. These form a 
graphic block similar to the graphic 
blocks on the TRS-80. If you want to draw 
a graphic block position the cursor to the 
right of the location that you want the 
graphic. Hit the keys corresponding to the 
portion you want lighted. If all six keys are 
hit, in any order, a graphic block equal to 
CHR$(191) is drawn on the screen. If only 
the Q is hit only the upper left corner of the 
graphic block is lit. 

Other commands in the Keypad mode 
are for the advanced user. To exit the 
Keypad mode, hit the cursor key of the 
mode you want. 

The fourth and final mode is the most 
interesting. The Designated mode is en- 
tered by hitting the - key. A flashing - is 
used as the cursor. This cursor will not 
erase as it moves. 



screen, duplicate the half and merge it in- 
to an entire screen. The only limit is your 
own imagination. 

Saving the Program 

There are nine options available while 
in all modes except the Print mode. These 
options are entered by hitting the number 
9. One of these options, Dump Program, 
lets you save your creation or reload an- 
other for reediting. The Dump option is 
compatible with disk, cassette or 
Exatron's Stringy-Floppy. You need only 
enter CSAVE or CLOAD for cassette, 
Save"filespec" or Load"filespec" fordisk, 
or ©SAVE and ©LOAD for Stringy- 
Floppy. Once done you can reenter 
G.E.A.P. with simple USR(x) statements. 

You are also given the option of saving 
the screen in compressed or non-com- 
pressed code. You can save a designated 
figure in a Basic string. You can even 
specify the line numbers for screen stor- 
age so you can merge it with a program 
more easily. 



Final Pointer 

G.E.A.P. can incorporate input state- 
ments with user-specified or default vari- 
ables. Graphic animation is possible by 
updating only the moving part of the 
screen. You can insert delay loops. You 
can even create your own modules and ex- 
pand on G.E.A.P. if it does not have a fea- 
ture that you need. The documentation, 17 
pages of intensive instruction, is broken 
down into three stages so you can gradu- 
ally master the utility. 

The only way to find out how indispens- 
able this program is for the Basic pro- 
grammer is to buy it and use it. I have seen 
other programs that claim to do what 
G.E.A.P. does but no other has lived up to 
my expectations. ■ 
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Micro Cue Print Buffer 
Microcompatible 
Atlanta, GA 

S299-S599 

By G. Michael Vose 

80 Microcomputing technical editor 



There are few things more frustrat- 
ing than sitting, watching and waiting 
while your new 40-characters-per-inch, 
dot-matrix printer ties up your computer 
for 15 minutes printing out your latest pro- 
gram. Invariably, you think of an enhance- 
ment to add— but forget it by the time the 
listing is printed out. Wouldn't it be great 
if you could use your machine while that 
printer trundles along? 

Or you might work in an office with two 
computers but only one printer. It is a ma- 
jor hassle to unhook the printer cable from 
one machine and attach it to the other. 
There is also the problem of having one 
computer and using a dot-matrix printer 
for drafts and a letter-quality printer for 
correspondence— what a pain switching 
the cable back and forth. 

Occasionally, you might need to print 
out a series of files. If you don't have a 
spooler program, you have to print each 
file separately, twiddling your thumbs be- 
tween typing file names and giving print 
commands. Wouldn't it be nice to send all 
those files out at once? 

As you may have guessed, there is a so- 
lution to these problems. Microcompati- 
ble, Inc., with a factory in North Carolina 
and a marketing department in Georgia, 
has introduced a printer buffer called the 
Micro Cue. Available in four different 



models, the Micro Cue can help you solve 
your computer/printer interface problems. 

80 Checks It Out 

The model being tested here at 80 Mi- 
crocomputing is the PB322P Print Buffer, 
containing two parallel transmit ports and 
two parallel receive ports. The unit con- 
tains 32K of memory and a Z80 micropro- 
cessor. A 1K ROM contains the software 
to control the system. All these electron- 
ics are driven by a 2.0MHz clock. 

The on-board memory is the buffer's 
principal claim to fame. It allows a user to 
transfer files from the computer to the 
buffer for printing. This transfer operation 
takes only a few seconds. The computer is 
then free for other tasks while the buffer 
drives the printer. The 32K buffer will hold 
Scripsit files up to 18 pages in length. It 
would be hard to write a Basic program 
that could fill the entire buffer. 

Micro Cue's other notable feature is its 
multiple port configuration. With the right 
model, you can hook up two printers and 
two computers to the buffer and select 
any combination of computer and printer 
with a simple flick of a switch. You cannot 
send output from both computers to the 
same printer at the same time, of course, 
but only Inspector Clouseau would want 
to do that anyway. 

The Micro Cue recognizes all your com- 
puter's codes as well as messages from 
your printer. It lets you know if the printer 
is not ready and also recognizes out-of- 
paper signals. The buffer can receive data 
when the printer is not ready, but it will not 
send data until the printer is set to go. 

The Micro Cue even allows single page 
output. This is accomplished with some 




difficulty, however. It is necessary to 
send an ASCII control character (1 E hexa- 
decimal) at the end of each page of text. 
This causes the buffer to halt the trans- 
mission of data, turn on the paper-feed 
light and wait. After putting a fresh piece 
of paper into the printer, you press the 
paper-ready switch down to resume print- 
ing. To disable the page-break feature, 
there is an override position for the paper- 
ready switch. 

There are serial data transfer versions 
of the Micro Cue and three single port buf- 
fers available, as well. Prices start at $299 
and go up to $599 for the double-port 
model reviewed here. 
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The Micro Cue Print Buffer in action. 



The Acid Test 

At the editorial offices of 80 Microcom- 
puting, we use our Model I to run dozens 
of program listings every day. Our listings 
include Basic programs, Assembly-lan- 
guage source files and even the odd For- 
tran or Cobol listing. The Micro Cue we've 
been testing interfaces our Models I and 
III to an NEC Spinwriter and sometimes a 
Centronics 739 or Radio Shack Line Print- 
er V. In over three months of use, we have 
not experienced a failure. The only incom- 
patibility detected was with the NEWDOS 
Zap utility— the output to the printer 
became garbled using this utility. 

The only inconvenient feature we've 
found with the Micro Cue is the inability to 
software control the print process once it 
has begun. For example, if you forget to 
set the paper in your printer to the top of 
the page, you cannot stop the printout by 
entering commands into the computer. 
The only way to stop the printout is to turn 
the buffer's power switch off. Then you 
have to wait 10 to 1 2 seconds for the mem- 
ory chips to bleed off their electrical 
charge, turn the power switch back on and 
reload the buffer to print the file (after 
you've corrected your mistake). There is 
probably no way to get around this prob- 
lem—it means you must place the unit in 
an accessible place. 

In spite of its healthy price tag, Micro 
Cue comes with only one cable, a 34-pin 
edge connector at one end and a DB25 
male connector on the other. You must 
come up with your own additional cables 
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, challenging 3-D 
graphics adventure ever written! You are placed in an asylum 
for Deathmaze 5000 survivors. Your only goal: ESCAPE! 

Asylum has 3-D PERSPECTIVE GRAPHICS! And it has 
over 1200 locations! Hallways recede into the screen, as 
though you are actually there! Doors open and close! Beds, 
desks, and even other inmates are drawn on the screen! And 
graphics are generated instantaneously! Simply press an 
arrow key to move or turn, and you are moved. Absolutely no 
waiting! 

An ADVANCED LANGUAGE INTERPRETER means that 
Asylum will understand English language commands from a 
vocabulary of almost 300 words. Commands may include 
complete statements. "GET EVERYTHING ON THE DESK 
EXCEPT THE MATCHES" is perfectly legal! 

To whet your imagination: the Hall of Doors, Nicholson the 
axe murderer, a revolving door, the time machine, the guru of 
nails, the old roadster in the dragstrip, the ancient catapult 
room, plus dozens of other problems and a reasonable 
amount of built-in, subtle hints. 

k ' .. ■' 

ASYLUM: 

- $19.95 
•iskette - $22.95 
AodellorModelHI 




iO. BOX 3558 CHAPEL HILL, NC 2751 
O ORDER, CALL 1-800-3 
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to write custom 



At last, you can get a microcomputer 
business application development system 
that is designed for one purpose 
only . . fast production of bug-free 
professional-looking custom business 
applications. 

"Thinks" the Way Business Thinks 

Quic-N-Easi is the revolutionary screen- 
format-oriented application development 
system that thinks in terms of transactions, 
records and fields. The same way business 
thinks. Quic-N-Easi expects an application 
to include custom formatted key entry. It 
lets you set up the character, field, and 
record validity checks business wants by 
merely filling in the blanks. It automatically 
signals in real time when errors occur 
and "explains" what is wrong in plain 
English messages you select for each 
custom application. 

Much Faster than BASIC 

Quic-N-Easi programming is much faster 
than BASIC because the standard busi- 
ness applications (key input, file handling, 
and output reporting) are handled via 
pre-programmed parameter driven sub- 
routines. To produce finished professional 
looking custom business programs, you 
merely: 

HDraw the business formats directly 
on the CRT in minutes. 

r^I] Fill in the blanks for field attributes, 
' ' validations, tables, etc. 

H Invoke the Quic-N-Easi interpreter 
to check fields against tables, check 
limits, access data files, and perform 
business calculations, etc. 



- 



^1] Optionally define file and output 
formats right on the screen. 

Pays for Itself in a Week 

By eliminating the coding drudgery of 
writing screen, field, file, and format 
programs in BASIC, programmers are 
free to concentrate on the unique business 
aspects of each custom application. No 
professional programmer can afford to 
develop one more business application 
without Quic-N-Easi. The savings are so 
significant with Quic-N-Easi, it can actually 
pay for itself in only one week. 

Gives You Much More than a 
Screen Builder . . . the Only 
Complete Business Development 
System for Microcomputers 

Quic-N-Easi handles the entire application 
development job from key entry to final 
output. You get everything you need, 
including detailed documentation to begin 
writing professional programs the first 
You get . . . 

A singularly capable Quic-N-Easi 

screen builder 

A comprehensive parameter driven 
Quic-N-Easi content editor 

A full Quic-N-Easi interpreter 
language 

A complete Quic-N-Easi file 
management system with Index 
Sequential, Random, and 
Sequential File Access Method 

A complete Quic-N-Easi print format 
handler 

A detailed Quic-N-Easi reference 
manual 
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quick and easy way 

isiness applications 

tstead of weeks. 

! ._'] A Quic-N-Easi self-teaching guide 
. . 1 A Quic-N-Easi quick reference card 
[ ,_] An interface to other program files 

ORDER NOW— Don't Waste 
One More Day Coding BASIC 

Your time is too valuable to waste hours 
on end writing BASIC code. The first 
week you use Quic-N-Easi, your finished 
business programs will look better, run 
better, and return more dollars to you. 
Don't delay. Order Quick-N-Easi today. 
Phone ... 215 968-0689 

IE- n - E35I 

STANDARD MICROSYSTEMS INC. 

136 GRANITE HILL COURT, LANGHORNE. PA 19047 

Pricing Information 

■ Complete Quic-N-Easi system $395 

■ Manual only $60 

■ Visa and Mastercard accepted 

■ Dealer Inquiries Invited 

Minimum System Requirements 

Z80 • 48K • Floppy Disc 

• CP/M (except TRS80 Mod III) 

Disk Formats 

8" Single Density • VECTOR 
GRAPHICS • MICROPOLIS Mod 2 • 
TRS80 Mod II • TRS80 Mod III • APPLE 

• OSBORNE • INTERTEC • ZENITH 

Apple, CP/M, Intertec, Micropenis, and TRS80 are 
trademarks of Apple Computer, Digital Research, Intertec 
Data Systems, Micropolis Corp., and Tandy Corp. 
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for multiple port configurations. We were 
a little short of cables when we hooked 
our unit up so we had to press some 40-pin 
cables into service. I was forced to experi- 
ment to get the pins lined up correctly. Un- 
til I succeeded, the unit would not work. 
The documentation never mentioned this 
potential source of difficulty. This is a ser- 
ious omission since some buyers of the 
Micro Cue will likely possess limited 
technical knowledge. 

In fact, the instruction manual is Micro 
Cue's one major fault. It contains a very li- 
mited amount of information; it is poorly 
laid out (for example, one note refers the 
reader to "see Configuration below" but 
this configuration is actually two pages 
away); and the diagrams are hard to read. 
Microcompatible offers a detailed hard- 
ware description, including schematics, 



Plug'n Power Controller 

Tandy/Radio Shack 

Fort Worth, TX 

Models I & III, Color Computer 

$39.95 

by John W. Warne 

J he Plug'n Power Controller connects 

■ to the cassette recorder jack on the 
Model I keyboard and plugs into an or- 
dinary electrical outlet. The instructions 
cover use with Model I, Level I and Level II, 
Model I TRSDOS, Model III and the Color 
Computer. 

Once loaded, the software prompts for 
the correct time to the nearest minute. It 
provides a real-time display of hours and 
minutes in the lower left of the screen. 
Times must be entered in the 24-hour 
system (17:00 equals 5 p.m.). 

To control a light, radio or other small 
appliance, you need a BSR-type module 
for each appliance. The modules are wide- 
ly available. The device to be controlled is 
plugged into the module. A one-letter 
house code and a one-number unit code 
are selected on the controller module. The 
module is plugged into any polarized 
electrical outlet. 

The computer awaits instructions in the 
direct command mode. A screen status 
display (Fig. 1) indicates the condition of 
each module. A unit is turned on by enter- 
ing the house code, the unit code and the 
desired activity (on/off for appliance 
modules, on/off, dim and bright for lamp 
modules). There is no feedback from the 
controlled module to the software. The 
status is only an indication of software- 



plus a programmer's guide containing the 
ROM's software listing for an additional 
$25. 1 wouldn't be tempted to spring foran- 
other 25 bucks, though, after looking at 
their original manual. 



". . . the instruction 

manual is Micro Cue's 

one major fault." 

The Future 

The folks at Microcompatible are an ac- 
cessible bunch. I talked to them on the 
phone twice in recent months. They said 



issued commands, not the actual condi- 
tion of the module. 

HOME CONTROL SYSTEM 



COMMAND? BR8 






HOUSE CODE: N 


UNIT STATUS 




1 OFF 


2 OFF 3 OFF 


4 OFF 


5 OFF 


>6 0FF 7 OFF 


8 OFF 


9 OFF 


10 OFF 11 OFF 


12 ON 


13 OFF 


V. OFF 15 OFF 


16 OFF 



Fig. 1. 

Level I machines allow up to 32 lines of 
programming code, the Color Computer 
up to 30 and Level II can use 45. The 
instruction booklet does not state the 
number of lines for the Model III. 

Execution of commands proceeds a 

# TIME HOUSE CODE UNIT CODE COMMAND 

1 3 04:00 N 05 ON 

14 04:30 N 05 OFF 

15 05:30 N 05 ON 

16 06:15 N 16 ON 

17 06:15 N 04 ON 

18 07:15 N 04 OFF 

19 06:30 N 05 OFT 

20 07:30 N 05 ON 

21 09:00 N 05 ON 

22 10:00 N 05 ON 

23 12:20 N 05 OFF 

24 12:35 N 05 ON 

21:52:30 NEXT LINE TO BE EXECUTED: 18 

Fig. 2. 



"(There is) no 
automatic restart. . . " 



they are working on new software that will 
allow software switching between devic- 
es using the multiple port Micro Cue. (This 
is possible now for the Z80 machine lan- 
guage programmer— it is possible to send 
256-byte chunks of code into temporary 
storage in the buffer with an LPRINT 
CHR$(27) "L" command.) The switches on 
the front panel will still be usable, accord- 
ing to a development engineer I talked 
with, but software control of this function 
will also be available. The company did 
not indicate what this upgrade will cost 
existing owners. 

The Micro Cue is about the size of a 
Lynx modem and is housed in a light grey 
cabinet. It is unobtrusive and quite useful. 
Depending on your needs and budget, it is 
another nifty peripheral for your favorite 
computer.H 



step at a time. The number of the next 
event is displayed at the bottom right of 
the screen. Once all events are performed, 
the computer starts again at the first 
event. Fig. 2 illustrates a typical page from 
a schedule. 

Commands are provided to insert, 
replace and delete command lines, page 
the display, jump through the list and exit 
the programming mode to the command 
mode. The controller will not operate 
automatically from the command mode. 
You must remain in the programming 
mode for events to be executed by the 
real-time clock. 

Exiting to TRSDOS and using the DOS 
Dump command transfers the controller 
fiie to disk. (The instructions do not ex- 
plain what, if anything, can be done for the 
non-disk user). Once the file is saved, the 
instructions do not tell you when or how to 
get the file back into operation. The only 
clue is in the filename used in the ex- 
ample— DATA/CMD. I realized the entire 
controller system had been saved, not just 
the programmed event schedule. You re- 
boot the program by typing the filename 
used. 

The instruction manual includes sever- 
al Basic routines for accessing the con- 
troller modules for mcorporation in user 
programs. The real-time clock is not active 
except while using the full controller soft- 
ware package. 

One disadvantage is the lack of any 
backup in the event of power failure. The 
software has no automatic restart feature 
and the clock has to be reset each time 
the system is rebooted. Those planning to 
use it for security lighting over weekends 
or vacation trips are forewarned. ■ 
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Disk-80 

Micromint Inc. 

Woodmere, NY 

$275 kit, $380 assembled 

by Dennis Bathory Kitsz 



You unpack it, plug it in, turn it on and 
it works. That's refreshing for a 
TRS-80 Model I system expansion— and 
surprising. But Disk-80 is that easy and 
reliable. 

Designed by Steve Ciarcia, Disk-80 is a 
disk controller interface and memory ex- 
pansion for the Model I TRS-80. It includes 
the usual complement of expansion fea- 
tures: floppy disk controller, 32K memory 
expansion, Centronics-type parallel 
printer port, and an interrupt-driven real- 
time clock. It is compatible with all TRS-80 
software. 

Disk-80 is not unique; in fact, it is mun- 
dane. But uniqueness is rarely the criteri- 
on for Model I system expansion. Rather, 
transparent operation and high reliability 
are essential, and these qualities are ad- 
mirably present in Disk-80. Two novice 
TRS-80 users and I used (and abused) the 
unit for three months and it never ex- 
hibited any unpleasantries. 

The address and data buses are fully 
buffered for noise-free operation as well 
as the power essential to drive peripheral 
devices. Unlike the Tandy modification or 
the LNW-80 design, Disk-80 does not use 
(nor apparently need) passively terminat- 
ed signal lines. The device is designed 
very compactly and internal noise is 
minimal. Only the memory refresh and 
read/write circuitry is terminated, and as 
an added bonus, the sensitive refresh cir- 
cuitry is doubly buffered and reshaped 
with Schmitt trigger ICs and fed through 
gates and resistors that stabilize its lines 
for dramatically reliable upper memory. 




Furthermore, all power supply traces to 
the memories are handsomely bypassed— 
a technique where capacitors are placed 
near the parts in question to minimize 
neighborhood noise during memory use. 
The memories are located together on the 
far edge of the board, using by-the-book 
placement. 



The disk control system is a pleasure to 
use because it is invisible. Disk-80 incor- 
porates a hardware data separator of 
standard design as standard equipment, 
and it works with the precision of the Per- 
com add-on for the Radio Shack interface. 
Disk read errors were common to TRS-80s 
until designers went back to the drawing 
board and read Western Digital's recom- 
mendations for their own disk controller 
chip — use an external data separator. 
Disk-80 does this and again uses Schmitt 
triggers for signal reshaping on informa- 
tion incoming from disk drives. You can 
add the usual four drives with Disk-80. 

The real-time clock also includes de- 
sign upgrades, including CMOS integrat- 
ed circuits to lower power consumption 



and noise and increase precision. The par- 
allel printer port (incorporated in the pow- 
er supply board) is standard. The power 
supply itself is adequate and concisely 
designed. The entire expansion unit is 
packaged in a small plastic case less 
than half the size of the Radio Shack 
expansion system. 

Excellent documentation and full sche- 
matics are provided with Disk-80, and the 
construction article {Byte, March 1981) de- 
scribes details of the circuit operation and 
unveils many of the mysteries of expan- 
sion interface operation. 

Reviewing Disk-80 is almost incon- 
gruous, because any comments can 
be summarized with the sentence, 
"It works. "■ 



6809 Assembly Language Programming 

Lance Leventhal 

Osborne/McGraw-Hill 

Berkeley, CA 

$16.99 

by Phil Saunders 

I bought a home computer to learn As- 
sembly language. However Radio Shack 
has no manual for programming the 6809 
microprocessor in the Color Computer. 
Therefore one of my first purchases was 
6809 Assembly Language Programming. 
This is the fifth volume in his series on 
Assembly language programming. Other 
books in the series concern programming 
the Z80 and the 6502. 

Leventhal assumes the reader has a 
basic knowledge of microcomputing prin- 
ciples. 6809 Assembly Language Pro- 
gramming is divided into five basic sec- 
tions: Fundamental Concepts, Introduc- 
tory Problems, Advanced Topics, Soft- 
ware Development, and the 6809 Instruc- 
tion Set. Following are five appendices 
and an index. 

The Fundamental Concepts section 
gives an introduction to Assembly lan- 
guage. It gives reasons for using Assem- 
bly language and compares Assembly 
language with high-level languages (Pas- 
cal and Fortran). This section describes 
the functions of an assembler, including 
special features such as macros and con- 
ditional assembly. It goes on to describe 
the architecture of the 6809 in comparison 
to the 6800. Also discussed are address- 
ing modes and conversion of 6800 pro- 
grams to the 6809. The final chapter gives 
the syntax rules of the standard Motorola 
assembler. I refer to this valuable sec- 
tion constantly. 




The second section starts you program- 
ming. First there is a statement of the pur- 
pose of the program, a sample program, 
the source code (with comments) and the 
object code. An explanation of the in- 
structions and programming methods 
used in the program follows. The pro- 
grams, accompanied by text, are followed 
by problems for the user to solve. 

I need to say a word about the pro- 
grams. All begin at zero — fine for most 
computers. However, this is part of the 
mysterious memory used by Basic. 
Despite what the manual says about this 
memory being available for machine- 
language programs, every time I POKE a 
number into memory location $01, the 
number changes. This means a monitor is 
probably necessary for programming or 
the programs have to be relocated. Ac- 
tually, the book is designed to be used 
with an assembler: I strongly recommend 
using one. 

Problems covered in the second sec- 
tion include transferring data, program 
loops, character codes, and arithmetic 
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problems. Code conversions and using 
tables are also covered. 

The Advanced Topics section uses the 
same format as section two. It covers ad- 
vanced programming methods and gives 
notes on their use. This section also 
shows some peripherals for the 6809. 
Some information, particularly on the 
6820 Peripheral Interface Adapter, is 
useful in interfacing other devices. Also 
shown is an Analog-to-Digital converter 
for the 6809. Since this is a full eight-bit 
device, it could extend joystick range. In 



§m 



addition, interrupts and a real-time clock 
are both discussed. 

The fourth section covers software 
design: structured programming, modular 
programming and flowcharting. These 
chapters also have a thorough discussion 
of coding, debugging, testing and an 
often forgotten topic, documentation. 

This is followed by the section on the 
6809 instruction set. There are details of 
how each instruction affects memory lo- 
cations and registers, often shown in sev- 
eral addressing modes. Included in these 



descriptions are mnemonics, allowable 
modes, object code, and the number of 
bytes needed. Also shown are 6800 in- 
structions with their 6809 translations. 

In summary, the book is an excellent 
value. It contains vital information for pro- 
gramming the 6809. Although not written 
for the Color Computer, most information 
is relevant. It is not for the absolute begin- 
ner; if you are just starting I recommend 
Ron Bishop's book Basic Microproces- 
sors and the 6800 or the various volumes 
of An Introduction to Microcomputing. ■ 



TRS-80 Graphics 
Robertson and Grillo 
Tandy/Radio Shack 
Fort Worth, TX 
Softcover, 133 pp. 
$7.95 

by Bruce Douglass 

There are not too many books that deal 
with a variety of graphics techniques 
for the TRS-80. This is not surprising, 
since the graphics are not something to 
get excited about when compared to, say, 
the Atari. They have not, however, been 
utilized to their potential in many pro- 
grams available on the market. This book 
is a good, inexpensive introduction for the 
beginner to this fascinating topic. 



them. An example for a line-printer display 
of Snoopy's friend Woodstock is given. It 
is done in the classic variable-density 
printer-character style by actually "draw- 
ing" the figure inside LPRINT" " state- 
ments, and then simply printing them. 
This is a simple approach that is easy for 
anyone to understand. The use of Tab is 
then explained by example, and some for- 
matted outputs are shown. The next few 
routines print out variations of sine 
curves, along with harmonics of the sine 
function. 

There follows a valuable discussion of 
histograms, or bar-graphs, with routines 
to generate examples. While certainly a 
simple topic, it is useful for the end-user. 

The graphics dealt with so far have 
been quite elementary, but Chapter 4 dis- 



"This book is a good. . . 
introduction to TRS-80 graphics." 



The book is in a large format and is easy 
to read. If you can write a routine to draw a 
line between two points or draw a circle 
anywhere on the screen in less time than 
it takes for you to pour a cup of coffee, 
then this book is not for you. It does not 
even mention machine language, and so 
all the graphics techniques used are im- 
plemented in Basic. 

This book is a good elementary intro- 
duction to TRS-80 graphics. One valuable 
aspect of the book is the preponderance 
of example Basic routines, along with ex- 
ample outputs for each routine. For the 
beginner, this approach should smooth 
over any fears of dealing with a complex 
subject. 

It begins with a topic not mentioned 
much in these days of CRTs— printer 
graphics. Different logos are displayed 
with short Basic routines to produce 



cusses computing pictures. Some of the 
examples are interesting. One routine 
generates a sine wave for the CRT display. 
Some problems and solutions follow— for 
example, the printer-graphics problem, 
"What is the distribution of heat in a room 
as the exterior of a Franklin stove heats up 
from 70 to 400 degrees?" An interesting 
and useful routine is one that prints 
blocks of characters so the user can scan 
and determine appropriate density char- 
acters for printer graphics. 

Chapter 5 develops the idea of data 
statements storing encoded graphics for 
later display. Some of the graphics used 
here work acceptably, and some simply 
do not come off at all. The table-driven 
silhouette of a witch is not readily recog- 
nizable, but it at least introduces the topic 
to the uninitiated. 

So far, all of the graphics have been 



ASCII-character oriented. Nothing is 
wrong with that, but it certainly does not 
exploit the power of the TRS-80 graphics 
characters. This problem is solved in 
Chapter 6. STRING$( ) is employed as well 
as CHR$( ), demonstrating their uses. This 
discussion includes a short lesson on the 
graphics codes. Example routines include 
how to draw a box around a message, and 
a routine that displays oversized random 
digits using the graphics characters. 
There is even a short routine to display an 
oversized digital clock. 

In chapter 7, pixel graphics are intro- 
duced. Although it might be thought na- 
tural to begin here and later introduce the 
other topics, this arrangement is logical 
and is a useful progression. The Set and 
Reset commands are explained well, and 
serve as a useful supplement to the Level 
II manual for the beginner. Example rou- 
tines do such exciting things as draw 
lines between two points or draw circles 
of a given radius around a point on the 
screen. Other routines draw the state of 
Massachusetts and a smiling face. 

The last chapter deals with motion 
graphics. It begins with the usual ping- 
pong ball idea of reflection and uses the 
idea to generate interesting displays with 
the inclusion of obstacles for the bounc- 
ing pixel. A marquee program fails rather 
miserably. The authors attempted to 
make this introduction to graphics as sim- 
ple as possible, and so greatly limited the 
animation used. Perhaps it will be effec- 
tive in exciting the imagination of the 
readers to develop more intricate 
displays. 

As mentioned, this is a very elementary 
approach to graphics for the TRS-80. Pixel 
graphics are not even discussed until the 
seventh chapter and not very much is 
done with them after that. However, for 
the neophyte learning to use his com- 
puter, this book may well provide a 
valuable introduction to the topic of com- 
puter graphics. ■ 
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Microcomputer Math 

William Barden Jr. 

Micro Applications Publishing 

Mission Viejo, CA 

Softcover, 168 pp. 

$9.95 

by Bruce Powel Douglass 



Barden's new book, Microcomputer 
Math, deals with the structure of 
computer mathematics on a very elemen- 
tary level. Although the book is specifical- 
ly aimed for TRS-80 and Color Computer 
uses, most of the information applies to 
all binary coded arithmetic. This book is 
CPU independent; no CPU instructions 
are mentioned: Z80, 6809, or otherwise. 




Readers of Barden's other literary 
efforts, such as TRS-80 Assembly 
Language Programming, are aware of 
(Barden's) loose writing style. His anec- 
dotal writing approach lessens the fears 
of readers intimidated by the subject. It 
makes for wordy reading, but for many, a 
painless approach is worth the verbosity. 
Readers more at home with academic 
writing may find it a poor time investment. 
Barden uses the anecdotal approach with 
a bit more gusto in the present volume. It 
neither hinders the presentation of the 
material, nor does it greatly aid it. 

The book is divided into 10 chapters, a 
glossary and two appendices. The topics 
range from an introduction to binary num- 
bers to a brief discussion of floating point. 
Each chapter ends with a few exercises to 
test understanding, and the uncomment- 
ed answers can be found at the end of the 
book. The first appendix is a hex-octal- 
binary-decimal conversion table, and the 
second appendix is a two's compliment 
number conversion chart for decimal to 
binary and vice versa. 

The first chapter introduces the reader 
to the narrative's main character, Big Ed. 
Throughout the book, Ed learns more and 
more about numbers through the help of 
customers from microcomputer compo- 
nent manufacturers. The topic dealt with 
an introduction to binary numbers and 
converting binary to decimal. Once this 
concept is firmly entrenched, Barden in- 



troduces the reader to a green creature 
with eight fingers on each hand. The 
topics of position-dependent numerical 
value are covered well from a simple 
standpoint (although it is not referred to 
as such). Certainly, anyone with a high 
school degree has seen this topic before, 
and so it does serve to begin on a common 
ground. 

Chapter 3 begins the real information 
with the subject of two's compliment and 
signed numbers. This excellent chapter 
presents the information very understand- 
ably and simply. Addition and subtraction 
of eight-bit operands is covered well, and 
the discussion includes the necessary 
topic of "carries" and "borrows." The 
algorithms are presented well, although it 
might be useful here to present Z80 or 
6809 instructions in the examples to ac- 
custom the reader to Assembly language 
and how they manipulate numbers. 

Chapter 4 is a brief chapter and covers 
overflow, carries, and flags that inform 
you of such occurrences. The chapter 
shows and describes the flags for both 
the TRS-80 Model I and for the Color Com- 
puter. Chapter 5 presents logic and shift- 
ing operations. The logic operations dis- 
cussed include OR, AND, XOR and NOT. 
Rotates, logic shifts and arithmetic shifts 
round out the chapter. 

Now that the preliminary work is out of 
the way, Barden approaches multiplica- 
tion and division algorithms. Barden uses 
two methods to introduce multiplication: 
successive addition and the "shift and 
add." He also discusses signed multipli- 
cation and uses the XOR to get the sign 
bit, performing the multiply on the ab- 
solute value of the numbers, and then if 
the sign is negative, set the MSB. The re- 



are relatively simple to implement com- 
pared to multiple-precision multiplies and 
divides. Barden presents an algebraic fac- 
toring method. The concept is simple 
enough, and the discussion is straightfor- 
ward. Barden dismisses the problem of 
multiple-precision division with a com- 
ment that it is difficult to implement (he re- 
turns to it later in the chapter on floating 
point numbers). 

Chapter 8 discusses binary fractions 
and lays the groundwork for the topic of 
floating-point numbers (to be discussed 
soon). The chapter presents binary num- 
ber scaling as an alternative approach to 
dealing with binary fractions. These tech- 
niques work on fixed-point numbers, and 
so serve as an introduction to a topic and 
often discussed in the current microcom- 
puter literature. 

Chapter 9 deals with the problem of 
converting numbers into ASCII represen- 
tations for display. It includes conversion 
of fixed-point binary fractions as well as 
integers to ASCII. Again, the information 
is presented in a clear, if not concise, 
manner. 

Barden begins floating point with a dis- 
cussion of scientific notation, introducing 
the ideas of exponents and mantissas. He 
briefly discussed the format for single and 
double-precision numbers. Unfortunately, 
Barden did not mention floating-point 
arithmetic except to mention that it is a 
difficult topic. 

It is unfortunate that Barden did not 
spend another 20 pages discussing imple- 
mentation of floating-point arithmetic 
on the microcomputer. In my opinion, it 
seriously undermines the utility of the 
book. I purchased this book to learn about 
the number formats used by the TRS-80 to 



"Barden begins floating point 

with a discussion 

of scientific notation. . . " 



mainder of the chapter deals with division 
algorithms, and Barden presents two 
methods, successive subtraction and re- 
storing division. People performed divi- 
sion using this latter approach before ma- 
chines appeared to do it for them. A very 
brief mention of what to do with signea 
operands ends the chapter. 

Chapter 7 discusses multiple-precision 
arithmetic. It presents additions and sub- 
tractions, complete with borrows and car- 
ries in algorithmic form. Of course, these 



aid the writing of some complex matrix 
operations in machine language, and I 
am disappointed that it is not helpful 
in this regard. 

This book is an excellent introduction 
to the elementary aspects of computer 
mathematics, provided you enjoy 
Barden's writing style. It fails in that 
it does not cover any topics of interest 
for the reader who has a good grasp of 
the elementary concepts and wishes to 
know more.H 
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Radio Shack Model III Service Manual 

Tandy/Radio Shack 

Fort Worth, TX 

Softcover, 125 pp. 

$10.95 



by Jerry P. Turpin 



Radio Shack recently released its 
most important piece of Model III 
documentation: The Service Manual. It is 
a service manual. To use it you need a 
basic knowledge of digital electronics and 
microprocessor technology. 

The Model III is a self contained com- 
puter system which when fully equipped, 
contains 48K RAM, dual internal disks ca- 
pable of double density, a self-contained 
video monitor, RS-232 interface, cassette 
I/O ports, an eight-bit parallel I/O port, 
real-time clock and an internal power sup- 



CPM/Primer 

Stephen M. Murtha and Mitchell Waite 

Howard W. Sams & Co. Inc. 

Wirebound, 96 pp. 

$11.95 



by J.C. Hassall 



At last there is a definitive book on 
CP/M (Control Program for 
Microcomputers). 

This book introduces the CP/M operat- 
ing system (including version 2.0) in a 
clear, concise fashion. It was written for 
all levels of experience. The book is writ- 
ten so well the reader does not need ac- 
cess to a computer running CP/M to un- 
derstand much of the operating system. 
The book is illustrated using a video 
monitor outline to show how the user's 
screen will look. 

The first two chapters introduce the 
CP/M operating system in general and 
specifically to a CP/M microcomputer in 
terms of hardware and software con- 
cepts. The first chapter gives the reader 
an overview of CP/M and the characteris- 
tics of an operating system in general. An 
item I found interesting was the history of 
how CP/M was developed. The second 
chapter covers hardware and software 
concepts of a CP/M microcomputer. Of in- 
terest to newcomers is an explanation of 
logical and physical I/O (Input/Output) 
device assignments, and the software 



ply. Obviously, this is not a piece of equip- 
ment to be serviced, or modified without 
extensive documentation. 

Model I's technical manual went into 
great detail to explain the workings of the 
Z80 microprocessor and how its various 
signals are used on the CPU board. The 
writers of the Model III manual expect the 
reader to already possess a working 
knowledge of Z80 architecture. Most of 
the manual consists of schematics, cir- 
cuit traces, wave-forms and parts lists. 

The Service Manual falls short in the 
video monitor section. Although it in- 
cludes a schematic, it does not provide 
the kind of detailed service information 
usually found with commercial televisions 
and monitors. The monitor is a modified 
RCA 12-inch black and white television, 
similar to the KCS-206. Anyone seriously 
considering servicing the video section 
should obtain KCS-206 service data, file 
1981, B-1. 

Another shortcoming is the omission of 



three important tables: A pin-out of the 50 
connector bus I/O connector; a pin-out of 
the 34-connector parallel printer port; and 
a pin-out of the RS-232 port. Although the 
information is available on the appropri- 
ate schematics, a table listing each would 
be helpful. The manual provides advanced 
experimenters with the needed informa- 
tion for interfacing an unlimited variety 
of devices. 

The manual explains almost every- 
thing. Going abroad and want to convert 
your Model III to 50-cycle current? It is a 
simple matter of changing a few jumpers 
and is explained on page 18. Do you have 
a 4K machine and want to expand to 16K? 
This is also explained on page 18. Need to 
align the disk drives? Step-by-step proce- 
dures are on page 109. Purchase your own 
4116 RAMs and save a bundle by install- 
ing them as per the schematic on page 33. 

For the independent service shop tech- 
nician or the advanced experimenter, The 
Service Manual is a must.H 



hierarchy in a CP/M system. 

If the reader is already familiar with 
microcomputers, skip the first two chap- 
ters. But be sure not to skip any of the ex- 
cellent drawings by Bob Gumpertz. His 
humorous drawings add to the enjoyment 
of the book. 

Starting up and first using a CP/M sys- 
tem is covered in chapter three. The basic 
philosphy of the book is that the reader 
has a system for which CP/M is available 
with the BIOS (Basic Input/Output 
System) module already modified for that 
computer; an explanation of the steps re- 
quired to modify BIOS is beyond the 
scope of this book. The manner in which 
CP/M is booted into the system memory is 
discussed, along with an explanation of 
where the bootstrap program resides on 
the disk. Disk and memory organization is 
just enough detail for the reader to 
understand how the system operates, 
without being overwhelmed by unneces- 
sary details. The three functional modules 
of CP/M and how they interact are 
discussed. 

System initialization is the topic in 
chapter four beginning with disk format- 
ing and an explanation of common disk 
formats. The chapter continues with copy- 
ing a CP/M system disk and the procedure 
to generate a system disk (called SYS- 
GEN). Since the amount of available sys- 
tem memory may vary, the user needs to 
know how to reconfigure the system im- 
age— MOVCPM is the command used. 

Chapter five speaks to the STAT 
(Status) and PIP (Peripheral Interchange 



Program) utility programs (or transient 
commands). The chapter starts with an 
explanation of why the commands are 
necessary at all. Various forms of the two 
commands are illustrated. The com- 
mands have multiple uses. Numerous ex- 
amples are given to illustrate the power of 
the commands. 

Chapter six deals with ED, the CP/M edi- 
tor. Some people can make ED do a 
dance, I cannot. 

The CP/M assembler ASM is covered in 
chapter seven. I liked the coverage given 
to the various ASM directives and pseudo- 
operations. Most books either gloss over 
or ignore them entirely. 

The last chapter is devoted to DDT. The 
Dynamic Debugging Tool allows real-time 
debugging of a program from the 
keyboard. In the course of the chapter, all 
DDT commands are used and explained. 

Appendix A gets to the heart of CP/M 
detailing the general system and I/O call 
procedures, the I/O status byte and a host 
of other features. Particularly handy is a 
disk allocation and extents chart. 

Appendix B is a comprehensive list of 
CP/M compatible software. The list is 
divided into five program categories. Each 
category is subdivided for clarity's sake. 

The last appendix is a CP/M reference. 
All commands are listed by command 
type with a brief description of what each 
command does. ASM and DDT commands 
are included. 

A handy pocket reference card provided 
recapitulates Appendix OB 
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by David Busch 




Those of you who still haven't 
found a practical use for the nifty 
Radio Shack pocket computers you 
snapped up during the sale last May need 
worry no longer. The innovative crew at 
Kitchen Table Inc.— the world's foremost 
fictitious manufacturer of space age pro- 
ducts—has introduced a complete word 
processing package for the TRS-80 Pock- 
et Computer. 

The system includes a lowercase modi- 
fication kit for the single-line liquid crystal 
display, a pocket-sized daisy-wheel 
printer and interface, and a sophisticated 
software adaptation of KTI's best-selling 
Word Whacker program. 

Because the TRS-80 Pocket Computer 
has no string handling capabilities, there 
are a few limitations. For example, all 
word input must be seven characters or 
less. The system is perfect for sports- 
writers or television scriptwriters, while 
less than ideal for attorneys or insurance 
underwriters. 

KTI has also introduced a miniature 
programmable device, dubbed the TLS-8E 
Pockets Computer. The Federal Trade 
Commission has reportedly insisted on 
the plural designation because KTI could 
not find a single pocket which could hold 
computer, cassette interface, tape 
recorder, and printer all at once. 

Because the KTI Pocket Word Whacker 
(PWW) will work with either the Tandy or 
KTI micro-micro computers, let's look at 
that package first, before delving into the 
features of the Pockets Computer. 



Pocket Word Whacker is an extremely 
powerful package. The lowercase modifi- 
cation is simple to install. Kitchen Table 
provides complete instructions so the 
user can carry out the modification 
himself. To keep the cost of the kit as low 
as possible, several changes are made to 
existing integrated circuits in the pocket 
computer. If you're a bit rusty at micro- 
soldering, KTI will provide you with IC's 
which have already been adapted for a 
modest fee. 

A few rarely-needed parts in the pocket 
computer must be de-soldered and dis- 
carded, and the tiny IC chip supplied by 
KTI placed in any convenient nook or cran- 
ny. I couldn't make up my mind where to 
put the device, and so called KTI for ad- 
vice. I found nooks are preferred over 
crannies, because of the reduced chance 
of static electricity buildup. 

Once the mod is in place, the pocket 
computer will produce the full lowercase 



u 



the shifted equal sign (lowercase equal 
sign is still operative) was a minimal price 
to pay for this elegant kluge. 

Pocket Word Whackei is a short pro- 
gram, well within the memory limitations 
of both the Pocket and Pockets com- 
puters. The computer must be nestled in 
its cassette interface, and properly con- 
nected to a suitable recorder prior to 
entering word processing mode. Kitchen 
Table recommends several reel-to-reel 
tape recorders which can be used for op- 
timal results at 15-inches per second tape 
speed. The company will even sell you a 
remote pause kit allowing these units to 
be turned on and off by the pocket com- 
puter. A battery pack and ac/dc inverter 
are optional. 

However, we had our hearts set on us- 
ing a good-quality battery powered 
cassette recorder. Since these are expen- 
sive, we settled for our existing CTR-80A 
instead. 



the world's foremost fictitious 
manufacturer of space age products- 
has introduced a complete word processing 
package for the TRS-80 Pocket Computer." 



character set in unshifted mode (no 
descenders, however), and uppercase 
when "shift" is pressed. 

This poses one possible problem how 

does one obtain the "normal" shifted 
character set, such as the apostrophe, 
quotation mark, dollar sign, etc? Kitchen 
Table has come up with a clever solution. 
With the lowercase mod, the space key 
(SPC) becomes a second shift, or con 
trol key. 

Some may object to the subsequent 
loss of the SPC key caused by the above 
solution. Not to worry. "Space" may still 
be obtained by hitting SHFT + SPC + 
"equal sign". I felt that the elimination of 



Once the software is run, the user sim- 
ply types normally on the keyboard, that is, 
assuming he or she has very, very tiny 
fingers. Normal people may prefer to set 
the computer on a hard surface, and 
whack away with two fingers. Kitchen 
Table supplies Velcro tabs wh ch may be 
placed on the bottom of the cassette inter- 
face and the typing surface to hold the 
computer in place. 

Limitations of the computer itself have 
been overcome admirably. The user sim- 
ply types in a word, and hits Enter as each 
word is completed. The program stores 
the word in a string array, and, as memory 
fills, dumps the memory contents to the 
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TRS-80 owners ... if you would like to learn more about 
CP/M, call or write for our free brochure. 



OMIKRON proudly presents 








the ultimate CP/M package for your TRS-80* Model I 



The WORKS includes: 
Mapper I & CP/M 2.2, CBASIC I!, MBASIC-80 and WordStar 




is widely recognized as the 
most advanced product on the market. It is 
featured by many computer manufacturers, in- 
cluding Xerox, for wordprocessing applications. 

C List price: $495 



CP/M 2.2 is the latest version of CP/M 
from Digital Research. Our package also includes 
the MAPPER I CP/M adapter and a sophisticated 
set of utilities and drivers designed to optimize 
the CP/M system for the TRS-80. 

D List price: $239 



is the CP/M version of 
Microsoft BASIC. The conversion of TRS-DOS 
BASIC programs to MBASIC is easy because the 
syntax is almost identical. 

□ List price: $349 



CB/VSIC II is the most widely used BASIC 
for CP/M applications programs. This version of 
BASIC contains ail of the features necessary to 
develop complex business programs. 

D List price: $149 




Products that set Precedents 

1127 Hearst Street, Berkeley, CA 94702 (4 1 5) 845-80 1 3 



'TRS-80'" Radio Shack/Tandy Corporation 



.so CP/M™ Digital Research 



MMSFORTH VERSION 2.0: 

MORE FOR YOUR RADIO SHACK 
TRS-80 MODEL I OR MODEL III ! 

• MORE SPEED 

10-20 times (aster than Level II BASIC 

• MORE ROOM 

Very compact compiled code plus VIRTUAL 
MEMORY makes your RAM act larger. Variable 
number ol block butlers. 31-ch»r -unique word- 
names use only 4 bytes In header! 

• MORE INSTRUCTIONS 

Add YOUR commands to its 79-STANDARD-plus 



structii 



Far more complete than most Forths: single & 
double precision, arrays, st'inc-handling, clock. 

• MORE EASE 

Excellent full-screen Editor, structured & 
' programming 



Word i 



ch utility 



THE NOTEPAD letter writer 
Optimized for your TRS-80 with Keyboard 
repeats, upper/lower case display driver, full 
ASCII, single- « double-width graphics, etc 

• MORE POWER 

Forth operating system 

Interpreter AND compiler 

8080 Assembler 

(Z80 Assembler also available) 

Intermix 35- to 80-track disk drives 

Model III System can read, write & run Model 

diskettes' 

VIRTUAL ; 'or video ana printer, disk and ta 

(10-Megabyte hard disk available) 




THE PROFESSIONAL FORTH 
FOR TRS-80 

(Over 2,000 systems in use) 

MMSFORTH Disk System V2.0 (requires 1 disk 
drive & 32K RAM, specify Model I or II) $129.95* 

AND MMS GIVES IT 
PROFESSIONAL SUPPORT 

Source code provided 

MMSFORTH Newsletter 
Many demo programs aboard 
MMSFORTH Uier Groups 
Inexpensive upgrades to latest version 
Programming staff can provide advice, modifications 
and custom programs, to fit YOUR needs. 

MMSFORTH UTILITIES DISKETTE: includes FLOATING 

POINT MATH (L? BASIC ROM routines plus Complex 
numbers, Rectangular-Polar coordinate conversions, 
Degrees mode, more), pius a full Forth-style Z80 ASSEM- 
BLER; plus a powerful CROSS-HEFERENCER to list 
Forth words by block and line. All on one diskette 
(requires MMSFORTH V2.0, 1 drive & 32K RAM) . $39.95' 

FORTHCOM communications package provides RS 232 
driver, dumb terminal mode, transfer o' FORTH blocks. 
and host mode to operate a remote TRS-80 (requires 
MMSFORTH V2 0, ! drive * 32K HAM) J39.95" 

THE DATAHANDLER V1.2: a very sophisticated data- 
base management system operable by non-pro- 
S rammers (requires MMSFORTH V2 0. 1 drive * 32K 
AM) $59.95* 

MMSFORTH GAMES DISKETTE real-time graphics 8 
board games w'source code Includes BREAKFORTH, 
CRASHFORTH, CRYPTOQUOTE. FREEWAY, OTHELLO 
8 TICTACFORTH (-equires MMSFORTH V2 0, 1 drive 8 
32K RAM) $39. 96" 

Other MMSFORTH producU under development 

FORTH BOOKS AVAILABLE 

MMSFORTH USERS MANUAL - without Appendices, for 

non-owners $17.50* 

STARTING FORTH • best companion to our man- 
ual $15.95* 

THREADED INTERPRETIVE LANGUAGES • advanced, 
excellent analysis of MMSFORTH-like lan- 
guage 118.95* 

PROGRAM DESIGN * CONSTRUCTION ■ intro. to struc- 
tured programming, good for Forth $13.95* 

FORTH -79 STANDARD MANUAL - official reference to 
79-STANDARD word set. etc $13.95* 

FORTH SPECIAL ISSUE, BYTE Magazine (Aug. 1980) ■ 
we stock this collector's item for Forth users and begin- 
ners 14.00* 

• ■ ORDERING INFORMATION: Software prices Include 
manuals and require signing of a single system, single- 
user license. SPECIFY for Model I or Model III I Add 
$2.00 S/H plus $3.00 per MMSFORTH and $1.00 per addi- 
tional book; Mass. orders add 5% tax. Foreign orders 
add 20%. UPS COD, VISA 4 M/C accepted; no unpaid 
purchase orders, please 



Send SASE for free MMSFORTH information. 
Good dealers sought 

Get MMSFORTH products from your 
computer dealer or 

MILLER MICROCOMPUTER 




,-■37 



SERVICES (M3) 

61 Lake Shore Road, Natick, MA 01760 
(617)653-6136 
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10 : REM WORD PROCESSING FOR POCKETS COM- 
PUTER 
: PAUSE "BE CERTAIN CASSETTE RECORDER 

CONNECTED" 
D : PAUSE "ARE YOU SURE RECORDER IS CON- 
NECTED?" 



: PAUSE "THIS IS YOUR LAST CHANCE" 
: PAUSE "YOU WERE WARNED" 
. BEEP 5 
REM ••••"MENU****** 

: INPUT "(L)OAD, (C)REATE, OR (S)PACE IN- 
VADERS";B$ 
90 : IFB$ = "C"GOTO220 
100 : IF B$ = "L" GOTO 140 
110 : IF B$ = "S" PAUSE 'YOU IDIOT, THERE IS NO 

CRT" 
120 : GOTO 80 
130 . REM •-•••• L OAD FILE FROM TAPE 



140 : INPUT "ENTER FILENAME";F$ 

150 : INPUT #1,F$;A$(27) 

160 : INPUT "(E)DIT , (P)RINT, (A)NDROID NIM";BS 

170 : IF B$ = "P" GOTO 360 

180 : IF B$ = "E" GOTO 480 

190 : IF B$ = "A" PAUSE "YOU NEVER LEARN, DO 

YOU?' 

200 : GOT0 160 

201 : REM ****** CREATE TEXT *** "** 
220 :N = 27 

230 INPUT A$(N) 

240 : IF A$(N) = " = " GOTO 260 

250 :IFND100GOTO310 

260 : INPUT " SEE TEXT FILE (Y/n)";B$ 

270 : IF B$ = "N" GOTO 310 

280 FOR G = 27 TON 

290 : PAUSE ASiG; 

300 NEXT G 

310:REM ****** SAVETO TAPE ****** 

320 : INPUT "ENTER FILENAME";F$ 
330 ; PRINT #1,F$;A$(27) 

340 GOTO 30 

350 :REM * EDIT****** 

360 : PAUSE "HIT ' = ' AFTER LINE TO EDIT" 

370 :N=27 

380 : IF A$(N) = " = " GOTO 440 

390 : PRINT A$(N) 

400 ; INPUT B$ 

410 : IF B$ = " = " GOTO 320 

420 : N = N + 1 

430 : GOTO 370 

440 : PAUSE "ENTER NEW WORD" 

450 : INPU1 ASA' 

460 : GOTO 420 

470 : REM «♦•*«* PRINT --**** 

480 . FOR G = 27 TO N 
490 : LPRINT A$(G) 
500 : NEXT G 



Program Listing 



cassette tape. To edit the text, the user 
loads the text file, which is displayed one 
word at a time. Hitting a key after the 

display of the word allows that word to be 
changed. Though this system could con- 
ceivably be rather tedious if whole 
sentences must be altered, it works ex- 
tremely well for changing one or two 
words in an otherwise fine sentence. 

The TLS-8E Pockets Computer is 
deceptively similar in appearance to the 
Radio Shack version, although close in- 



spection reveals the case is made of 
plastic, the keys of wood, and the display 
of only semi-liquid crystal. Instead of ex- 
pensive mercury batteries, the unit ' 
operates from rechargeable cells kept at 
peak by a tiny electric generator inside. I 
cracked open my sample (the case ap- 
peared to be heat-welded much like a 
cheap tape cassette) and looked at this 
wonder of miniaturization. I found a 
mainspring-powered generator wound by 
the movement and jostling of the owner of 
the computer. A KTI spokesperson ex- 
plained this particular module is built for 
the company in Switzerland by Timex. 

I tested the Pockets Computer exten- 
sively, and found it to operate nearly iden- 
tically to the Tandy model built by Sharp. 
One extra feature I liked was the built-in 
travel alarm feature. The main complaint 
was using SHFT + Y as the snooze but- 
ton. Who can think clearly enough early in 
the morning to take advantage of that 
feature? 

The final piece of the word processing 
package, the tiny five-by-nine-by-three- 
inch daisy-wheel printer, was not 
available for testing at press time. Pro- 
totypes could only print out in the Sri 
Lankan language (KTI officials were not 
sure what it is called. Ceylonic?). 
However, because of the importance of a 
printer in any word processing system, 
the company promised the printer will be 
forthcoming. 

Rumors that a version of the printer will 
be built into all future models of the 
Osborne I microcomputer (boosting the 
price of that machine by $75), are untrue. 

As a public service, KTI has supplied an 
early version of Pocket Word Whacker for 
the use of 80 Micro. A listing of this 
limited-capability program is reproduced 
with this article. It has not been entirely 
debugged (that's why it's free), but should 
be usable for any documents of 100 words 
or less.B 
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PUTER BOOKS FOR BEGINNERS 



Everything you need to know to get started programming your own computer. These handy program sourcebooks, each 
jam-packed with easy-to-understand info for beginners, are crammed with hundreds of tips, tricks, secrets, hints, short- 
cuts, and techniques, plus hundreds of tested ready-to-run programs. TRS-80 Color Computer. TRS-80 Pocket Computer. 
Sharp PC-1211 Pocket Computer. Casio FX-702P Pocket Computer. Four of the most popular computers for beginners. 

Color Computer 

101 Color Computer Programming Tips & Tricks, learn-by-doing instruc- 
tions, hints, secrets, techniques, shortcuts, insights, for TRS-80 Color 
Computer. 128 pages $7.95 



55 Color Computer Programs for the Home, School & Office, practical 
ready-to-run software with colorful graphics, 1 28 pages $9.95 

55 MORE Color Computer Programs for Home, School & Office, 

sourcebook of useful, plug-in-and-run software with colorful graphics, 
for TRS-80 Color Computer, 1 1 2 pages $9.95 

The Color Computer Songbook, 40 favorite pop, classical, folk & seasonal 
songs arranged for the TRS-80 Color Computer, ready-to-run music pro- 
grams. 96 pages $7.95 

My Buttons Are Blue And Other Love Poems From The Digital Heart Of An 
Electronic Computer, for poetry lovers, computer lovers, just-plain 
lovers, a high-tech classic, 66 heartwarming poems written by a TRS-80 
Color Computer, great gift for someone close to you, includes the ex- 
clusive ARCsoft Poetrywriter™program, 96 pages $4.95 




Program Worksheets 

Handy printed forms make writing BASIC software easy and fun. 
Customized for your own computer system, or use the universal form 
good for any BASIC computer. 40-sheet tablets. 

Color Computer Coding Form $2.95 

Pocket Computer Coding Form $2.95 

APPLE Computer Coding Form $2.95 

IBM Personal Computer Form $2.95 

Universal Coding Form $2.95 

Electronics Projects 

25 Easy-To-Build One-Night & Weekend Electronics Projects, useful 
gadgets, readily-available Darts, 96 pages $4.95 



Are Blue 

and Other Love Poems 

From The Digital Heart 
i Electronic Computer 




Color 
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Pocket Computer 

50 Programs in BASIC for the Home, School & Office, useful plug-in-and- 
run software for TRS-80/Sharp PC-1211 pocket computers, 96 
pages $9.95 

50 MORE Programs in BASIC for Home, School & Office, sourcebook of 
tested ready-to-run software for TRS-80/Sharp PC-1211 pocket com- 
puters, 96 pages $9.95 

101 Pocket Computer Programming Tips & Tricks, secrets, hints, short- 
cuts, techniques from a master programmer, for TRS-80/Sharp PC-1211 
pocket computers. 128 pages • $7.95 

Murder In The Mansion and Other Computer Adventures, murder 
mystery, space, adventures, loads of fun. 24 game programs for TRS- 
80/Sharp PC-1 21 1 pocket computers. 96 pages $6.95 

35 Practical Programs for the Casio Pocket Computer, useful plug-in-and- 
run software for the FX-702P, 96 pages $8.95 

Pocket Computer Programming Made Easy, new fast and easy way to 

make the world's smallest computer work for yon. 128 cages $8.95 

Order direct from this ad. Send check or money order. In- 
clude $1 shipping for each item ordered up to a maximum 
of $3. Or write for our free catalog. Mail orders to: 

ARCsoft Publishers 

Post Office Box 132Q 
Woodsboro, Maryland 21798 

(301)663-4444 
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Customers outside North America wanting airmail send $6 per book Foreign customers pay In 
U.S. dollars. For first-class mail delivery in North America include $2 per book. Maryland 
residents add 5% sales tax. Sorry, no COD. TRS-80 is a trademark ot Tandy Corp/Radio Shack. 



Notes from 

BENEATH the KEYBOARD 



by Paul Wiener 



his month I would like to share some 
thoughts on the interconnection be- 
tween video display formatting and key- 
board input. Very few of the programs I 
have seen come anywhere near using an 
optimal approach to coping with this 
complex interrelationship. 

As a programmer, use validity checks to 
prevent users from bombing your pro- 
grams with bad input. Such error-trapping 
will often result in a user being prompted 
to reenter data previously entered incor- 
rectly. In such a case, if you have not dealt 
carefully with the formatting ramifica- 
tions, this could result in a messy looking 
screen with important data scrolling off 
the top prematurely. 

As an example, I will present a program 
to solve Time/Rate/Distance relationships 
using the formulas: D = RT, R = D/T, 
T = D/R, where D, R, and T stand respective- 
ly for Distance, Rate (speed) and Time. The 
programming task is trivial, but demon- 
strates a formatting and I/O philosophy 
which can be used in more formidable ap- 
plications. 

The simplistic (and alas, all too com- 
mon) approach to such a program is to 
first prompt the user to decide whether 
Time, Rate or Distance is to be solved for. 
Then the user is prompted to enter the two 
factors needed to calculate the third. Next, 
the solution would be displayed. Finally, 
the program would loop back to the begin- 
ning to let the user try other data sets. 

During a session with such a program, a 



ENTER <T>ime, <R>ate, OR <D>istance ?T 

ENTER Rate ?20 

ENTER Distance ?50 

Time = 2.5 

ENTER <T>ime, <R>ate, OR<D>istance ?D 

ENTER Time ?0 

ENTER Rate?10 

Distance =0 

ENTER <1>ime, <R>ate. OR <D>istance ?R 

ENTER Time?0 

ENTER Distance ?500 

?/0 ERROR IN 2240 

RUN 

ENTER < I>ime, <R>ate, OR <D>istance ?R 

Fig. 2. 



typical screen might look like Fig. 1. Notice 
the haphazard scattering of information 
and dialogue. There is no reason to let 
dialogue accumulate like dirty laundry until 
it scrolls off the top of the screen. Program 
Listing 1 is a more professional approach. 
This mav not be the hfist solution, but it is 
certainly a step in the right direction. 

When you run the program, it will 
display two columns— one on the left 
labeled Input and the one on the right 
labeled Output. Each column is divided in- 
to three rows: Time, Rate and Distance. 
Near the bottom of the screen you are 
prompted to enter T, R, or D. (See Fig. 2). 
To enter a time of 40, type T40 (no space 
after the T) and press Enter. The input col- 
umn of the Time row is instantly updated 
to the latest value. Input of Distance and 
Rate are analogous. An arbitrary range of 
=> n > 1000000 has been selected to 
limit input values to those which will 
not cause overflow errors or display 
difficulties. 

You can enter and reenter values to 
your heart's content without destroying 
the format. To solve for any one of the 
three variables in terms of the other two, 
simply enter its initial (such as T for time) 
without a number following. The solved 
Time/Rate/Distance trio will be posted in 
the output column. 

After obtaining a solution, you can con- 
tinue entering Times, Rates and Distan- 
ces, which the program will continue to 
post in the input column. The output col- 
umn will be updated only when you call for 
a solution. Therefore, the input column 
may contain invalid trios (T/R/D combina- 
tions that can't possibly go together), but 
the output column will always contain a 
consistent trio— obtained by the last re- 
quested solution. 

The screen will not fill with un- 
necessary, unsightly, almost haphazard 



dialogue. All the data currently being 
handled by the program is visible in an 
easily comprehended tabular form. Input 
is entered in any order you want with a 
minimum of key strokes. Values can be 
changed at any time without going 
through a lengthy dialogue. 

The program has also been error- 
trapped so non-numeric input will not be 
accepted and division by zero will not be at- 
tempted. When you are prompted to press 
Enter to continue, keys other than Enter 
will not be accepted. Try to bomb the pro- 
gram by using bad input; it will not be easy. 

I purposely omitted one fairly common 
input technique— replacing Input state- 
ments with INKEY$ routines. The INKEYS 
technique does have several benefits: 
The programmer can be selective about 
which characters are echoed on the 
screen when typed. Thus the format de- 
stroying consequences of keying Clear, 
down arrow, right arrow and Shift right ar- 
row can be sidestepped. Input's often un- 
desirable but compulsory linefeed (often 
an irrelevant question mark), are also cir- 
cumvented by this technique. 

Many such routines have already been 
presented in 80 Micro and other com- 
puter journals. None I have tried has 
worked to my satisfaction. Despite 
authors' claims to the contrary, they were 
all noticeably slow to grab keystrokes. 
PEEKing the keyboard, instead of IN- 
KEY$ing, can improve the response time 
of such routines; but for this example, I 
have chosen to stick with good old Input. 

There are many ways to improve this 
program's formatting and I/O. For in- 
stance, a border could be drawn around 
the tabular area; the input routine could 
be made to recognize and accept correct 
lower case input; the question mark at the 
end of the nonquestion-prompts could be 
eliminated (if you are willing to sacrifice 



Enter <T>IME, <R>ATE OR <D>ISTANCE. To Enter a Time Of 40 Type T40 Enter. 
All Quantities Must Be Less Than 1000000. 

Fig. i. 
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by Roger Schrag 

SKY WARRIOR! Nerves of steel and 
supreme concentration are your only 
defenses against an alien strike force pois- 
ed for the kill! As you pilot your spacecraft 
over a bizarre alien planetscape, ground-to- 
air missiles scream skyward without warn- 
ing. It's up to you to destroy or be 
destroyed! And adding to your problems, 
your spacecraft has an ever-diminishing 
fuel supply (which can be replenished in 
flight If you're lucky) — if you're not careful, 
you and your ship will spiral down into a 
fatal, fiery crash! 

SKY WARRIOR! Great fun for one 
player or double the action with a friend. 
Features include sound, high score tallies, 
and a realistic scrolling landscape! 
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TRS-80 TAPE Model 1 & 3 16K 
010-0136 $14.95 

TRS-80 DISK Model 1 & 3 32K 
012-0136 $20.95 



dventutS 

INTERNATIONAL 

A DIVISION OF SCOTT ADAMS, INC. 



BOX 3435, LONGWOOD FL 32750 

(305) 862-6917 (QUESTIONS) 

ORDER FROM YOUR FAVORITE DEALER 

or CALL TOLL FREE (800) 327-7172 

(ORDERS ONLY PLEASE) 

SHIPPING & HANDLING ARE EXTRA 

PRICES SUBJECT TO CHANGE WITHOUT NOTICE 



by Bob Shilling 
* War via the RS-232 • 
16K TRS-80's play against other TRS-80's or 
24K Atari 400/800's! 
Byte Magazine, December 1981: 
"The imaginary world of Com m bat is In- 
teresting and intricate, and it really does 
test one's strategy, tactics, and reflexes 
. . . Com m bat is a great success." 

Gommbat is a strategic and tactical 
battle game that allows you to pit your skill 
and dexterity against that of another player 
in a real-time graphic battle to the death! 

You play against your opponent by 
direct connection to another computer (up 
to 300 feet away), by modem communica- 
tion, or through The Source ,m . Each player 
has equal resources. Available weapons in- 
clude rockets, lasers, shells, mines, decoys, 
Drone Reconnaissance Aircraft, and one 
nuclear ICBM. You decide which weapons 
to carry, load them onto a maximum of 
eight remote-controlled tanks, and then 
maneuver your tanks to discover and 
destroy your enemy's base before he 
destroys yours. 

RS-232 port and either full-duplex 
modem or direct connection modem 
eliminator cable required. Works with CON- 
NECTION tm or LYNX tm modems. 
TRS-80 16K TAPE, Model 1 & 3 

010-0123 $19.95 
TRS-80 32K DISK, Model 1 & 3 

012-0123 $20.95 
ATARI 24K TAPE 

051-0123 $19.95 
ATARI 24K DISK (Requires DOS 2.0S) 

052-0123 $24.95 



Includes a coupon allowing you to 
purchase a copy for a friend for only 

$10.00 



by Wayne Westmoreland & 
Terry Gilman 
See the FANTASTIC Review in BYTE-June 
"82! 

Armored Patrol is a realistic arcade 
battle simulation that puts you into the 
driver's seat of a massive T-36 tank that's 
bristling with firepower. Your orders are to 
discover and destroy the enemy tanks and 
robots in your sector before they locate 
your tank and blow it up. 

Your perspective is from the inside of 
your tank, looking out across a bleak land- 
scape. Somewhere out among the deserted 
blockhouses, enemy tanks and robots are 
on the prowl. You may find the enemy either 
by a visual scan of the area or by making 
use of the radar tracking device displayed 
at the bottom of the screen. 

Armored Patrol is one of the most in- 
credible graphic simulations ever sold for 
the TRS-80! 
TRS-80 16K TAPE, Model 1 & 3 

010-0140 $19.95 
TRS-80 32K DISK, model 1 & 3 

012-0140 $24.95 
ACTUAL TRS-80 SCREEN 




WRITE FOR OUR FREE 150-PROGRAM CATALOG 
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Notes from 

BENEATH the KEYBOARD 



the Input statement). In general, the coding 
could be made more elegant. What other 
improvements would you add? However 
many, I hope this simple example serves to 
inspire you toward more practical and 
creative I/O in your own programs. 

How The Program Works 

The STRINGS statements in lines 1400 
and 1800 draw lines across the screen. 
The PRINT CHR$(31) in line 2000 clears 
the screen from the current cursor posi- 
tion at the end of frame. All on-screen 
material above the cursor is left alone. 
This ensures that previous inputs are 
erased before the user is prompted to 
enter something new. 

As you may have guessed from its num- 
ber, line 2010 was a last minute addition. It 
corrects disruptions of the display which 
can occur despite the program's many 
traps. This could happen if you press 
Clear or Shift right arrow. This situation 
could be rectified by clearing and re- 
drawing the screen after each input cycle. 
But such indiscriminate redrawing is slow 
and results in an unpleasant flicker. Line 
1210 contains a filter to eliminate un- 
necessary redrawings. 

The line drawn across the screen near 
the top (Fig. 2) is built from a graphic 
character which does not appear else- 
where on the screen. Format disrupting 
errors will either clear the line from the 
screen entirely or cause it to scroll out of 
position. The PEEK at the beginning of 
1210 checks video-memory where the left 
end of the line is supposed to be. If it is 
still there, control passes to the next pro- 
gram line. Otherwise, the screen is cleared, 
a call to the routine that fills in the output 
column takes place and the program jumps 
back to the routine that draws the rest of 
the screen and prompts for input. 

Line 2200 isolates the left-most 
character of the input and sets l$ equal to 
it. Lines 2300-2500 make certain l$ is one 
of the acceptable designators, T, R or D. If 
so, it branches to the appropriate Time, 
Rate or Distance routine. If l$ is none of 
the three, the program returns, via line 
2600, to line 2000 where the previous input 
is erased and the user is prompted to 
reenter the data. 

If l$ equals T, then you have selected 
Time. Lines 3000-3800 process this selec- 
tion. Line 3100 strips the left-most charac- 
ter off your input and sets the string 
variable Tl$ equal to what remains. For in- 
stance, if you entered T40, line 2200 has 
already set l$ to T. Now, line 3100 sets Tl$ 
to 40. 

Line 3200 sets T1 equal to the value rep- 
resented by Tl$. If Tl$ contains the string 
40, line 3200 will set T1 equal to the num- 



ber 40. T1 is a temporary storage variable 
which holds a value until it is tested and 
proven valid. 

Line 3300 determines whether the input 
quantity, now stored in T1, is within the 
limits of =< n <1000000. If not, flow re- 
turns to the data entry routine at 2000. If 
the input passes the limit check, flow falls 
through to 3400 where there is a test to 
see if T has been entered alone (without a 



number). If so, the program branches to 
line 10000 where Time is solved for in 
terms of Distance and Speed. Otherwise, 
flow continues to 3500. 

Line 3500 may look a little obscure at 
first. It exists because of the following: If 
you type a non-numeric string that starts 
with a number, VAL will return the value of 
that number. For example, VAL("7XYZ") 
will return 7. This could result in an incor- 



PRINT@144,T2; 



'; :PRINT@27 2,R2; 



1000 REM INITIALIZATION 

1100 CLEAR 500 

1200 CLS 

1300 PRINT817," INPUT"; , , "OUTPUT"; 

1400 PRINT@64,STRING$(64,131) ; 

1500 PRINT@128,"TIME",TI 

1600 PRINT @2 56," RATE ",RA 

1700 PRINT8384, "DISTANCE", DI 

1800 PRINT@640,STRING$(64,179) ; 

2000 PRINT@704, CHR$ (31) ; "ENTER <T>IME, <R>ATE, OR <D>ISTANCE 

E.G. TO ENTER A TIME OF 40 TYPE T40<ENTER>. 

ALL QUANTITIES MUST BE LESS THAN 1000000. 

2010 IF PEEK(15424) <>131 THEN CLS : GOSUB 13000: GOTO 1300 

2100 INPUT IN$ 

2200 I$=LEFT$(IN$,1) 

2300 IF I$="T" THEN 3000 

2400 IF I$="R" THEN 4000 

2500 IF I$="D" THEN 5000 

2600 GOTO 2000 

3000 REM TIME 

3100 TI$=RIGHT$(IN$,LEN(IN$)-1) 

3200 T1=VAL(TIS) 

3300 IF TK0 OR Tl>1000000 THEN 2000 

3400 IF TI$="" THEN 10000 

3500 IF LEN(TI$)+K>LEN(STR$(T1) ) THEN 2000 

3600 IF T1=0 AND TI$<>"0" THEN 2000 

3700 T2=T1: PRINT§144," 

3800 GOTO 2000 

4000 REM RATE 

4100 RA$=RIGHT$(IN$,LEN(IN$)-1) 

4200 Rl=VAL(RA$) 

4300 IF RK0 OR Rl>1000000 THEN 2000 

4400 IF RA$="" THEN 11000 

4500 IF LEN(RA$)+K>LEN(STR$(R1) ) THEN 2000 

4600 IF R1=0 AND RA$<>"0" THEN 2000 

4700 R2=R1: PRINT@272," 

4800 GOTO 2000 

5000 REM DISTANCE 

5100 DI$=RIGHT$(IN$,LEN(IN$)-1) 

5200 D1=VAL(DI$) 

5300 IF DK0 OR Dl>1000000 THEN 2000 

5400 IF DI$="" THEN 12000 

5500 IF LEN(DI$)+K>LEN(STR$(D1) ) THEN 2000 

5600 IF D1=0 AND DI$<>"0" THEN 2000 

5700 D2=D1: PRINT3400," " ; : PRINT@400 ,D2; 

5800 GOTO 2000 

10000 REM SOLVE FOR TIME 

10100 IF R2O0 THEN 10400 

10200 PRINT@768,CHR$(31) ; "SORRY— CAN'T DIVIDE BY ZERO. PLEASE CHANGE RATE. 

PRESS <ENTER> TO CONTINUE"; 

10300 IN$=INKEY$: IF IN$OCHR$(13) THEN 10300 ELSE 2000 

10400 TI=D2/R2: DI=D2: RA=R2 

10500 GOSUB 13000: REM OUTPUT ROUTINE 

10600 GOTO 2000 

11000 REM SOLVE FOR RATE 

11100 IF T2O0 THEN 11400 

11200 PRINT@768,CHR$(31) ; "SORRY — CAN'T DIVIDE BY ZERO. PLEASE CHANGE TIME. 

PRESS <ENTER> TO CONTINUE."; 

11300 IN$=INKEY$: IF IN$OCHR$(13) THEN 11300 ELSE 2000 

11400 RA=D2/T2: TI=T2: DI=D2 

11500 GOSUB 13000: REM OUTPUT ROUTINE 

11600 GOTO 2000 

12000 REM SOLVE FOR DISTANCE 

12100 DI=R2*T2: TI=T2: RA=R2 

12200 GOSUB 13000: REM OUTPUT ROUTINE 

12300 GOTO 2000 

13000 PRINT@175,CHR$(30) ; TI 

13100 PRINT@303,CHR$(30) ;RA; 

13200 PRINT@431,CHR$(30) ;DI; 

13300 RETURN 

Program Listing 




Now the fastest and most powerful 
DOS system is here with DOSPLUS 3.4 



The original DOSPLUS is awesome. Our competitors 
have spent months and thousands of dollars trying to 
duplicate it and the best they could produce, are bug ridden 
patch jobs. But, you already know that. Now DOSPLUS, 
the most important new DOS release in TRS-80 history — 
the most "user-friendly" DOS on the market — becomes the 
most powerful. DOSPLUS 3.4 does it all. 

Those of you who liked us before will love us now. You 
will be amazed by DOSPLUS 3.4. It is jampacked with 
powerful options — you get maximum features and 
reliability at an incredibly low price. And you get a company 
with the guts to back up its product with a lifetime warranty. 

So, if you're looking for the fastest, smoothest, easiest 
to use Disk operating system for your TRS-80, look no 
further. Become a believer! Get your hands on the new 
DOSPLUS 3.4 now! 

ADD THESE POWER PACKED DOSPLUS 3.4 FEA- 
TURES TO OUR LIST OF EXISTING DOSPLUS 
CAPABILITIES 

1) BASIC array sort — multi key, multi array 

2) Tape/Disk — Disk/Tape utility (with relocator) 

3) Input @ (controlled screen input) 

4) Random access and ASCII modification on Diskdump 




STILL 

THE LOWEST 

PRICED DOS 



5) BASIC checks for active "DO" 

6) Backup and Format from a "DO" file 

7) Much improved Backup (More reliable) 

8) I/O package much faster (disk access time reduced) 

9) Repeat last DOS command with "/" ENTER 

10) Short directory (file name and extension) available 

11) Short directory of Model III TRSDOS disks 

12) Single file convert from Model III TRSDOS 

13) COMPLETE device routing supported (DOS and 
BASIC) 

14) Ability to save BASIC programs directly to another 
machines' memory (if equipped with Dosplus 3.4) 

• Plus many more improvements 

• Includes the new expanded easy read 200 + page 
user's guide 

• Also includes the new DOSPLUS Z80 disk basic VER 1 .6 
Upgrade your 3.3 to 3.4 capability, only $49.95 



The first in the industry backed by a lifetime warranty: 



"Lifetime warranty to original owner on original media. 



DOSPLUS first in Quality! 
First in the industry! 




/71/crO'SYsrems 

5846 Rjnston Street 
(305) 983-3390 Hollywood, FL 33023 



CALL TOLL FREE 
1-800-327-8724 ext.203 

FORVISA/MASTERCHARGE/C.O.D.ORDERS 
TOLL FREE LINES WILL ACCEPT ORDERS ONLY! 

For Applications and Technical information, call 
(305) 983-3390 or drop us a card. 

Dealers inquiries invited 



REMSOFT, INC. 

Let Your TRS-80® 

Teach You 

ASSEMBLY LANGUAGE 

Tired of buying book after book on assembly 
language programming and still not knowing your 
POP from your PUSH? 

REMSOFT proudly announces a more effi- 
cient way, using your own TRS-80' to learn the 
fundamentals of assembly language programm- 
ing - - at YOUR pace and YOUR convenience. 

Our unique package. "INTRODUCTION TO 
TRS-80" ASSEMBLY PROGRAMMING", will pro 
vide you with the following: 

• Ten 45-minute lessons on audio cassettes 

• A driver program to make your TRS-80" video 
monitor serve as a blackboard for the instructor. 

• A display program for each lesson to provide 
illustration and reinforcement for what you are 
hearing. 

• Step-by-step dissection of complete and useful 
routines to test memory and to gain direct con- 
trol over the keyboard, video monitor, and 
printer 

• How to access and use powerful routines in 
your Level II ROM. 

Presently available for Model 1 only 
REMASSEM-1(ta P e) only $69.95 
R E M ASS EM-1 (disk) only $74.95 

LEARN TRS-80® 

ASSEMBLY LANGUAGE 

DISK I/O 

Your disk system and you can really step out 
with REMSOFT'S Educational Module, 
REMDISK-1, a "short course" revealing the details 
of DISK I/O PROGRAMMING using assembly 
language. 

Intended for the student with experience in 
assembly language, using the same format as our 
extremely popular introduction to assembly 
language programming, this "ASSEMBLY 
LANGUAGE DISK I/O PROGRAMMING" course in- 
cludes: 

• Two 45-minute lessons on audio cassette 

• A driver program to make your TRS-80" video 
monitor serve as a blackboard for the instructor. 

• A display program for each lesson to provide il- 
lustration and reinforcement for what you are 
hearing. 

• A booklet of comprehensive, fully-commented 
program listings illustrating sequential file I/O 
random-access file I/O, and track and sector I/O. 

• A diskette with machine-readable source codes 
for all programs discussed, in both Radio Shack 
EDTASM and Macro formats. 

• Routines to convert from one assembler format 
to the other. 

Presently available for Model 1 only 
REMDISK-1 only$29.95 

Dealer inquiries invited 

These courses were developed and recorded by 
Joseph E. Willis and are based on the successful 
series of courses he has taught at Meta 
Technologies Corporation, the Radio Shack Com- 
puter Center, and other locations in Northern 
Ohio. The minimum system required is a Level II, 
16K RAM. 



REMSOFT, INC. 

571 E. 185 St. 

Euclid, Ohio 44119 

(216) 531-1338 



SHIPPING CHARGES: 

$2.50 WITHIN UNITED STATES 

$5.00 CANADA AND MEXICO ^129 

OTHER FOREIGN ORDERS ADD 20% 

OHIO RESIDENTS ADD 5V: % SALES TAX 

TRS-80"- IS A TRADEMARK OF TANDY CORP. 
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rect value accidentally being entered into 
the program. Line 3500 circumvents this 
error. To do so it must take the following 
into account: A numeric variable always 
has a LEN-length one character greater 
than it looks. This is because of a cursor 
movement character imbedded in the 
number. For instance, LEN("6") = 1, but 
LEN(STR$(6)) = 2. This accounts for the + 1 
in line 3500 which compares the length of 
the number derived by VAL with the length 
of the string it was derived from. This de- 
tects whether the string contained any 
non-numeric characters invisible to VAL. 
Failure to pass this test means you mis- 
keyed and the program will not accept 
your input. Otherwise flow falls through. 

Line 3600 is the last error trap of the 
series. It ensures that if T1 = 0, you actual- 
ly typed 0. This is necessary because VAL 
will evaluate a non-numeric string as zero. 
Again, detection of faulty input bounces 
you back to line 2000. 

If flow reaches line 3700, it means T1 
has been proven to hold a valid time value. 
So T2, the variable used to contain such 
bonafide values, is set equal to T1. Next, 
the new value must be printed at the ap- 
propriate place on the screen. After the 
cursor is positioned, a series of spaces is 
printed. This ensures that if a new short 
value (such as 8) replaces a previous 
longer value (such as 987654), there is no 
"residue" from the older value cluttering up 
the display. CHR$(30) cannot be used for 
that purpose here. The information in the 
right column must not be erased. Finally, 
the cursor is repositioned to the beginning 
of the field, the new time-value is printed 
and control returns to the input routine. 

Line sequences 4000-4800 and 
5000-5800 parallel 3000-3800, except they 
deal with Rate and Distance input, respec- 
tively. 

Lines 10000-10600 calculate Time from 
Rate and Distance values. Lines 



10100-10300 contain an error-trap which 
precludes a program crash due to at- 
tempted division by zero. The INKEY$ 
statement in line 10300 accepts a single 
character of keyboard input. Note the 
phrasing IF IN$OCHR$(13). Since the user 
is prompted to press to continue, it is be- 
fitting to code in such a way so only En- 
ter actually results in the program's 
continuing. 

Line 10400 solves for Time and stores 
the result in the variable Tl. Note, Tl holds 
time-values obtained by solving an equa- 
tion, as opposed to T1 and T2 which hold 
values (uncertified and certified, respec- 
tively) entered by the user. Likewise for R 
and D variables. Line 10500 calls a subrou- 
tine to output the result of calculations. 
Finally, at line 10600, the program jumps 
back to the data entry routine. 

The 11000-11600 sequence is analo- 
gous to the 10000-10500 sequence except 
Rate, rather than Time, is solved for. The 
12000-12300 is the corresponding Dis- 
tance determining routine. The only note- 
worthy difference between this routine 
and its Time and Distance counterparts is 
the zero trap has been dispensed with as 
there is no division involved. 

Lines 13000-13300 print the calculation 
results in the output column. The 
PRINT@'s position the cursor. This time, 
we are working in the right-most display 
column, so CHR$(30) may be used to re- 
move residual digits left by previously 
posted values. Line 13300 returns to the 
calling routine after a valid Time/Rate/- 
Distance trio has been posted in the out- 
put column. 

I have often been amazed at the poor 
display quality of the otherwise fine 
programs I have seen during my career as 
a software editor. I hope this program 
example succeeds at imparting a super- 
ior video formatting philosophy to you 
programmers. ■ 
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Game with Bowie 




For: 

Apple 
Atari 

TRS-80 



Have you ever 

seen an exciting 

action game combined 

with the intense 

strategy of chess, 

backgammon or Othello? 

Ricochet... the first 

abstract strategy game designed 

exclusively for the computer owner. . . 

is both. And loads of fun. 

You maneuver your blocks, both to 
protect your own goal from attack and 
to hit your opponent's goal, two launchers 
to fire. Your shots ricochet off the 
blocks, earning you points on the way 
to their targets. It's twice as challenging 
because the position changes with both 
your own and your opponent's moves 
and shots. 

You don't have to play alone, either. 
Play against any one of four different 
opponents (each a different personality) 
inside your computer, or against 
another human. 



And Ricochet is truly competitive... if 
you want it to be. A "smart clock" lets 
you put more pressure on your opponent 
by forcing him to play faster than you. 
But you've got to win two out of three 
(or three out of five) games to claim 
victory. Your computer rates you after 
each match, so you can compare your 
mastery of the game with that of other 
players— perfect for tournament play. 
So perfect that MIND TOYS and Automated 
Simulations are sponsoring the first 
national Ricochet tournament. See your 
local dealer to find out how you can 
become a regional or national champion. 

Price $19.95 



1981, AUTOMATED SIMULATIONS, INC. 

P.O. Box 4247, Mountain View, CA 94040. 



Another Mind Toy 

From Automated Simulations 

•APPLE, ATARI and TRS-80 are trademarks of Apple Computer, Inc., Atari, Inc. and Tandy Corp., respectively. 
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PMC Peripherals 

Quality at unprintable prices 




Yes, our disk drive has a proven per- 
formance and an established reliability 
record. We specialize in single sided 
5 x /4 inch single or double density drives 
featuring 5 ms stepping and 40 tracks 
with case and power supply. The case is 
color matched to IBM and PMC per- 
sonal computers. 



Compare printer specifications . . . 
compare design reliability, repairability 
or any other parameter! Our DMP-85 is 
a true "work-alike" to C. Itoh 8510 or 
NEC 8023 and offers many more fea- 
tures than the MX-80FT at a lower 
price. You need excellent printers and a 
professional supplier. Come to PMC. 





IBM Selectrics or similar typewriters 
become 12 cps letter-quality printers at 
a quarter the cost of "daisy wheel" 
printers. The ETF-80 coupled with a 
word processor becomes your personal 
typist accurately reproducing text at 
100 wpm. What a bargain, ETF-80 . . . 
CALL now for details. 



PMC peripherals are designed for PMC, IBM, Apple, Radio Shack or other fine per- 
sonal computers. We don't advertise our unprintable dealer /distributor prices but if 
you call or write you'll find we don't meet the competition ... we make it! 



WMf Personal Micro Computers, 

M 1 W M \m* 475 Ellis Street, Mountain View, CA 94043 (415) 



Inc. 

962-0220 . 2 42 




without 
printer 



$ 999 

4H/1QE* with printer or 



typewriter interface 



WORD PROCESSOR g££M» 

Lowest priced combination word processor /microcomputer that everyone can afford and so 
simple that anyone can use! The EPS-80 is a word processor designed to replace typewriters as 
a personal tool and also to be used as a popular personal computer with thousands of pro- 
grams available. 



Use without a printer 

In an office environment, the EPS-80 word processor 
gives the user editing power which is not available in the 
latest electronic typewriters. The built-in high speed 
cassette storage achieves inexpensive and reliable 
transfer of text from one EPS-80 to another. Therefore, 
where multiple EPS-80s are used, not every one has to 
have its own printer. For instance, a single letter quality 
printer on one EPS-80 can prepare final copies of letters 
for four to ten non-printer stations. The overall system is 
efficient, costs less per station than an equal number of 
electronic typewriters, and provides much higher 
throughput. There is no need for the usual cycle of dicta- 
tion, correction and proofreading as the basic compos- 
ing function can be in the hands of the originator. 



Use with a printer 

Writers, students and businessmen will find the most 
intelligent investment is the EPS-80. For high speed 
printing, we offer our model DMP-85 dot matrix printer 
and for letter quality printing, our Electric Typing Fin- 
gers, Model ETF-80, turns your IBM Selectric or similar 
typewriter into a printer. When you buy the EPS-80, you 
get both a word processor and a powerful personal com* 
puter that will do many necessary tasks. There are fully 
proven computer programs for invoicing, billing, finan- 
cial or engineering analysis, spreadsheet calculations, 
and many more. Even if you never utilize the computer 
capability, the EPS-80 word processor can provide filing 
and retreival of reference information and mail list han- 
dling in addition to fulfilling normal typing needs. 



How can we offer a product with so much capability at such a low price? It is due to our highly 
reliable, low cost cassette storage system that performs as well as many floppy disk systems! 
We believe the EPS-80 is an immediately important tool in small and large offices and it is also 
destined to be your personal typing friend at home. If you think word processing and low cost 
computing power would improve the jobs you do, call or write now for complete information. 



PMC is licensed to use Electric Pencil, a copyright of Michael Shrayer. 



PJWif^ 1 Personal Micro Computers, Inc 

M ± W M*S 475 Ellis Street, Mountain View, CA 94043 (415)962-022 
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GRAPHICS 



An artistic sampling from our own menu. 



The Editor' s Choice 



alvos Gesamte is an itinerant pro- 
1 \ grammer and artist, as well as the 
pen name one of our editors shares with 
various friends. Kalvos is also the author of 
the program which appears on our cover. 
The program creates a design which starts 
off simply and becomes more and more 
complex as it continues through several 
revolutions; it ends up, finally, looking 
much like a complex piece of embroidery. 
Photos 1-3 show the program in several 
of its stages. Part of the pleasure of this 
program comes from watching it make its 
changes. What amazes us most about this 
program is that Kalvos created it using a 
black and white monitor. 



(J 



ake Commander is our own Techni- 
cal Consultant, an ex-rock and roll 
musician, a newcomer to the States and to 
skiing, and a programmer extraordinaire. 
Photos 4-11 are samples of what can be 
produced with the short program he has 
chosen for this sampler. The best part of his 



program, as we see it, is that it allows the 
user to become an artist. Even better, it got 
Jake thinking and led to an even more com- 
plex and beautiful program that we will be 
featuring in our May issue. Read what Jake 
has to say about this month's program: 

The program is very simple and operates 
on the Spirograph (c) principle. I have plans 
for an in-depth article on that subject, so I'll 
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reserve the heavy stuff until then. 

As a basic explanation, suffice it to say 
the program draws circles. The circles 
aren't the common or garden variety, how- 
ever. They are created by setting points on 
the screen with a known distance between 
each point. This distance is input when you 
reply to the prompt asking for the number of 
degrees between points. If you answer ten 
degrees, the program will plot a single 
point, move ten degrees clockwise, then 
plot another, and so on. Since there are 360 
degrees in a circle, this would simply create 
a circle of 36 dots, so the radius is varied as 
the pixels are plotted. That's how we get 
some nice spiral effects. 

To add some versatility, I added a feature 
whereby you can set a whole small circle or 
draw a line or box to the new coordinate in- 
stead of merely setting pixels. Most inter- 
esting patterns come from unanticipated 
visual interaction between previously set 
pixels. You're more likely to get this if you 
use degrees between points that are not ex- 




Photography by Charles H. Freiberg 
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Photo 3 



Photo 4 
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"Delta offset is just a 

posh way of asking for the 

change of step size for each iteration. 




Photo 9 



10 PCLEAR4 




370 


NEXT 


20 PM0DE4 , 1 




380 


FOR A=OT0255STEP5 


30 PCLS 




390 


LINEI A.0I-I 127,95) ,PSET 


40 SCREEN 1,1 




400 


NEXT 


50 DIM CI 1,63) : A«31 




410 


FOR A«0TO191STEP5 


60 FORN-10T01STEP-2 




420 


LINEI 255, A l-l 127, 95), PSET 


70 FORQ= 252 T 0255 




430 


NEXT 


80 L1NEIQ,0I-IQ,191I,PSET 




440 


FOR A. 255 TOOSTEP-5 


90 NEXT 




450 


LINEI A, 191 l-l 127, 95), PSET 


100 FORQ-189T0191 




460 


NEXT 


110 LINE(0,QI-(255,QI,PSET 




470 


FOR A=191TO0STEP-5 


120 NEXT 




480 


LINE 1 0.A1-I 127, 951, PSET 


130 FOR X=63T0 STEP-N 




490 


NEXT 


140 LINEIX, 01-131, 31 1 , PSET 




500 


FOR A.1T02S4STEP5 


150 NEXT 




510 


LINEI A, l-l 127, 95), PRESET 


160 FOR Y«0 TO 63 STEPN 




520 


NEXT 


170 LINE (0,YI-(31,31 1 ,PSET 




530 


FOR A=lTO190STEP5 


180 NEXT 




540 


LINEI255,A)-( 127 , 95 ) .PRESET 


190 FOR X - 0TO63STEPN 




550 


NEXT 


200 LINE IX, 631-131, 311, PSET 




560 


FOR A =254T01STEP-S 


210 NEXT 




570 


LINE IA, 1911-1 127, 951, PRESET 


220 FOR Y=63TO0 STEP-N 




580 


NEXT 


230 LINE I63,YI-I31,31 1 ,PSET 




590 


FOR A-190T01STEP-5 


240 NEXT 




600 


LINEI 0, A l-l 127 , 95 1 , PRESET 


250 GETI 0,0 1-162,62) ,C,G 




610 


NEXT 


260 PUT(63,0I-I 125, 621, C, PRESET 


620 


FOR A=lTO130STEP3 


270 PUTI 126,0 1-1 188,621 ,C, PSET 


630 


CIRCLE! 127, 95 1, A 


280 PUT 1 189,0 1-1251,621 ,C, PRESET 


640 


NEXT 


290 PUTI 0,631-162, 125 1 ,C, PRESET 


650 


FOR B-0 TO 95 


300 PUT 163,631-1 125,125 1 ,C, PSET 


660 


LINEI 127,95-BI-l 127+B,95I .PRESET 


310 PUT 1 126,631-1 188,1251 ,C 


PRESET 


670 


L INE- 1 127 , 95+B I , PRESET 


320 PUT 1 189, 631-1251, 125), C 


PSET 


680 


LINE-I 127-B,95) .PRESET 


330 PUT 1 0,126 1-162, 1881, CPSET 


690 


LINE-I 127,95-BI .PRESET 


340 PUTI 63, 126 1-1 125,1881 ,C, PRESET 


695 


C1RCLEI 127.95I.B/2 


350 PUTI 126,126 1-1 188, 1881, C 


PSET 


700 


NEXT 


360 PUTI 189, 126 1-1251, 188), C 


PRESET 


710 


GOTO60 


Program Listing 1 


. Kalvos Gesamte. 



act multiples of 360, but nearly so. For in- 
stance, if you use 91 degrees instead of 90, 
the pattern will have reached 364 degrees 
after four iterations. This is a circle plus 
four degrees. The pattern will then repeat 
except that it will now be offset by four de- 
grees. This is the sort of trick to use to get 



interesting combinations. 

To allow still more flexibility, I have in- 
cluded an option to move each spiral to the 
right after each iteration. Patterns created 
using this option will spread out across the 
X-axis. So you won't become too bored by 
this facility, you are also able to increase 



the step size between each rightward move 
as the drawing progresses. This gives a suc- 
cessively larger gap between each spiral, 
resulting in an illusion of acceleration. Both 
these parameters are input to the program 
in answer to the Offset, Delta Offset 
prompt. Delta offset is just a posh way of 
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Photo 11 



Reader Service lor facing page s35-~ 



"Indiscriminate use of 

this parameter 

makes for messy patterns;." 



10 CLS 

20 INPUT "DEGREES BETWEEN POINTS" ,D:D=D/57 .29578 

30 INPUT"D)OTS DINES OIRCLES B)0XES H ,Sf 

35 INPUT "OFFSET, DELTA OFFSET ", OF , DO 

40 INPUT"RATIO OF X TO Y",A,B 

60 PMODE4 , 1 : PCLS : SCREEN1 , 1 : XA= 128 : YA=95 

70 R=0 

80 X=R*COSl R )#A+128: Y=R#SIN(R UB + 95 

85 XP=X+OF:YP=Y:OF=OF+DO 

90 IFXP<0ORXP)255ORYP<0ORYP>191THEN140 

100 IFS$="D"THEN120ELSEIFSt="B"THEN110ELSEIFSt= M C"THEN115 

105 LINEIXA,YA)-IXP,YP) ,PSET .-GOTO130 

110 LINEIXA,YA)-IXP,YP),PSET,B:GOTO130 

115 CIRCLE! XP,YP) ,5, 1.-GOTO130 

120 PSETIXP,YP) 

130 XA=X:YA>=Y:R=R+D:GOTO80 

140 IFINKEYtoCHRU 13ITHEN140 



Program Listing 2. Jake Commander. 



asking for the change of step size for each 
iteration. The two figures should be input 
separated by a comma, not the best way to 
ask for input in a Basic program, but suffi- 
cient for our purposes here. When first try- 
ing out this routine, answer this prompt 
with two zeroes; later on, use small 
numbers only. Indiscriminate use of this 
parameter makes for messy patterns. 

Finally, you can change the aspect ratio 
(or horizontal/width ratio) of the spirals 
when replying to the prompt asking for the 
ratio of X to Y. Start out by answering 1,1 to 
this prompt, later using smaller numbers 
such as .8,.4. If you reply with two equal 
numbers, the spirals will simply be smaller. 

There's no error trapping in the program; 
it's only for experimental use, so go easy 
with your input. To achieve the results in 
photos 4-11, use the input in Table 1 in the 
order given. ■ 



-ATTENTION ALL TRS-80® OWNERS- 

No matter how your Model I, II, or III is used, whether it be business 
or pleasure, this product can benefit you. 

The FATIGUE FIGHTERtm reduces the operator fatigue 
(irritated, watery eyes and headaches) caused by the harsh white 
video display thereby making computer use more efficient and/or 
enjoyable. The graph at the right will help explain how it works. 
Superimposed on the standard eye sensitivity curve is the band pass 
curve of the FATIGUE FIGHTERtm as recorded by a 
spectrophotometer. A marker is also on the graph at the ideal 
psychological tolerance color. As you can see, the green color of the 
FATIGUE FIGHTERtm takes advantage of both eye sensitivity and 
psychological tolerance to make the display less irritating. 

The FATIGUE FIGHTERtm is made of tough % inch thick acrylic 
sheet which adds absolutely no distortion or fuzziness to the display 
and is industry proven to be an excellent material for optical filtering 
(e.g. lenses for laser safety goggles). It installs easily on all three 
TRS-80® models with a pressure eensitive adhesive which will not let 
the filter fall off yet allows easy removal if necessary. Finally, the black 
and silver border design makes it a perfect match for the computer 
styling. 

If you want a FATIGUE FIGHTERtm of your own but prefer not 
to order by mail, check with your local computer stores to see if they 
have them in stock. Otherwise follow the ordering instructions below. 



TO ORDER' Se '" 1 Nam8 * Aaflres! r W Ed 0f clear| V Prm,ed wi,h Ch8ck or Mone V Order (U.S. FUNQSI lor 
' S 14.95 Each, Including Shipping. Canadian Orders add $1.00 Each. All Other Foreign Orders 
Add $2.00 Each for Shipping. NO CREDIT CARD ORDERS. COD s (U.S. ORDERS ONLY) are SZ 50 
TRS-80 IS A Additional Per Order 8 are Accepted by Mail or by Calling 904378-2494 9-5 M-F. Florida 

TANDY CORP. Residents Add 4% Sales Tax. 

TRADEMARK. ALL MAIL ORDERS MUST BE SENT TO THE U.S. ADDRESS 



mj 



SOUTHERN INNOVATIVE DESIGN 
1520 NORTHEAST 12TH STREET 
GAINESVILLE, FLORIDA 32601 ^35 



DEALER INQUIRIES INVITED- 



CANADIAN DEALERS ONLY— For pricing and ordering information contact: 
MICR0-C0MP ENTERPRISES. 955 Brock Rd. S.. Unit 3. Pickering. Onl. LIW 2X9 Phone 416-839-456! 



Psychological 
Tolerance Color 



MAXi- 



Eye Sensitivity 
Spectral Curve 




Violet 



Blue 



Green Yellow Orange Red 




sSee List of Advertisers on page 402 
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Because your computer is 



BUSINESS ANALYSIS 

Business Analysis is a flexible, professional time series analysis and forecast- 
ing package. It features a unique graphing capability and can direct any chart or 
graph to your printer. Ideal for personal or business applications, Business Analy- 
sis can be used in sales and stock market analysis, forecasting, product or 
business planning, and family spending and energy consumption trends. Docu- 
mentation included. Model I & III, Level II, 16K. 

TRS-80." Tape, #01 40R-38 $75.00 

TRS-80," Disk.#0152RD-38 $99.95 

EASY CALC 

Easy Calc is a unique program that will turn your computer into an electronic 
worksheet with all the speed and power of a programmable calculator. In addition 
to the regular calculator features, you can calculate percentages, summations of 
all rows of columns and other time saving functions. Your worksheets can be 
merged with Scripsit* word processor files for complete, professional reports. 
ENTER and SAVE your calculations with a touch of a single key! Easy dale's 
special library feature allows you to name each file with up to 28 characters. All op- 
tions are MENU selectable and described in plain English. A detailed User's 
Manual is provided. 

TRS-80," Disk, #0369R3D-38 (Model III version) $49.95 

TRS-80,* Disk, #0269RD-38 (Model I version) $49.95 

TLDIS/DLDIS 

Tape and disk-based Labeling Disassemblers, TLDIS and DLDIS are three-pass 
disassemblers which assign labels (where appropriate) to routines in a machine- 
code program to give an output which Is identical to a hand-assembled source 
code. Options enable you to send the disassembly to a lineprinteror to tape. TLDIS 
and DLDIS have many other special features and come complete with documenta- 
tion. Model I & III, Level II, 16K. 

TLDIS, TRS-80," Tape, #0230R-38 $14.95 

DLDIS, TRS-80," Disk, #0231 RD-38 $19.95 

THE ELECTRONIC BREADBOARD 

The Electronic Breadboard permits the design and analysis of analog circuits. It 
can be used to evaluate voltages, currents, impedance and the frequency response 
of any circuit. This package Is ideal for audio component repairmen, ham radio 
operators, hobbyists, electrical engineers, telecommunications engineers, 
audiphiles and students of electronics. It is a great training aid! Documentation is 
included. Model I & III, Level II. 16K. 
TRS-80," Tape, #0287R-38 $49.95 

SUPER»TERMINAL 

The most flexible and powerful microcomputer terminal program available at 
any price, Super»Terminal, allows you to communicate with almost any other 
computer system quickly and efficiently. It provides single key auto sign-on, file 
transfer capabilities which Include prompted output and Xon/Xoff code recogni- 
tion, and a continuous count of parity, framing and overrun errors. These and many 
more features make communications with Super»Terminal fast, efficient and 
easy to use. Requires TRS-80* Model I or Model III with 32K memory and one disk 
drive. Documentation is included. 

TRS-80," Disk, #5700RD-38 $95.00 I TRS-80; Tape, #0051 R-38 $9.95 



TYPING TEACHER 

Transform your computer into both a typewriter and an instructor with this com- 
plete seven-part package. Includes on-screen diagrams and practice sessions. 
Your computer becomes a bottomless page for typing practice. The lessons are 
tailored to the keyboard, but train you to use any standard typewriter. Manual. 
Model I & III, Level II, 16K. 
TRS-80," Tape, #0099R-38 $12.95 

SPACE SHUTTLE 

Instant Software's Space Shuttle puts you in the command pilot's seat of 
America's first reusable space shuttle. Until commercial space flight becomes a 
reality, this is the closest you'll get to the ultimate flight. Complete with documen- 
tation. Model I & III, Level II, 16K. 

TRS-80, - Tape, #0332R-38 $14.95 

JET FIGHTER PILOT 

After you've flown a few missions with the Jet Fighter Pilot package, you'll know 
you've earned your wings. Jet Fighter Pilot is a brilliantly realistic simulation of a 
real mission putting you In total control of the aircraft. All controls respond the 
same as they would on a real jet fighter. This combat flying program comes with 
comprehensive documentation. Model I & III, Level II, 16K. 

TRS80,"Tape,#0159R-38 $14.95 

DANGER IN ORBIT 

Danger in Orbit is a real-time, machine-code space game with variable levels of 
difficulty, superb high-speed graphics, sound effects and automatic scorekeeping. 
Destroy asteroids with your anti-matter cannon! Prevent alien spacecraft from in- 
vading the Terran Defense Network. Avoid alien attacks from hyperspace. Only 
lightning reflexes and nerves of steel will enable you to survive Danger In Orbit. 
Comes with documentation. Model I & III, Level II, 16K. 

TRS-80." Tape, #0237R-38 $14.95 

SKYBOMBERS II 

Skybombers II is an aerial war game pitting two nations against each other. Bat- 
tlesounds and graphically displayed explosions give each battle a vivid reality. The 
scores for both countries are constantly updated at the bottom of the display 
screen. Experience air warfare at its best with Skybombers II. Requires 32K RAM, 
Applesoft In ROM and game paddles. Documentation is included. 

APPLE, - Tape. #0183A-38 $9.95 

APPLE," Disk, #0271 AD-38 $19.95 

BALL TURRET GUNNER (with sound) 

Ball Turret Gunner Is a deep space, laser attack game. As a member of the Ball 
Turret Gunner service you're at the console of the spaceship: your mission- 
destroy the enemy! Multiple levels of difficulty, optional sound effects, superb 
graphics and complete documentation enhance this program. Model I only. 




only as good as the software 



GEOGRAPHY EXPLORER:USA 

Learn the vital facts about each state in our union in the most tun and 
fascinating way yet. The program displays computer generated maps of the United 
States, its seven regions and even its individual states. Questions may be multiple 
choice, recognition or fill-in format. A unique TEACHER mode allows multiple op- 
tions of how the material is to be presented. As an added bonus, Geography Ex- 
plorerUSA has the capability of supporting a light pen. The union of sophisticated 
software with the speed and novelty of the light pen represents a milestone in Com- 
puter Assisted Instruction, Fully documented, this program is educational for any 
age group. Model I or III. Level II. 16K. 

TRS-80,* Disk, #0071RD-38 $49.95 



MASTER REVERSI 

Master Reversi is a state-of-the-art game that's simple to play, yet infinitely 
challenging. It is a tournament-winning program that has more features than any 
other reversi program on the market. Master Reversi offers a special library of 
tournament-level games for you to analyze. Whether you're having fun or studying 
for the world championship, Master Reversi is the game for you. Documentation In- 
cluded. Model I, Level II, 16K. 

TRS-80; Disk, #0378RD-38 $29.95 

AIR FLIGHT SIMULATION 

An actual simulated take off, flight and landing, Air Flight Simulation is 
both fun and educational. Basic flight instructions, explanations of basic 
aerodynamics, principals of flight and well illustrated documentation included. 
TRS-80" version requires Model 1 or III, Level II, 16K. APPLE* version requires 16K 
RAM and Applesoft. 

TRS-80; Tape, #001 7R-38 $9.95 

APPLE, - Tape, S0148A-38 $9.95 



COSMIC PATROL 

With Cosmic Patrol you get the best of the search and destroy space games. Im 
pressive sound option and superb graphics make Cosmic Patrol the best of Its 
kind. Defend your interstellar space and prey on the enemy with this fast, real-time 
action game program. Documentation included. Model I & III, Level II, 16K. 

TRS-80," Tape, #0223 R 38 $14.95 

TRS-80." Disk, #0224RD 38 $19.95 

SANTA PARAVIA AND FIUMACCIO 

Build a powerful kingdom from your tiny city-state. Set in the year 1400 AD, 
in Italy, this challenging program allows you to test all your leadership skills. 
See if you have what it takes to be a wise and competent ruler. Well 
documented. TRS-80" version Model I & III, Level II, 16K. APPLE* version requires 
Applesoft in ROM. 

TRS-80," Tape. #0043R-38 $9.95 

APPLE" Tape. #01 74A-38 $9.95 

APPLE" Disk, #0229AD-38 $19.95 



Here's how to order: 



RETAIL: Ask us for a list of the Instant Software dealers nearest you. If there is 
not one near you, let us know. Meanwhile, if you would like to order any of the 
products featured on these pages call toll-free 800-258-5473. or use the handy 
reply card in this magazine (a photocopy of it is acceptable). Just fill In the 
necessary information and return it to us. To receive a free copy of our latest 
catalog, just ask, or check the appropriate box on the reply card. Visa, Master- 
card. American Express and personal checks or money orders are accepted. 
Sorry, no COD'S. Please add $2.50 per order for postage & handling. 

DEALERS: II you would like to join the hundreds of Instant Software dealers in 
the United States, Canada and Europe who are already celebrating our software, 
fill in the coupon below (a photocopy is acceptable) or call toll-free 800-258-5473 
and ask for our dealer sales department. 

"TRS-80. and Scripsit are trademarks of Tandy Corp. APPLE is a trademark of 
Apple Computer Co. 



Instant S oftware 

A SUBSIDIARY OF WAYNE GREEN INC., PETERBOROUGH. NH 03458 



/ 1 want to join the celebration! \ 

• tv>,. A- .in Instant Software dealer you can. open up a new world 




>i software for your customers. You'll receive the finest 
tilitjes, applications, games, simulations and educa- 
tional software for most popular microcomputers, Find out 

■ ■ ii ■■■■■■, njt profits ,1 s an 

■ Ir.ili-i Inquirt tods'] you owe yourself a celebi 

DCall me directly. 
Send me dealer information. 



I 



Dealer name 
Address _ 
City 

Your name 
Telephone) 



State. 



Zip 



AREA CODE 

Instant Software, Inc . Peterborough, NH 03458 
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HARDWARE 



A Color Computer can print while hooked into CompuServe! 




Shawn A. McClenahan 
11347 Emelita St. #4 
N. Hollywood, C A 91601 
C.I.S. 70445, 406 

One frustration that comes 
with using the TRS-80 Col- 
or Computer in conjunction with 
CompuServe Information Ser- 
vice (CIS) is the inability to ob- 
tain a printout on your printer. 



PRINTER SOCKET 



Tandy says it's impossible be- 
cause the Color Computer only 
has one RS-232C port. At the 
TRS-80 show in Los Angeles this 
year, one of the repeated ques- 
tions of business people, stock- 
brokers and home users was, 
"How do I use a printer with the 
Videotex Terminal or the Color 
Computer while on CIS?" The 



answer each and every time 
was, "It can't be done." As far as 
most business people were con- 
cerned, regardless of whatever 
other attractions the Color Com- 
puter or Videotex Terminal may 
have had, the nearly unanimous 
reaction was, "No printout- 
no sale." 
All of the above negative pro- 



MODEM SOCKET 




PLUG TO COMPUTER 
Fig. 1 



clamations aside, there is a sim- 
ple way to use any 300 baud 
serial printer (that is compatible 
with Color Basic) to print Com- 
puServe or many other comput- 
er bulletin board services— plus 
the use of the printer alone for 
computer output and have the 
test function required by the 
diagnostic cartridge RS-232 port 
test. All this without the hassle 
of switching cables. However, 
(and here's the bad news) if you 
have one of Radio Shack's print- 
ers you'll note that it is set for 
only a 600-baud transmission 
rate. While this article may still 
interest you, the lack of fore- 
sight here means a baud rate 
converter in the future. 

Now, for you farsighted indi- 
viduals who purchased printers 
capable of being set at, or modi- 
fied for, operation at 300 baud, 
the' simple solution is to just 
"slave" the printer to the tele- 
phone modem output line. Then, 
whatever comes out of the mo- 
dem runs simultaneously to the 
printer input and the Color Com- 
puter or Videotex Terminal input. 

An easy to construct, multi- 
purpose switchbox is the only 
hardware necessary. See the 
schematic shown in Fig. 1. Use a 
high quality rotary switch for S1 
since the $1.98 special, wiper 
style is very unreliable (I know; I 
tried one). The connectors are 
all 4-pin DIN style. Keep the wir- 
ing as short as possible and use 
a metal box and shielded exter- 
nal cable, both attached to the 
system ground, to avoid noise 
and RFI (FCC) problems. Status 
LEDs for Printer Ready or Car- 
rier Detect On are unnecessary, 



84 • 80 Microcomputing, March 1982 



but if you like lights go ahead. 
Closing S2 "slaves" the printer, 
and anything coming out of the 
modem will also go to the print- 
er. The positions on the switch 
box are (1) printer only, (2) test/ 
shorting plug, and (3) modem 
with slave printer when S2 is on. 
The center (2) position shorts 
the RS-232 input/output and car- 
rier detect lines together as re- 
quired by the RS-232 test in the 
diagnostic cartridge. If you have 
problems getting 4-pin DIN 
plugs and sockets you may have 
to special-order them, or try a 
parts store that has video ac- 
cessories. 

As mentioned before, any se- 
rial printer that is compatible 
with Color Computer Basic and 
which can be set to run at 300 
baud will work. The printer must 
provide a line feed with every 
carriage return, use ASCII code, 
and generate a low busy signal 
when not ready. The serial port's 
input line must be pulled up 
high, either at all times (with a 
DTR signal perhaps) or go high 
after each character is sent, 
whenever you use the printer by 
itself. When you "slave" the 
printer there is no handshake 
line. This is because the Basic 
ROM output character routine 
uses the input line (pin 2) as a 
handshake line for printers that 
provide a high (more than +3 
volts) signal when ready to ac- 
cept the next character. In the 
terminal mode the input pin is 
receiving data— no handshake 
is possible. Of course, if you 
have a Videotex Terminal you 
don't have to worry about this. 



For those of you having trou- 
ble providing any handshake for 
your printer (and if you run it 
alone you absolutely have to 
have one), the people at The 
Micro Works (who sell an ex- 
cellent monitor and disassem- 
bler for the Color Computer) 
recommend that "the daring 
may install a 10K pull-up resistor 
between. . .the anode of CR6 
(yes, that's inside) and + 5 volts 
if your printer doesn't provide 
the proper handshake." Con- 
versely, since the output line 
goes high after a character is 
sent, you might try that resistor 
and a diode going from the out- 
put line to the input line with the 
diode preventing positive sig- 
nals from going back to the out- 
put. The 10K resistor is sup- 
posed to be high enough to not 
interfere with the normal input 
function of the RS-232 port. 

The other pinouts of the serial 
port are: (1) Carrier Detect— not 
used by printer but for modem 
status; (2) Input — to computer 
from modem, also discussed 
above; (3) Signal Ground; (4) Out- 
put—from computer. 

For my Eaton LRC7000 printer 
I installed one switch to select 
between 600 baud (normally 
used by the computer for print- 
ing) and 300 baud (used to syn- 
chronize with the modem out- 
put), and printer self test. 
Another switch allows me to 
select between the 64/32-col- 
umn mode (no buffer), and the 40 
column (buffer) mode. At 64 col- 
umns this lets me obtain a full 
format output from the Micro 
Works Color Disassembler. At 
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32 columns, it matches the color 
Computer's video output. I use 
the 40-column, 3-line, 128- 
character buffer mode for CIS 
or other CBBS printouts. I con- 
nected the printer's Ready To 
Send (RTS) line, which provides 
a low signal when busy, to the 
line going to the Color Com- 
puter's RS-232 input line. 

If your printer requires 
switches to alternate between 



the necessary settings, obtain a 
schematic and have them in- 
stalled. If they are already there, 
set them before you enter the 
CIS Videotex program. If your 
modes are software, program or 
keyboard selectable, also set 
them before you enter the Video- 
tex program (this option is not 
possible on the Videotex termi- 
nal). Once you Exec into Video- 
tex you lose control of your nor- 




Photo 2. Inside of switch box. 



Photo 1. Switch pack and modified ROM pack. 

'See List of Advertisers on page 402 




MX-80 
OWNERS 



TIRED OF PRINTING ON THE PERFORATION? 



TIRED OF JUMPING TO BASIC JUST TO 
CHANGE PRINT MODES? 

REJOICE! MXPLUS IS HERE 

INSTALL MXPLUS AND YOUR MX-80 WILL 
SKIP PERFORATIONS AUTOMATICALLY . 

(SWITCH SELECTABLE. OF COURSE) 

LETS YOU SELECT CONDENSED, EMPHASIZED 

OR NORMAL PRINTING INSTANTLY USING ONLY 

THE PRINTER PANEL BUTTONS. 

MXPLUS IS A PLUG-IN MODULE THAT 

INSTALLS IN MINUTES. 

NO SOLDERING REQUIRED. 



NO MX-80 SHOULD BE WITHOUT MXPLUS. 

ORDER TODAY 

CALL: 800-835-2246x441 

OR HI.KS.AK, CALL 213-969-2250 

WRITE: 

DRESSELHAUS COMPUTER PRODUCTS 

22713 VENTURA BLUD. SUITE F 

WOODLAND HILLS, CA 91364 



$39.95 

POSTPAID CALIF ADD 6% 

SAME DAY SHIPPING 

WITH MC VISA ' 
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SOFTWARE FOR YOUR 16K TRS-80 
MODEL l,lll, COLOR 



the 
programme 
pcogi 




Do vou know all the innovative 
wavs of using BASICS lommands' 
The staff at the Pronrammcr's 
Institute haw spent 8 months 

designing a set ot programs explain 
ing everything the manuals until. 
And ituiih more. 

The Programmer's Program leads 
vou step hv step through the funda- 
mentals of programming vour v.om 
putet. Then vou explore the finer 
points . . . multiple loops , queues . 
stacks , game ;-r. yr , miming, sort.-, 
trees . booloean logK . and memory 
savers. All these methods make 
vour programming tasks easier and 
more efficient. 

Difficult programs are built 
More vour very eves, and designed 

A ( musl for every owner of a 
microcomputer ($40). 



sin cassette or diskette*, our magazines are designed ex 
pluitlv tor vour lomputer. Included every month are 
n-IO readv-to-ioad programs ranging from games, home 
entertainment, and personal finance, to more of our 
unique "teaching" programs. We will also keep vou in- 
formed on all the latest products. 
Our next issue will include; 

1. STOCK MARKET ANALYSIS 

2. Word Search Puzzles 

5. Minefield with graphics 
4. Micro-Spell Ciame Quiz 

PLUS TWO SPECIAL TEACHING PROGRAMS 

A. Generating Mazes 

B. Understanding Binary Trees 

(Back issues are available) 
You have already missed Concentration, Checkers, 
Poker, Football, Algebra and Geometry tests, 
Schedule 1040, Mailing List, and Home Budget 
Analysis. The price per subscription to TRC, 
APPLETREE. or MAGATARI is SoO per year, SSO 
per i/i vear, and $10 for a trial issue. 
Don't miss anymore issues! 



Our complete home financial package with check maintenance, income/net wort 
graphing, budgeting, mailing list, and appointment -hill calendars is available to 
ABSOLUTELY FREE with any $50 order. Purchase both above packages and v 

,,:,;■, >: ; . order today: 



IL 



"All software 



THE PROGRAMMER'S INSTITUTE 



A Futurehouse Company 

P.O. Box \19\ Dept.B 

Chapel Hill. N.O. 27514 

(s>l u )4S u -2NH 

MC 6k Visa Welcome 

i':i nii;,]' u'H-l s I':, : v :j .-::i 

Computer Model 

TRC and the programm 
ilabl 



r Subscription i , ■': Ye 
! : Cassette 



Both . Trial Is 
. Diskette 



ners program are trademarks of Futurehouse. 
or diskette for the TRS-80 Model III, Atari 400/800. Apple 



II. Or> cassette for the Model I, Color Ext. Basic. (For diskette add $1 per month.) 4& 



HI-RESOLUTION GRAPHICS 
IODEL II $495 




E/RAM II SCREEN PHOTO 

E/RAM II is a hardware/software package which adds a 512 X 240 high- 
resolution graphics display to the TRS-80* Model II. An assembly language 
driver is provided along with a high quality, fully assembled, printed circuit 
board which plugs directly into the Model II card case. 

The software driver provides the user with useful assembly language 
subroutines which may be called from any high level or assembly 
language program. Routines include control functions which can either 
turn the normal TRS-80' or the E/RAM II display on or off, erase the screen, or 
invert the video. Plot functions include SET, RESET, or READ a point on the 
screen. When the LINE function is passed end-point coordinates, an 
optimized dot raster line is produced at machine language speed. 

For more information, or to order, see your dealer or call THE COMPUTER 
STORE at (918) 747-9333. 

Dealers and OEM's contact: 

KEYLINE COMPUTER PRODUCTS, INC. 

P.O. BOX 35268 

TULSA, OKLAHOMA 74135 

,.-- 163 
TRS-80 is a registered trademark of Radio Shack, a Tandy Corporation. 
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mal computer commands; Reset 
just sends you back to Videotex 
and you'll have to turn off the 
machine and start over. 

If your printer has sufficient 
buffer capacity you should have 
no problem copying single 
pages (one screen's worth of 
text equals 512 bytes). I have no 
problem with my modified Eaton 
LRC in the 40-column, multi-line 
buffer mode. If you can, upgrade 
or increase your printer's buffer 
memory. Or, if needed, you 
could purchase an outboard on- 
line serial buffer to install be- 
tween the switch box and your 
printer. Some of these off-line 
buffers can even be set for dif- 
ferent input/output baud rates 
and can therefore solve the only 
problem of the Radio Shack 
600 baud (try Microcompatible 
for one). 

If the output from the modem 
overflows your buffer, or is 
transmitted too fast for your 
printer to keep up, or you're 
scrolling the output from some 
long CompuServe/Micronet file, 
you can modify your terminal 
parameters with CompuServe. 
Using the CompuServe program 
going from the main menu is te- 
dious and time-consuming. But 
if you enter Micronet, "TER LFD 
X", where X is the character 
time delay to 255, you quickly 
get a line feed delay (LFD) in Mi- 
cronet to allow your printer to 
catch up. You can enter "R DIS- 
PLA" to go back to CompuServe 
while still keeping the LFD for 
your printer. With no buffer, the 
64/32-column mode X = 28 
worked fine for me, even with 
rapid scrolling. When done you 
can go back to normal delay by 
executing the same procedure, 
using X= when your printing is 
finished and you want to go 
back to quick scanning. (Thanks 
to Dixie at CompuServe for sug- 
gesting this solution.) 

You can put another ROM in 
most ROM cartridges by install- 
ing another socket in the area 
provided and use a toggle switch 
to select between them. Don't 
forget to use pull-up resistors 
(4.7K to 10K) on the chip enable 
lines to actively disable the un- 
selected ROM. However, you 
may have to install another 
switch to reconnect the FIRQ 
and Q Clock lines (pins 7 and 8) 



that you broke to prevent the 
cartridge from taking over the 
computer. Some Color Comput- 
er programs will not function 
without the autostart. The diag- 
nostic cartridge memory test, 
when used with Extended Basic 
installed, will not function at all 
without the autostart. Exec 
&HC000 and then trying the 
memory test will not work. 

The MC6809E and MC6883 
chips run very warm and, in the 
interest of reliability, heat sinks 
should be affixed. I used several 
lay-on-top types (used for 16-pin 
ICs) and a small fan from an old 
hair dryer. You might also try 
drilling some holes around the 
power transformer to improve 
air circulation around this 
hot area. 

The suggestion to piggy-back 
16K RAM chips to get 32K bytes 
of memory is fine, except that 
the line from pins 4 of the RAM 
chips to pin 35 of the MC6883 
SAM chip should have a ferrite 
bead on it or run through a 
33-ohm resistor. This should 
solve some static and transient 
problems that might arise. Want 
your hacker buddies to know 
how much memory you're now 
running? Wish there was a 32K 
RAM button to replace that 16K 
insult? Well, Radio Shack has 
one for the Model III that will 
also fit the Color Computer. 
Its part number is AHC-0078, 
its price is 50$, and you can 
call 1-817-870-5600 (National 
Parts for Radio Shack) and 
order one.B 




Photo 3. Switchbox. Note rocker 
switch used for S2. 




You don't have to settle for 
standard equipment. Let MTI 
and Alpha Byte help you build 
the Model III you want. 





MTI FLOPPY DISK ADD-ON KITS 

Now you can upgrade your I6K level II Model III lo 
a full 48K Disk System the easy way with MTI's 
Double Density Disk Controller and your choice of 
Disk Drives. You can choose 40 track, Double- 
Sided 40 track or Double-Sided 80 track Drives to 
supply your disk storage needs. Forty Track 
Drives store I75K, Double-sided 40 Track drives 
store 350K. Four Double-Sided 80 Track Drives 
provide up to 3 MEGABYTES of On-Line storage. 

INTERNAL DISK DRIVE KITS 

The first drive kit includs one Tandon Disk Drive, 
MTI Double Density Controller, Switching power 
supply, 32K of RAM, all mounting hardware, 
cables and Detailed Installation Instructions. The 
second internal drive kit includes a second drive 
and the necessary installation hardware. 

40 TRACK DRIVE SYSTEM 

ORIVE NO. 1 KIT 695.00 

DRIVE NO 2 KIT 279.00 

40 TRACK DUAL HEAD SYSTEM 

DRIVE NO. 1 779 00 

ORIVE NO. 2 389 00 

RO rRACK DUAI HEAD SYSTEM 

DRIVE NO. 1 •...929.00 

DRIVE NO. ? 569.00 



EXTERNAL DRIVE KITS 

Two external drives can be attached to any dual 
drive Model III Computer. 

40 TRACK EXTERNAL DRIVES 

DRIVE NO. 3 379.00 

DRIVE NO 4 359.00 

DUAI HEAD 40 TRACK EXTERNAl DRIVES 

DRIVE NO. 3 499.00 

DRIVE NO. 4 479.00 

DUAL HEAD 80 TRACK EXTERNAL DRIVES 

DRIVE NO. 3 . 679.00 

DRIVE NO 4 659.00 

FIVE MEGABYTE EXTERNAL 

WINCHESTER HARD DRIVE 2795.00 

Add the Ultimate in Fast High Capacity Disk 
Storage to any Model III Floppy Disk system. 
Reliable Winchester technology provides enough 
storage for the largest business files. Winchester 
disk drives have greatly increased data transfer 
rates and that means faster program and file 
loading. This is a complete self contained system 
that connects to a standard Model III Disk System 
in minutes without any modification to the com- 
puter. 

MODEL III DIAGNOSTIC PROGRAM 49.95 

A complete diagnostic program for the Model III. 
Tests RAM and ROM, video display and all disk 
drives. Catch problems while they're small and 
be sure that your Model III is in perfect running 
condition. 




MODEL III CP/M-80 NOW AVAILABLE! .849.00 
CP/M® & 80 Column Kit. 

Now you can run proven CP/M based software on 
your Model III, with standard 80-column display. 
A simple internal modification will transform your 
Model III into a NEW computer and allow you to 
run CP/M the industry-standard operating system 
and assure you of a large supply of fine software. 
Includes CP/M 2.2. 

MODEL III SPEED-UP MOD 149.00 

Now you can run your Model III at 4 MEGAHERTZ, 
that's almost double the standard speed. This 
simple-to-install kit does require some soldering. 

MODEL III COOLING KIT 44.95 

Heat build up is a major cause c ! system failures 
and 'fiakey' operation. This kit provides excellent 
cooling. 

DOSPLUS OPERATING SYSTEMS 
FOR THE MODEL III 

Solid BUG-FREE operating systems for the Model 
III. Supports different size drives on the same 
system and Basic Program Chaining with 
variables saved in memory. 

40 TRACK 99.00 

80 TRACK 119.00 

EXPANDED DOSPLUS 3.3.8 149.00 

Read and Write 40 Track Diskettes on an 80 Track System. 
HARD DISK DOSPLUS 299.00 

Supports the MTI 5 MEG HARD DISK. 
CP/M is a reg. trademark of Digilal Research, 



We guarantee everything for 30 days. If 
anything is wrong, return the item and we'll make 
it right. And, of course, we'll pay the shipping 
charges. 

We accept Visa and Master Card on all orders; 
COD orders, up to $300.00. 

Add $2.00 for standard UPS shipping and 
handling on orders under 50 lbs, delivered in con- 
tinental U.S. Call for shipping charges over 50 
lbs. Foreign, FPO and APO orders add 15% for 
shipping. Californians add 6% sales tax. 

Prices quoted are for stock on hand and are 
subject to change without notice. 

31245 LA BAYA DR, WESTLAKE 
VILLAGE, CALIFORNIA 91362 

information .call: 

■0333 

To use our 24-hour modem order line, call: (213) 883-8976. 

*■ 11 



PRODUCTS 




i^See List of Advertisers on page 402 



80 Microcomputing, March 1982 • 87 








(ONLY IN CONTINENTAL U.S. 




MODEL III DISK KITS 

TWO 40/track drive kit and hardware. Comes 
complete with all the necessary hardware and 2 
drives of your choice, (MPI or TANDON 40 
track) NO SOLDERING OR TRACE CUTTING 
REQUIRED! COMPLETE EASY TO FOLLOW 
INSTRUCTIONS INCLUDED 875.95 

TWO 80/track drive kit and hardware. Same as above 1,095.00 

ONE 40/track drive kit with all hardware and your choice of MPI or TANDON 40/ 
track drive. (INSTRUCTIONS INCLUDED) 599.99 

ONE 80/track drive kit with all hardware and one MPI 80/track drive. No soldering! 

(INSTRUCTIONS INCLUDED) 699.99 

TRS-80 MODEL III, 48K. 2 40 Track TANDON or MPI drives 2.095.99 

TRS-80 MODEL III, 48K, 2 80 Track MPI drives 2,325.99 

1 YEAR WARRANTY 

19.95 

MODEL I, III APPLE AND EXIDY. Instructions included. 
(MOD 1 Keyboard requires jumpers. $2.00 extra) ^^^ 

ARCHBOLD SPEED-UP MODIFICATION FOR MOD I 
TRS-80. RUN UP TO 300% FASTER CPU SPEED! SPEED UP 
SLOW PROGRAMS WITHOUT SOFTWARE! 45.00 

"" """~~ " "TJonTtor^ 

Black and White Monitors 12" (TECO) 129.95 

Green Phospher Monitors 12" (TECO) 159.95 

AMDEK Black and White 12" Monitor 159.95 

AMDE K Green Phopher 1 2" Monitor 100G 189.95 

MODEL I DISK DRIVES 

These drives come complete with power supply and chassis. 
90 day warranty on disk drives. ALL DRIVES COMPLETELY 
TESTED PRIOR TO SHIPPING! 40 track drives are fully 
compatible with TRSDOS, NEWDOS-80, LDOS etc. 
Fully compatible with the PERCOM DOUBLER and Double 
density! 80 track drives require MAKE-80 program to run 
regular software. (SPECIAL! GET A FREE 2 DRIVE CABLE 
WHEN BUYING 2 or more DRIVES!) 

40 TRACK MPI or TANDON DRIVES 319.95 

80 TRACK MPI 439.95 

DOUBLE SIDED 80 TRACK MPI 579.95 

2 DRIVE CABLES 25.95 

4 DRIVE CABLES 35.95 

SPECIAL DOUBLE SIDED CABLES (CALL $) 

MAKE-80 CONVERT 40 TRACK TO 80 TRACK. 
(SPECIFY MOD I, III) 29.95 

DISKETTES 

SPECIAL: Brown Bag Diskettes (Verbatim) Bag of 20 . 49.95 

SPECIAL: Brown Bag Diskettes 100 Quantity 214.00 

VERBATIM DATALIFE DISKETTES Box of 10 32.50 

VERBATIM DATALIFE DISKETTES 100 Quantity ..;... 275.00 




SPECIAL DISK HOLDER 



Holds 50 Diskettes 

Reg. Price S35.95 
SPECIAL 



$ 21.95 



m / eeuwmn am 
PERCOM DOUBLER II (Includes DBLDOS) Doubles storage 
on Model I disk drives. Installs in Exp. Int. in minutes! Will not 

effect normal operation! 169.95 

NEWDOS-80 (New Version 2) 139.95 

LDOS 139.95 

DOSPLUS 3.3 89.95 

wtimmm&msmmmmmmmmmtemiii 1 1— — — 
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LYNX TELEPHONE MODEM 

AUTO/DIAL AUTO/ANSWER 
COMPLETE WITH SOFTWARE AND 
HARDWARE FOR MODELS I AND III 
The RS-232 is not needed! Completely 
assembled. LYNX MODEMS are compatible with 

ST-80 III also 299.95 

ST-80 III: Smart terminal program. Allows saving data to disk 
or sending data from disk and more! Mod I or III . . . 149.95 

PRINTERS 

SPECIAL: FREE CABLES AND FREE SHIPPING 

WITH ALL PRINTERS! 

CABLES FOR MODEL I EXPANSION INTERFACE, MOD III, 

or PMC-80 EXP 100 or PIF-40 only.) 

PLEASE SPECIFY WHICH COMPUTER! 

HIGH QUALITY DOT MATRIX 

EPSON MX-80 (Tractor feed only) 539.95 

EPSON MX-80 FT (Tractor and Friction feed) 639.95 

EPSON MX-70 (Tractor feed only) 419.95 

EPSON MX-100 (Tractor and Friction feed 14.5 wide) . 895.95 

EPSON MX-80 Hi-Res Graphics Option 89.95 

Add-On Friction Feed Adaptor for MX-80 or MX-70 59.95 
OKIDATA MICROLINE 80 (Friction and Pin feed) . . 414.95 
OKIDATA MICROLINE 82 (Friction and Pin feed) . . 597.95 
OKIDATA MICROLINE 83 897.95 

(Friction, Pin and Tractor feed 14.5") 
OKIDATA MICROLINE 82A. 120 cps 625.00 

(9x9 matrix w/descenders) 
OKIDATA MICROLINE 83A. 120 cps 925.00 

(9x9 matrix w/descenders) 
TRACTOR FEED ADAPTOR for 80 and 82 75.00 

LETTER QUALITY PRINTERS 

The C-itoh Daisy wheel printer is one of the finest Letter 
Quality printers we've seen. WHY PAY MORE FOR LESS??? 
Exchange Daisy wheels to get the kind of printing fonts you 
need. 12-10 pitch. Excellent with Scripsit or Electric pencil. 
Let's face it, sometimes dot matrix doesn't hack it! (You can 
use standard Diablo Carbon ribbons with the C-itoh to get 
crisp "COPY READY" printouts!) 

C-ITOH DAISY WHEEL 25 CPS . . : 1,795.25 

C-ITOH DAISY WHEEL 45 CPS 1,995.25 

C-ITOH TRACTOR FEED 219.95 

PMC-80 COMPUTER 

16K LEVEL II Fully compatible with 
all TRS-80 Mod I Software 595.95 

PMC-81 COMPUTER 16K LEVEL II 

with upper/lower case. Upper/lower case 
driver in ROM. Auto key repeat. Numeric keypad. 
4 programmable keys. Built in speaker. 100% Mod I software compatible 679.99 
EXPANDER 100 PMC's expansion interface 32K, disk controller, printer interface. 

(Expands PMC-80/81 to 48K) 499.99 

RF-MODULATOR for PMC or TRS-80 to TV Hook-up. Completely assembled and 
tested. (Plugs in Video port) UHF CH.33 39.95 

TRS-80 Disk and Other Mysteries Book, 132 pp 22-50 

Microsoft Basic Decoded and Other Mysteries. 312 pp 29-95 

Custom TRS-80 and Other Mysteries, 300 pp .29.95 



CALL TOLL FREE: 800-528-1 



NO SURCHARGE FOR VISA, MASTER CARD OR AMERICAN EXPRESS!!! 
(10% DEPOSIT REQUIRED ON COD'S OVER $200.00) Send Certified Check, 




Money Order or Check 



^12 



SIMUTEK COMPUTER PRODUCTS inc. 



4877 E. SPEEDWAY 
TUCSON, AZ 85712 
(602) 323-9391 



CALL FOR 
FREE 100+ PAGE 
CATALOG!!! 



TRS-80IS ATMOFTANDYCORP. PMC-80IS TM OF PERSONAL MICROCOMPUTERS. 
PRICES AND SPECIFICATIONS ARE SUBJECT TO CHANGE WITHOUT NOTICE. 




SIMUTEK 



Word processing will never be the same. 

CuRlflrt " from Simutek is the first word/ 

graphics processor for TRS-80 Mod. I & III, or PMC-80 
and 81. CopyArt gives you unmatched editing flexibil- 
ity. Change sizes and styles of type in a single line. 
Insertor delete characters, words and lines. Under- 
line, bold face and make block moves simply. Pagi- 
nation, headers and footers are a snap. You have 
complete format control, including justification, 
centering and flush right copy positioning. 

And that's just the beginning. 

LCElJJrt " is also a graphics generator that can 
make words and letters in any size, produce graphs, 
charts, cartoons, logos, borders and illustrations. Busi- 
ness graphs and charts can be intermixed with text to 
produce reports of exceptional quality. CopyArt's 
scrolling capability frees you from the bonds of a 64 
column screen. CopyArt can simulate a page up to 
255 characters wide. 

Commands in CopyArt are as simple as T for Insert, 'B' 
for block move, etc, CopyArt even supports DOS 
commands like DIRectory, FREE and KILL. A special 

HELP command gives you instant access to an on-line 
manual. 

Ccpiflri makes word processing more flexible 
than ever Petore. It supports the full graphics charac- 
ter sets of Epson and Okidata printers as well as the 
proportionally spaced justification superscripting, and 
subscripting capabilties of Centronics' 737 and 739 
printer and Radio Shack's Line Printer IV. On non- 
graphic printers [C-ltoh, Diablo, Radio Shack Daisy 
Wheel, and others with the ability to turn off linefeeds) 
CopyArt creates pseudographics by overstriking 
standard characters. On every printer, especially dot 
matrix printers, the double printing feature produces 
unbelievably crisp copies. 

(Headline and illustrations produced on CopyArt) 
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s WORD/GRAPHICS PROCESSOR 
FROM SIMUTEK 



Diskette and instruction manual $149.95 

Requires TRS-80 MOD I or III, 48K, 1 disk 



10 DAY MONEY BACK GUARANTEE 

To order call TOLL FREE 800-528-1149 for VISA 
MasterCard American Express COD orders only. 
Or mail check or money order to 

SIMUTEK 

Computer Products Inc. 

4877 E, Speedway, Tucson, AZ 85712 



Technical questions? Call (602) 323-9391. Dealer inquiries welcome. 

TRS-80 is a TM of Radio Shack, a Tandy Corporation • CopyArt is a TM of Simutek Computer Products Inc. 



■See List ol Advertisers on page 402 
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GAME 



What 's this got to do with Shakespeare? 




Anthony M. Ledger 
RR 3, Box 184 
14 Musket Ridge Road 
New Fairfield, CT 06810 



Othello is a game played on a square 
even-numbered grid using disks with 
sides of different colors. Each player places 
his own color disk on the board bracketing a 



group of the opponent's disks and flips the 
trapped disks over to the opposite color. 
You can trap the opponent's disks in eight 
directions corresponding to the horizontal, 
vertical and diagonal axes of the board. 
Each disk placed on the board must trap 
and flip at least one of the opponent's 
disks. As the game progresses, the score 
can change radically. Entire rows, columns 
and diagonals are flipped by a single move. 
As a novice Basic programmer I was fas- 
cinated with the challenge of programming 
an automated version of Othello for the Col- 
or Computer. Extended Basic rapidly draws 
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CURSOR LOOP AND KEYBOARD 
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AUTOSEARCH ROUTINES 

• SEARCH 8 DIRECTIONS 

• RESET SYMBOLS 

• CHECK ILLEGAL MOVES 

• UPDATE SCOREBOARD 
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lines and circles, paints selected areas and 
draws complex shapes with the Line, Circle, 



Anthony Ledger is a staff engineer with 
the Perk in Elmer Corporation working in the 
area of thin film physics. 



The Key Box 

Extended Color Basic 
Color Computer 
16K RAM 

Joysticks 
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I2xl2 SYMBOL ARRAY P(X.Y) 



ARRAY CODE FOR SYMBOL 



P(X, Y) 
P(X, Y) ' 
P (X, Y) ■ 



BLANK SQUARE 

OPEN CIRCLE SYMBOL 

FULL CIRCLE SYMBOL 



Fig. 1. Program Block Diagram for Othello for the Color Computer. 
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Fig. 2. Game & Symbol Array Sizes. 



"The game moves 
relatively fast. . . " 

Paint and Draw commands, I visualized 
composing the game on the screen with a 
relatively small number of simple instruc- 
tions. I underestimated the complexities of 
display animation. A fully automated game 
includes joystick control of a cursor, an 
automatic search method for flipping the 
captured disks, a way to detect illegal 
moves and a scoring method. While finding 
solutions to these problems, I added a next 
turn indicator, a dynamic bar graph and an 
alphanumeric scoreboard. 

The game program allows two players to 
interact with the graphics display in an 
automated mode. I wanted a minimum of 
keyboard input, with the main control func- 
tions performed by joysticks and the joy- 
stick buttons. The following areas show the 
sequential development of the program. 

• Choice of Graphics Mode 

• Game Symbols 

• Game Board Array and Grid System 

• Cursor Control Using Joysticks 

• Autosearch Routine and Resetting 
Trapped Symbols 

• Detecting Illegal Moves 

• Scoring System (bar graphs, alpha- 
numeric display) 

A functional block diagram of the com- 
pleted program indicates the main elements, 
a cursor or keyboard input loop followed by a 
series of automatic search routines (see Fig. 
1). Several subroutines write and erase sym- 
bols and maintain the score indicator. Ap- 
proximately 250 bytes of memory remain 
after the program is run on a 16K Color Com- 
puter equipped with Extended Basic. 

The game moves relatively fast, since all 
changes made to the graphics display are 
incremental. For instance, a single move 
which can capture eight of the opponent's 
symbols is completed in four seconds. This 
includes the time to determine whether the 
move is legal, to search out and flip the 
trapped symbols and to reset the turn in- 
dicator and score display. Sound effects ac- 
company the disk-flipping routine, but do not 
limit the speed of each move since the tone 
is turned on for the shortest time available 
with the Sound command (6/100 seconds). 

Choice of Graphics Mode 

The highest resolution mode (PMODE 
4,1) and SCREEN 1,0 mode for the graphics 
display provides excellent definition of the 
small circular game symbols. The time-con- 
suming Pset and Preset commands to the 
powerful Draw statement which generate 
any pattern including alphanumeric 
characters control the 256 by 192 address- 
able locations in this high resolution mode. 

The highest resolution mode limits the 
choice of colors to two. Screen 1,0 as- 
sembles the display using green symbols 
and lines on a black background. Screen 1,1 

.■-See Lib! o' Advertisers or page 402 



Has your TRS-80 Model I, Model III, 
or Color Computer 

READ A GOOD TAPE LATELY? 



*RE CLASSICS ON TAPE EACH MON 
(nearly as cheap as a library card). 



Is your TRS-80 tired of looking at the 
same ol' programs? Is software senility 
setting in? CLOAD Magazine is just 
what your computer needs to stimu- 
late those RAM chips and keep its 
memory fresh. 

CLOAD Magazine is a cassette tape 
with 6 to 8 programs on it, which your 
computer will receive, by First Class 
Mail, every month! Just CLOAD and 
RUN. Games, tutorials, practical pro 
grams, and utilities to keep your TRS- 
80's video bright and alive 

Put more culture and variety in your 
computer's life. Get a subscription to 
CLOAD Magazine. 

- "I I iO^i 

wUWnU MAGAZINE INC. 

PO. Box 1448, Santa Barbara CA9310? 

(SO 1 ).! %.-' 627! 




The Fine Print 

Issues are sent first Class Maif 

All issues Irom Oct. 78 on availao'e - asl loi list 

(54 Level I issues also) 

Programs are for !6K Level II, I6K Model III, and 

:;: ■ ■:.•■ i' ! I, ■'•.' : sk 

California residents add 6% to single copies 
Overseas - add 1 10 to subscnotions, and 1 1 to 
single copies Sent AO rate 



The Bottom Lint 

,." r 1 "/ ". iO'.; 
6 months (6 issues) 

Smgie copies - Back issues . 

Good Games #1 

Adventures #1 . . 

TRS-80 is a trademark ol Tandy Corp 



14900 
$23 00 
14 SO 
119.00 
11300 



MasterCa'd/Visa/Gotd also welcome 



Trying to educate your CoCo can be a trying experience. Pounding 
on the keyboard is not the positive reinforcement your computer 
needs. CHROMASETTE Magazine is the civilized way to introduce 
your computer to the world of good software. 



With CHROMASETTE Maga- 
zine, CoCo gets both quantity 
and quality. Every month, 6 to 
8 programs arrive by First Class 
Mail. No need to type them in 
— CHROMASETTE Magazine 
is a cassette tape with educa- 
tional, practical, utility, and 
game programs on it. Just load 
and run. Ah, the life of luxury! 



OR I = 1 TO 100 
PRJNT "I WILL HOT CRASH 

IN CLASS" 
NEXT! 

/- Extended #*.- ^:v:> 
* BASIC 
Color 
Computer 



Give your computer a cultural 
lesson. Get a subscription to / 
CHROMASETTE Magazine 



The Bottom Line: 

1 year (12 issues) $45 00 

6 months (6 issues) . .$25.00 

Single copies . .' $5.00 

Calif, residents add 6% to single copies. 
Overseas — add $10 to subscriptions, and $1 to 
single copies. Sent AO rate. 



MasterCard/Visa welcome! 




The Fine Print: 

Issues ate sent Fir.t Class Mail 

All issues from July 81 on available • • ask (or list 

Programs are for the Extended BASIC mode' o"ly 
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Magazine 

PO. Box 1087 Santa Barbara, CA 93109 (805)963-1066 
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A PROFESSIONAL QUALITY 

PASCAL FOR THE TRS80 

AND CPM 



Pascal Features 

A complete Jensen and Wirth Standard Pascal 
Produces compact efficient code that executes 

10-20 times faster than interpreted BASIC 
Generates reentrant Romable code 
Can compile large programs (4000 lines + ) 
Fast one pass compiler 
Simple commands for compiling and running 
Supports separate compilation of procedures 

and functions 
Compiler switch options, including conditional 

compilation 
Full heap support including NEW and DISPOSE 
Supports single and double precision REAI 
Files are compatible with TRSDOS 
Over 20 Language extensions 



The Best of Both Worlds 

Pseudocode (Pcode) for compactness 

Native code for speed (advanced develop, pack) 



Linking Loader 



Supports procedure and function libraries 
Can create command files that are callable as 

commands from TRSDOS and CPM top level 



TRS-80 Library 

Pascal library - over 20 routines . . . 

Graphics routines (setpoint. cleargraphics ....) 
Can call operating system and ROM routines 
Memory may be protected from Pascal for use by 
assembly language routines 

Full Screen Text Editor 

Included with Pascal or available separately 
No limit on die size (except disk capacity) 
: 'i.i:| cursor movement and scrolling 
Insert and delete characters, show tile, insert file 
Insert delete, duplicate, split, merge lines 
Horizontal scrolling allows editing of files 
containing lines wider than the screen 
Key and command mode access to commands 
Find string, replace string 
Files are compatible with TRSDOS 
On line documentation with HELP command 
Can also edit text and BASIC programs 
Many additional features 



250 Page 
Documentation Package 



Optional Advanced 
Development Package 

Z80 native code generator 
Pcode optimizer 



Hardware Required 

TRS-80 model I: TRS-80 model III; or CP/M system 

(with Z80) 48k of memory. One disk drive (two 
recommended) TRS-80 version compatible with 
TRSDOS and most other operating systems. 



T T R, S "H 8 nS e !n Shandy Corporation 

TRS-80 Model III CP/M Digltal Research lnc 

CP/M 280 Zilog. Inc. 

Send More Information free 

Alcor Pascal System $199 

1 Text Editor only $ 60 

"J Advanced Development Package $125 

: Manuals only $ 30 

ALCOR SYSTEMS 

13534 Preston Road 

Suite 365 

Dallas, Texas 75240 " 

Fof immediate service call 
(214) 226-44 76 







v5r 

■ . ... ... 



V^cor) 



ADD $3.00 Shipping & Handling 



"// a symbol is already present control returns to 
the cursor loop." 



produces an alternative display, white hori- 
zontal lines, alternating blue and orange 
vertical lines and rainbow colored curved 
lines and characters. 

Game Symbols 

The number of statements needed to set 
or change a given game piece is minimized 
with simple symbols (squares, rectangles 
or circles). The Line statement generates 
the simplest symbols. 

100 LINE (X1.Y1) - (X2,Y2),PSET(OR PRESET),B(Box) or 

BF(Full Box) 

The statement draws a line or a box (full or 
empty) by specifying the coordinates 
(X1,Y1) and (X1.Y2) of opposing corners. 
This statement, used for cursor control, 
also erases parts of the display by writing a 
full box in the background color. 

The Circle and Paint statements write the 
open and filled circles I chose as game 
pieces. A program line of the form 100 CIR- 
CLE (A,B)R,1 writes a green circle (color 1) 
of radius R at the point (A,B) on a black 
background (color 0). Repeating the above 
statement using color deletes the circle 
by drawing a black circle on a black back- 
ground. A filled circle is drawn by painting 
from the center of a circle with the fore- 
ground color. 

100 CIRCLE (A,B),R,1 
110 PAINT (A,B),1,1 

The filled circle is deleted by painting from 
the center (A,B) with color (black), or by us- 
ing a Line statement. 

The game is started on the screen by 
writing two circular symbols of each color 
with like colors on opposing diagonals in the 
four central squares of the board (see Fig. 2.). 
Additional symbols are written at a set of 
coordinates derived from the joystick outputs. 

Game Board Array and Grid System 

The game board is a 10 by 10 array of 
squares drawn on the screen at the begin- 
ning of the program using Line statements. 
The game area occupies screen positions 




from 40 to 250 horizontal ly and 1 7 to 1 87 ver- 
tically on the 256 by 192 screen and the joy- 
stick outputs map a 64 by 64 array of posi- 
tions; a little numerical manipulation con- 
fines the joystick controlled cursor to the 
game grid. An array of numbers tracks the 
type of symbol in each square of the grid. 
This array is denoted P(X,Y) in the listing 
and is dimensioned one element largerthan 
the game board in all directions, resulting in 
a 12 by 12 array (see Fig. 2.). This oversized 
array surrounds the game array by a row of 
blank squares at all times and simplifies the 
search routines described later. 

At first, the joystick-controlled cursor ate 
the freshly drawn game grid. When the cur- 
sor coincided with a symbol or grid line, the 
flashing action permanently erased it; turn- 
ing off the flashing action left solid cursor 
tracks all over the screen. Rewriting the grid 
and symbols between flashes of the cursor 
solves this problem; in practice, the game 
operation becomes slower as more sym- 
bols fill the board. 

Cursor Control Using Joysticks 

The joysticks position the cursor in the 
center of each square and the joystick but- 
tons place game pieces on the screen. After 
each new symbol is written, symbol writing 
passes to the opponent's joystick. After 
each new piece is set on the board, the posi- 
tion is checked to see if it is allowed; if the 
move is illegal, the symbol is deleted and 
another move allowed. 

The centers of each square are the only 
positions the cursor can occupy. The joy- 
stick outputs are quantized with: 100 V1 = 
INT(JOYSTK(0) . 4)/7) + 1 . Values of the vari- 
able JOYSTK(O) range from to 63; the 
above expression compresses all these 
values into integers between 1 and 10 in- 
clusive. When performed on both joystick 
outputs, the joystick creates only numbers 
between 1 and 10 in both axes, correspond- 
ing to centers of game squares. 

The screen coordinates (A,B) of the 
center of the cursor are expressed as the 
compressed joystick outputs; the joystick 
makes the cursor jump from the center of 



FLASHING CURSOR 

IN CENTER OF BLANK CELL 



CURSOR 

IN CENTER 

OF OPEN CIRCLE 



Fig. 3. Cursor Positioning in Game Cells. 
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"This prevents the grid from being erased 
and automatically positions game symbols. . . " 



one square to the center of the next. This 
prevents the grid from being erased and 
automatically moves the game symbols to 
the correct position, (see Fig. 3). The joy- 
stick button places symbols on the board 
and provides a numeric output Z = PEEK 
(65820) which is a pair of numbers (254 or 126) 
for one joystick and (253 or 1 25) for the other. 
The two values reflect whether the joystick is 
left or right of the center position. 

Lines 660 to 990 in Program Listing 1 
move the cursor with joysticks to any board 
position without erasing any game sym- 
bols. The Line statement creates the cursor; 
the cursor loop continuously writes a black 
or green cursor, writes the appropriate sym- 
bol in the square and checks the value of Z 
to see if a new symbol is to be placed on the 
board. The joystick button branches the 
program out of the cursor loop. If a symbol 
is already present in the square, control 
returns to the cursor loop; otherwise, the 
symbol appropriate to the joystick in use is 
written. A joystick switching counter (W in 
line 640) in the cursor loop selects the cor- 
rect symbol for each player. 

Autosearch Routine 

and Resetting Trapped Symbols 

The possible arrangements of symbols 
along a single direction from the new sym- 
bol position reduces to four distinct cases 
(see Fig. 4). The search routine checks the 
symbol present in each preceding square 
until it detects one of the four patterns. If 
the routine encounters a blank square first 
(case I) the search ends. If it finds an op- 
posite symbol first the search continues un- 
til a like symbol is found (case II). The value 
of the counter M in the search routine (lines 
1200 to 1370) is set and the trapped symbols 
are reset. The next symbol in case III is iden- 
tical and the search ends. A full line of iden- 
tical opposite symbols also ends the search 
(case IV). The oversized array terminates 
the maximum search on a known symbol (a 
blank square) and simplifies the reset loop 
limit definitions. 

One dimensional searches for all eight 
directions are arranged serially in the pro- 
gram and are indicated by REM lines AUTO- 
SEARCH LEFT or AUTOSEARCH RIGHT). 
Subroutines at 2710 and 2800 reset symbols 
and produce a series of beeps with the 
statement SOUND (200,1). 

Detecting Illegal Moves 

The search routines determine valid 
board positions for new symbols with the 
counter N8. The value of N8 is incremented 
by one for each case I, III or IV; if N8 equals 
eight at the end of the two-dimensional 
search, no legal moves were found. In this 
case, a subroutine at 2890 destroys the 
symbol with flashing cursors and suitable 

s See List ol Advertisers on page 402 



sound effects. The symbol is reset after the 
cursor moves to an allowed position. 

Scoring System 

Because it is impossible to print text on 
the graphics screen with simple print com- 
mands I added bar graphs, updated each 
time a symbol changed sides. One bar graph 
is empty and the other a full rectangle; the 
height of each is proportional to each 
players score at any point in the game. 

The incremental bar graph in which a 
small block is added or subtracted from the 
previous bar height as the symbols change 
sides is implemented in lines 3060 to 3190 
as a subroutine to the symbol drawing and 
deleting subroutines. 

An alphanumeric scoreboard, con- 
structed with Draw statements, and a turn 
indicator at the top of the screen further en- 
lighten the players. 

The Draw statements in lines 370 to 450 
write the words SCORE and N EXT at the top 
of the screen. A video scoreboard totals 
both scores at the end of each move (in 
lines 2560 to 2680 and a multibranch set of 
subroutines starting at 3220). A Draw state- 
ment generates each number in a 5 by 7 cell. 

DRAW "BM" + P$ + ",16; (draw_lnst_ructi_ons)" 



BLANK SQUARES IN 
OVERSIZED ARRAY P(0, Y) 




EDGE OF SCREEN GRID 
OLD SYMBOLS 



\E N S i MBOL 



ooo 



SEARCH XI - I TO O 



oo 



IF THE NEXT SYMBOL IS BLANK SEARCH 
NEXT DIRECTION 



o 



© o 



WHEN A SIMILAR SYMBOL IS FOUND RESET 
THE CAPTUREO PIECES USING M COUNTER 
AND END SEARCH 



h-- ■ 



OO 



IF NEXT SQUARE IS THE SAME SEARCH 
NEXT AXIS 



h- 



oooooo 



A FULL ROW ALWAYS ENDS IN A BLANK SQUARE 
AND REDUCES TO CASE I 



Fig. 4. One Dimensional Search used to 
identify trapped game pieces. The complex 
patterns simplify to one of four cases. 






LOW-LEVEL CENTER 

TRS-80 Model l/lll 



STRETCH SUPERSTEP: New third generation 780 simu- 
lator is the leading element ol the Software CPU design base Ani- 
mated Z80 Programming Models. Intelligent RAM Window, 
scolling disassembler are now extended New modules are 
FJCUR2-D byte oriented editor with lull floating cursor and auto- 
repeat plus innovative BUFSTF user-detined butter/window 
setup tor flexible skeleton program views. Use BUFSTF to view 
la r ge amounts of disassemb'ed code, isolate all instances of 
selected instructions in several formats, more. Gather instruction 
frequency counts in straight-line or program-flow orde r tor 
sophisticated analysis of subject programs and Z80 resource use. 
Many formatted transparent printer options, mcluding screen pix 
and instruction-by-instruction tabular listing of all active machine 
aspects Pictorial manual gives easy intro to program operation 
Nothing newer for byte-entry, debugging and analysis of Z80 
machine language programs $39.95 + $2.00 shipping 



EMU 02e: Detailed mstruction-level 6b02 simulator with am- f 
mated before/after 6502 Programming Models registers, flags m 
and stack ) and scrolling instruction stream disassembler active in m 
Single-step and 4-speed TRACE modes, also special high speed 2 
interpreter running over 5% actual 1 mhz 6502 processor speed • 
have a 6502 without having a 6502. find out why the 6502 bram 
was picked by Apple, PET. Atari, arcade machines, etc. $29.95 
+ $2.00 shipping 

BALCODE 80A: High y interesting mid-level language for 
TRS-80 Model I IBM's BAL (Basic Assembler Language! is an 
idealized machine instruction set currently in use on the IBM 
360/370. BALCODE 80A implements an extended BAL subset via 
a text editor and macro assembler; you write in BAL with 20 
p-regislers (16 genera^ purpose. 4 floating point] and powerful 
addressing modes, then assemble to fast 780 code Hands on 
int'oouction tc BAL . source programs are higniy portable to make 
your TRS-80 an IBM workalike 1 Includes '06 page IBM reference 
publication describing BAL From Balcode Software $79 00 + 
$3 00 shipping 

• 

COMPILER i 

WORKSTATION f 

TRS-80 Model I and III 

Your BASIC program development 
could go faster... 

EDIT: Full-Screen BASIC editor with floating cursor and auto- 
repeat More than 30 commands and 'unctions let you var- 
iously find, change, insert, delete, replace, replicate, copy, 
move or position BASIC text at the character, string, nne or 
Diock ievf: Developed in Britain by Southern Software Von 
III $40.00 + 1.50 shipping, 

PACKER: (Cottage Softwa-ej Editing tool will unpack, shorten, 

r eoack renumber all or part ot your BASIC text The UNPACK 
segment is very useful when preparing iiAS'C source pro- • 
grams for compilation by ACCEL2. Mod I. Ill $29.95 + 1.00 • 

shipping • 

Then your BASIC program • 

could go faster... • 

ACCEL2: Compiler for TRS-80 Mod I, Mod III Disk BASIC. New • 

functional improvements in place to give more ease-of-use, 9 

quicker compilation of large programs, better chaining of com- 9 

piled and non-compiled programs. Size read-out helps you z 

monitor code growth during compilation . REM N0ARRAY option. Z 

lets you use variable-bound arrays. Professionals note: Com- X 

prehensive instructions show how to organize your compiled * 

programs for resale on tape, ES/F wafer or disk No royalties' 5 

Developed in Britain by Southern Software . Specify Mod I or 1 1 1 # 

$88.95 + $2.00 shipping. • 

TSAVE: Writes compiler output to independent SYSTEM tape. 9 
59 95 + $1.00 shipping. S 

EXEC: Command-List Processor for TRS-80 Mod I. Prepare. • 
execute, pass as many as nine parameters to lists of TRSD0S • 
or NEWD0S commands and/or BASIC statements Simplifies 9 
repetitive procedures such as power-up sequences, file set- ft 
jps. etc. Compatible with ACCEL2 compiler disk output. X 
Developed in Britain by Southern Software. $22.00 + $1 00 Z 
shipping £ 



M/C.VISA 
CA add 6% 



/M»l« 



ggprj- (415)387-3131 " ,Jb 

P.O. BOX 11721 SAN FRANCISCO, CA 94101 

'RS-8C TRSDOStm Radio Shack ES/F tm Exatron 
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"The joystick button 
branches the program 
out of the cursor loop. 





5'A" 40 Track drive with case and 
power supply. 

FLIPPY DRIVES ONLY $295.00 

2 DRIVE CABLE $14.95 

4116 MEMORY CHIPS 8 FOR $20 

CORSAIR COMPUTER 

CORPORATION -200 

7952 Highway 80 West 

Fort Worth. TX 76116 

817-244-8051 



The string variable P$ moves the number to 
be drawn to one of four horizontal positions 
in the pair of two digit scores generated by 
the game. The Draw statement in the tens 
column can be skipped for single digit 
scores to avoid displays of 00 to 09. The 
scoreboard blanks before each set of 
numbers prints. 

After playing many games to check the 
program I added a method of switching con- 
trol from one joystick to the other. Key S 
transfers control to player two when player 
one cannot move. 

Playing the Game 

After the program is entered into the Col- 
or Computer, press Run to show the title 
page. Press the spacebar to turn the page 
for game instructions. Use the joysticks to 
move the cursor and use the joystick button 
to place the symbol on the game board. 
Symbols placed in illegal positions are de- 
leted immediately. Switch joystick control 
of the cursor from player to player by press- 
ing key S. 

Press the spacebar to clear the screen 
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and reveal the graphics page. At the end of 
a game press the spacebar to return to the 
instruction page. The flashing cursor disap- 
pears and a short delay occurs as the game 
array P(X,Y) is reset to zero before the in- 
struction page is shown. 

The graphics display initially shows the 
game grid and four starting symbols. The 
scoreboard indicates the correct score 
after the first move is made, and the bar 
graph to the left of the display is updated as 
the four starting symbols are set in place. 
The turn indicator at the top of the screen 
shows which player has the next turn with a 
filled or open circle. The open circle has the 
first move; the S key gives the first move to 
the closed circle. 

A typical game sequence is shown in Fig. 
5 from the four central pieces to approx- 
imately one-third the way through a game. 
Several basic strategies can win the game: 
Capturing corners is to your advantage and 
should remain your first priority. Placing 
symbols in the outer squares is advanta- 
geous; symbols placed in rows and col- 
umns adjacent to the outer squares is haz- 
ardous, but often unavoidable. ■ 

Reader Service lor lacing page s3 7 — 




THE 

SWITd 

SWITCH T0 57 8"D0UBLE DENSITY 

LMPotihtrr 5/8 



FEATURES 

• 5- and 8-inch* disk drives 

• Single- & double-density 

• Any size and density in any mix 

• Read Model I, II* and III disks 

• 5- or 8-inch* system disk 

• Single & double sided disk drives 

• DOS+ 3.3.9 included, with Disk 
BASIC. 

• 6 month warranty 

• Up to 3.75 megabytes online 

• Easy installation - plug-in & run 

• Analog phase lock loop data 
separation 

• Precision write precompensation 

• Regulated power supply 

• Guaranteed operation at 4MHz 

• All contacts gold plated 

• Solder masked & silk screened 

• Runs under DOS+ 3.3.9, TRSDOS 
2.3, NEWDOS 2.1, NEWDOS/80 
1.0, LDOS, NEWDOS/80 2.0, 
and ULTRADOS 

• Reads 40- and 35-track disks on 
80-track drives 

• FD1791 controller + your FD1771 

• Fits Model I expansion interfaces 

• Fits LNW expansion interfaces 

• Track configurations to 80-tracks 

• 5 inch disk storage increased to: 

161,280 bytes - 35-track SS/DD 
322,560 bytes - 35-track DS/DD 
184,320 bytes - 40-track SS/DD 
368,640 bytes - 40-track DS/DD 
368,640 bytes - 80-track SS/DD 
737,280 bytes - 80-track DS/DD 

• 8 inch disk storage increased to: 



591,360 bytes - 77-track SS/DD 
1,182,720 bytes - 77-track DS/DD 
SS: single-sided DS: double-sided 
SD: single-density DD: double-density 

COMPLETE - The LNDoubler 5/8, 
switches your Model I or LNW-80 
into the most versatile computer you 
can own. The LNDoubler's switch 
allows you to boot from 5- or 8-inch 
system disks, and it's accessible from 
outside the interface. The LNDoubler 
5/8 comes with a double-density disk 
operating system (DOS+ 3.3.9), 
complete with BASIC and utility 
programs . . . ready to run your 
software NOW! 

VERSATILE - Whether you want 
single-sided, double-sided, single- or 
double-density, 5- or 8-inch operation, 
complete versatility is here today! 
Any combination of 5- and 8-inch disk 
storage is possible with the 
LNDoubler 5/8. Each of your present 
40-track, single-sided 5-inch drives 
will store up to 184,320 bytes 
(formatted storage) - that's an 80% 
increase in storage capacity for only, 
half the cost of just one disk drive. 
With three 8-inch double-density, 
double-sided drives your Model I will 
have 3.75 Megabytes of online storage 
- that's more storage than a Model II 
or Model III! 

ADVANCED - The LNDoubler 5/8 
is the most technically advanced, 
tested and reliable double-density 



board you can buy. The LNDoubler 
5/8 has more features, more options 
and more software support than any 
other product of its kind. 

EASY TO INSTALL - The 

LNDoubler 5/8 is easy to install. 
There are no traces to cut, no wiring 
to do, just a screwdriver and a few 
minutes of your time is all that is 
required. The instructions are fully 
illustrated for all interfaces. In 
minutes you will be 'up-and-running', 
and enjoying your computer as never 
before. 

COMPARE - Compare features, 
compare quality, compare value, and 
make the SWITCH today! 
Immediate delivery from stock - at 
your dealer NOW for only 



219.95 



DEALERS - You too can 
make The Switch. 




UtfJfyRESEARCH CORPORA TION 



2620 WALNUT Tustin, CA. 92680 (714)544-5744 (714)641-8850 

•8" drive operation requires special cable, 8" double-density requires 3.55MHz CPU speed-up modification or LNW-80 4MHz computer. TRS-80 is a trademark of Tandy Corporation. 
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ucts 



For the TRS-80' 



Digital I/O Port 

+ teaching newsletter 

8 TTL outputs, 6 inputs, assembled & 
tested PC board; control the outside 
world from BASIC APIO-80b im- 
proved (specify Model t or 3) $67 
newsletter $2.50 



^^^fa ,ow co$t printout 

^| ^ "* ^ convert any ASCII or Baudot teletype 
t\ Y_5- ,0 a TRS-80 printer: no expansion 
C^5^^"^"^ interlace needed $62; optional loop 
supply $30; write for more info 



LIGH 



with sophisticated software 

add excitement to your software, LTPEN 80 adds 
four new functions to BASIC; in an instant, pick any 
(X,Y) point or character position on the screen 
simply by pointing the pen'; enhance games 



ices include postage 
mation 



call or write for more 



All products post paid w/m USA foreign orders remit 

U S funds plus extra postage Call or write today. 



SIeFtit 
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more info, call O 

/733-47E9 
electronic innovations 

Box 4034 LANCASTER PA 176M 



NEW PROGRAMS 
FOR THE TRS-80 

incopROP 

Income Property Analysis 
for the TRS-80 

INCOPROP: Based upon standardized methods 
of property analysis used throughout the real 
estate industry. Generates a 3 page report contain- 
ing an annual property operating statement and a 
comprehensive 10 year cash flow analysis. Con 
tains I.R.S. tax table to project after-tax income 
stream and investor's I.R.R. 

• Handles 5 different methods ol tax depreciation 

• Handles up to 3 loans S 3 different type loans 

• Highly interactive formal permits "Sensitivity Analysis". 

• Disk files created for permaneni storage ot data 
Minimum system requirements: 3?k RAM. 1 drive and 
printer Sold with informative 78 page user's manual cover 
ing basic aspects ol income property investment S 50 
data worksheets 



Model 1 * ill. on cassette for easy transfer 




10 disk 


.. . $120 00 


Model II on 8 inch diskette 


..$145.00 


'.' !•;■■ '.' '•■. 'i -l.-i ,i:.i- ii- :'■;>■■'■ < 




. running under CPJM 


. »165.00 



MAINDEX: An easy-to-use program to aid you in 
the indexing of your files on disk. Can't find that 
program you wrote last month? Put your computer 
to work! Find any program or data file in your sys- 
tem in seconds. 

• A Mam Index of all your other disks directories. 

• Alphabetizes list of files and gives you names, qrans 
used, dates written, tracks and file descriptions. 

• Sorts Files by name. disk, and categories 

• File descriptions can be searched for key words. 

• Prints disk labels with disk name and file names 

• Uses all the advanced and extremely fast file manipu- 
lation capabilities of Apparat. Inc s NEWDOS/80. 

Requires Level II. 48K. 1 disk drive and NEWDOS/80 On 
cassette? lor easy transfet to Oisk $20.95 



^177 



' 




DEPT EM, PO BOX 591.NOVATO, CA 94947 
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Program Listing 

10 N=0:CLS: CLEAR 250 

20 PRINT @ 0," ****OTHELLO****" 

30 PRINT @ 6 4," THIS GAME OF AUTHELLO REQUIRES APPROXIMATELY 8K OF ME 

MORY AND IS WRITTEN USING EXTENDED COLOR BASIC FOR THE RADIO 

SHACK COLOR COMPUTER. THE PROGRAM FEATURES AUTOMATIC SE 

ARCH AND FLIPPING ROUTINES," 
40 PRINT @ 28 8," A TURN INDICATOR, A BAR GRAPH SCORE DISPLAY AS WELL 

AS FULLY AUTOMATIC ALPHANUMERIC SCOREKEEPING" 
50 PRINT @ 448," PRESS SPACEBAR TO CONTINUE" 
60 U$=INKEY$:B5=" " 
70 IF U$=B$ THEN 90 
80 GOTO 20 
90 CLS 

100 DIM P(ll,ll) 

110 FOR 1=0 TO 11: FOR J=0 TO 11 
120 P(I,J)=0 
130 NEXT J:NEXT I 
140 CLS 



150 PRINT 
160 PRINT 

JOYSTICKS 
17 PRINT 
ILL BE 
180 PRINT 
190 PRINT 
BOARD" 
200 PRINT 



0," ****OTHELLO****" 

64, "1 SYMBOLS (FULL AND OPEN CIRCLES) ARE POSITIONED USING 

AND ARE SET USING THE JOYSTICK BUTTONS" 

192, "2 IF A SYMBOL IS SET IN THE WRONG POSITION IT W 

AUTOMATICALLY DELETED" 
288, "3 PRESS (S) TO SWITCH JOYSTICKS" 
3 20, "4 PRESS SPACEBAR AT END OF GAME TO RESET THE VIDEO 

PRESS SPACEBAR TO START *" 



416," 

210 U$=INKEY$:B$=" " 
220 IF U$=B$ THEN 240 
230 GOTO 150 

240 PMODE 4,1: SCREEN 1,0 
250 COLOR 3,2:PCLS 
260 FOR J=40 TO 250 STEP 21 
270 LINE(J,17) -(J, 187) ,PSET 
280 NEXT J 

290 FOR K=17 TO 187 STEP 17 
300 LINE(40,K)-(250,K) ,PSET 
310 NEXT K 

320 LINE(20, 27) -(20,187) ,PSET 
330 LINE(5,187)-(35,187) ,PSET 
340 FOR Y=187 TO 27 STEP-16 
350 LINE(19,Y)-(21,Y) ,PSET 
360 NEXT Y 

370 DRAW "BM117,4;D1;N;D6;F4;F1?D1;U7" 
380 DRAW "BM125,4;N;R5;D3;N;R4;D4;R5" 
390 D RA W " BM 1 3 3 , 4 ; D 1 ; F 5 ; D 1 ; B ; L 5 ; U 1 ; E 5 ; U 1 ; B ; D 7 " 
40 DRAW"BM141,4;R4;L2;D7;B;R3" 

41 DRAW"BM2 , 4 ; B ; Dl ; Dl ; Fl ; R3 ; Fl ; D2 ; Gl ; L3 ; HI ; B ; U5 ; El ; R3 ; Fl ; B ; D6 " 
420 DRAW"BM1 , 4 ; B ; Dl ? D5 ; Fl ; R3 ; El ; Ul ; B; U3 ; Ul ; Hi ; L3 ; Gl ; B; D6 ; B; R5 " 
43 DRAW"BM1 8 , 4 ; B; Dl ; D5 ; Fl ; R3 ; El ; U5 ; Hi ; L3 ; Gl ; B ; D6 ; B" 
440 DRAW"BM26 , 4 ; N; D7 ; R4 ; Fl ; Dl ; Gl ; N; L4 ; Fl ; D3 " 
450 DRAW"BM34 , 4 ; N; R5 ; D3 ; N; R4 ; D4 ; R5 " 
460 P(5,5)=1:CIRCLE(134,93) ,7,1 
470 C1=1:C2=0 
480 GOSUB 3070 
490 SOUND 200,1 

500 P(6,6)=1:CIRCLE(155,110) ,7,1 
510 C1=2:C2=0 
520 GOSUB 3070 
530 SOUND 200,1 

540 P(5,6)=2:CIRCLE(134,110) ,7,1 
550 C1=2:C2=1 
560 PAINT(134,110) ,1,1 
570 GOSUB 3140 
580 SOUND 200,1 

590 P(6,5)=2:CIRCLE(155,93) ,7,1 
600 C1=2:C2=2 
610 PAINT(155,93) ,1,1 
620 GOSUB 3140 
630 SOUND 200,1 

6 40 W=l 

650 REM *****KEYBOARD INPUT**** 
660 V1=INT( (JOYSTK(0)+4)/7) +1 
670 V2=INT((JOYSTK(l)+4)/7)+l 
680 V3=INT( (JOYSTK(2) +4)/7) +1 
690 V4=INT( (JOYSTK(3)+4)/7) +1 
700 ON W GOTO 710,730 
710 X=V1:Y=V2 
720 GOTO 740 

7 30 X=V3:Y=V4 
740 A=X*21+29 

LINE(A-4, 



750 



B=Y*17+8 

~3)-(A+4,B+3! 
760 FOR K=l TO 30 :NEXT K 
770 LINE(A-4,B-3)-(A+4,B+3) , PRESET, BF 



,PSET,BF 



Program continues 





Over 150,000 computer owners and novices attended the 1981 
National Computer Shows and Office Equipment Expositions, 
and more than a quarter of a million are expected to be at the 
1982 shows. 
Each show features hundreds of companies using thousands 
of square feet of display space to showcase and sell millions of dollars 
worth of micro and mini computers, data and word processing equipment, 
peripherals, accessories, supplies and software. 

Under one roof you'll see — and be able to buy — all of the hardware 
and software made by every major computer manufacturer for busi- 
ness, industry, government, education, home and personal use. 
The show includes computers costing as little as $100 to com- 
puters selling for $150,000. 

Don't miss the coming of the new computers — show up for 
the show. Admission is $5 per person and $3 for children. 






Ticket Information 

Send $5 with the name of the show you 
plan to attend to National Computer 
Shows, 824 Boyiston Street, Chestnut 
Hill, Mass. 02167. Tickets car, also be 

purchased a! the show 



Dallas 
Dallas Market Hall 

Thursday-Sunday 

April 15-18, 1982 

11 AM to 6 PM Daily 

DIRECTIONS: 

2200 STEMMONS FREEWAY 

(AT INDUSTRIAL BLVD) 



Uniondale, Long Island 
Nassau Coliseum 

Thursday-Sunday 
April 22-25, 1982 

11 AM to 6 PM Daily 

DIRECTIONS: TAKE L.I. EXPWY 

TO EXIT 38 NO. STATE PKWY 

TO EXIT 31 A MEADOWBROOK 

PKWY SO. TO EXIT M5 

HEMPSTEAD TURNPIKE 



Minneapolis 
Minn. Auditorium 
& Convention Hall 

Third Avenue 

Thursday-Sunday 

September 16-19, 1982 

11 AM to 6 PM Daily 

DIRECTIONS: HWY 94 to 
11th St. Exit to Third Ave 



Washington, DC 
DC Armory/Starplex 

Across from RFK Stadium 
Thursday-Sunday 
October 28-31, 1982 
11 AM to 6 PM Daily 

DIRECTIONS: 

2001 E. CAPITOL ST. SE 

(E. CAPITOL ST. EXIT OFF I -295 

— KENILWORTH FRWY) 



Chicago 

(Arlington Heights) 

Arlington Park Racetrack 

Exhibition Center 

Thursday-Sunday 

November 5-7, 1982 

11 AM to 6 PM Daily 

DIRECTIONS: EUCLID AVE & 

WILKE RD. TAKE NW TOLLWAY 

TO RTE 53 EXIT AT 

EUCLID AVE EAS I 



Boston 
Hynes Auditorium/ 
Prudential Center 

Thursday-Sunday 

November 11-14, 1982 

11 AM to 6 PM Daily 

DIRECTIONS: TAKE MASS 

PIKE TO PRUDENTIAL 

CENTER EXIT 



Atlanta 
Atlanta Civic Center 



Thursday-Sunday 
December 9-12, 1982 
11 AM to 6 PM Daily 

DIRECTIONS: 

395 PIEDMONT AVE NE 

(AT RALPH McGILL BLVD) 



The National Computer Shows are produced by Northeast Expositions Inc. who also produce Eiectronica - - shows featuring home entertainment equipment ana persona; 
electronics — which are held annually in major US cities. NEI also produces the Applefest Shows. For more information about any of these events call us at 617-739-2000 
or write to the above address. ^-500 



,'Sec List of Advertisers on page 402 



Microcomputing, March 1982 • 97 




Scriplus is a modification to Scripsit c which enables 
you to take advantage of the special functions, 
features, and print formats of your printer while your 
document is being printed. Allows you to: 



change expanded print 
change no. o-f characters per inch 
or underline in mid-line! 



1) Send commands to the printer to activate special 
formats' 

2) SCRIPLUS mil NOT crash programs protected in hi-mem! 

3) 'END' returns to DOS READY instead of re-booting! 

4) Initial line feed is changed to a carriage return to 
eipty text buffer' 

5) The use gets an ALPHABETIZED Directory (with FREE 
space shown) fro* within SCRIPLUS! 

b) Optionally select line feed after carriage return 

7) Supports custom printer drivers (NOT included) 

8) Modifies ALL versions of SCRIPSIT(ta) for Hod I or 
III- Allows you to use Hod I version on Hod III! 

9) Printer can be STOPPED for insertion of text or forms 
alignaent ' 

10) Inserted text can be edited prior to resumption of 
printing! 

11) Files can be killed, loaded, merged, or chained 
the SCRIPLUS DIRectory ' 

12) Allows Hod III versions to be BACKED UP for 
protection 1 

13) Works on ALL current major DOS's (Hod I or III) 

14) Horks with new 3.2 Hod III Scripsit on 1.3 DOS! 

15) Specifically written for the HX-80, but will 
with ANY printer that accepts CHR$ codes for control 1 

16) Previous owners may send in their disks for upgrade 
($15) 



$39.95 



from 



your 



work 




tPSuN s: with 



without GRATRAX-B0(tm) 



WMBCIIMIIimi 



»■■■ emmt HMHHIIHIiiUMil — ■■■ 



,-6! 
!■■■■■■ 



11500 Stemmons Expressway - Dallas, Texas 75229 



H7C-VISAI (214)484-2976 - HicroNet* 70130,203 
CARDS :■: Join OUR Xtra-80 Sig ON HicroNet 
Accepted! ' rroa tne "OK" prompt, type: R BSD 



Write for 
our FREE 

Catalog! 



DEALER INQUIRIES INVITEE 



Tfs/l'ftNAUA Urders 

See us at NCC in Dallas' April 21-25 
PowerSoft is a division of Breeze/8SD, Inc. 
SCRIPSIT is a registered TM of TANDY CORP. 




aSTHT 
FUNDS ONLY 
for shipping. 
CHECKS! 



Program continued 



780 IF P(X,Y)=0 THEN 820 

790 CIRCLE(A,B) ,7,1 

800 IF P(X,Y)=1 THEN 820 

810 PAINT(A,B) ,1,1 

820 A$=INKEY$ 

830 Z=PEEK(65280) 

840 ON W GOTO 850,880 

850 IF Z=254 THEN 1070 

860 IF Z=126 THEN 1070 

870 GOTO 90 



880 


IF Z=253 THEN 


1150 


890 


IF Z=125 THEN 


1150 


900 


S$="S" 




910 


B$=" n 




920 


IF A$=S$ THEN 


1000 


930 


IF A$=B$ THEN 


110 


940 


ON W GOTO 9 50 


,980 


950 


PAINT(160,8) , 


0,0 


960 


CIRCLE (160, 8) 


,6,1 


970 


GOTO 9 90 




980 


PAINT(160,8) , 


1,1 


990 


GOTO 660 




1000 REM**SWITCH 


JOYSTICKS*** 


1010 ON W GOTO 1020,1040 


1020 W=2 




1030 GOTO 1050 




1040 W=l 




1050 GOTO 660 





1060 REM**WRITE OPEN CIRCLE** 

1070 IF P(X,Y)=1 OR P(X,Y)=2 THEN 660 

1080 P(X,Y)=1 

1090 LINE(J,K)-(J+16,K+13) , PRESET, BF 

1100 CIRCLE(A,B) ,7,3 

1110 C1=C1+1:G0SUB 3070 

1120 W=2 

1130 GOTO 1210 

1140 REM**WRITE FULL CIRCLE*** 

1150 IF P(X,Y)=1 OR P(X,Y)=2 THEN 660 

1160 P(X,Y)=2 

1170 CIRCLE(A,B) ,7,3 

1180 PAINT(A,B) ,3,3 

1190 W=1:C2=C2+1: GOSUB 3140 

1200 REM***AUTOSEARCH LEFT X*** 

1210 F=P(X,Y) 

1220 N8=0 

1230 X1=X 

1240 FOR I=X1-1 TO STEP -1 

1250 M=I+1 

1260 IF P(I,Y)=0 THEN N8=N8+1 

1270 IF P(I,Y)=0 THEN 1370 

1280 IF P(I,Y)=F THEN 1300 

1290 NEXT I 

1300 IF M=X1 THEN N8=N8+1 

1310 IF M=X1 THEN 1370 

1320 FOR X=M TO Xl-1 

1330 P(X,Y)=F 

1340 A=X*21+29 

1350 ON F GOSUB 2710,2800 

1360 NEXT X 

1370 X=X1 

1380 REM***AUTOSEARCH RIGHT X*** 

1390 FOR I=X1+1 TO 11 

1400 M-I-l 

1410 IF P(I,Y)=0 THEN N8=N8+1 

1420 IF P(I,Y)=0 THEN 1520 

1430 IF P(I,Y)=F THEN 1450 

1440 NEXT I 

1450 IF M=X1 THEN N8=N8+1 

1460 IF M=X1 THEN 1520 

1470 FOR X=X1+1 TO M 

1480 P(X,Y)=F 

1490 A=X*21+29 

1500 ON F GOSUB 2710,2800 

1510 NEXT X 

1520 X=X1 

1530 REM***AUTOSEARCH UPPER Y*** 

1540 Y1=Y 

1550 FOR I=Y1-1 TO STEP -1 

1560 M=I+1 

1570 IF P(X,I)=0 THEN N8=N8+1 

1580 IF P(X,I)=0 THEN 1690 

1590 IF P(X,I)=F THEN 1610 

1600 NEXT I 

1610 IF M=Y1 THEN N8=N8+1 

1620 IF M=Y1 THEN 1690 

163 FOR Y=M TO Yl-1 

1640 P(X,Y)=F 

Program continues 
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is pleased to announce the addition of new adventures ftom|||~/ r f - tjCfcO] 

THE PROGRAMMER'S GUILD! 








! 6 I 
it 



•'V- 



GAUNTLET OF DEATH 

Cat. No. 3497 16K, L2, MI&III, cass 

MAZE Of DARKNESS 

Cat. No. 3498 16K, L2, MI&III, cass 

TRAMPMAZE DUALOGY: 

GAUNTLET OF DEATH & MA ZE OF DARKNESS 



Cat. No, 3499 

TIMEOUEST 

Cat. No. 3500 

TIMEOUEST 

Cat. No. 3501 

TIMEOUEST 

Cat. No. 3502 16K, L2, MI&III, cass 

TEMfLEQfTHESVN 

Cat. No. 3503 16K, L2, MI&III, cass 



32K, L2, MI&III, disk 

32K, L2, MI, disk (converts to Mill) 

32K, L2, Mill, disk (preconvertcd) 



$19.95 
$19.95 

$29.95 
$24.95 
$24.95 
$19.95 
$19.95 



TEMPLE OF THE SUN $24.95 

Cat. No. 3504 32K, L2, MI&III, disk 

DOMES OF KILGAR1 $1995 

Cat. No. 3505 15K, L2, MI&III, cass 

DOMES OF KILGARI $24.95 

Cat. No. 3506 32K, L2, MI&III, disk 

DEADLY DUNGEON $i 4 . 9 5 

Cat. No. 3507 16K, L2, MI&III, cass 

DEADLY DUNGEON $19.95 

Cat. No. 3508 32K, L2, MI&III, disk 

DREADNAUGHT CHRONICLES 

DEATH DREADNAUGHT & DOMES OF 

KILGARI $29.95 

Cat. No. 3509 32K, L2, MI&III, disk 

GRAYLOCK CHRONICLES TRILOGY 

SPIDER MOUNTAIN, DEADLY DUNGEON, & 

DRAGONQUEST $35.00 

Cat. No. 3510 32K, L2, MI&III, disk 

TOWER OF FEAR $19.95 

Cat. No. 3511 16K, L2, MI&III, cass 

TOWER OF FEAR $24.95 

Cat. No. 3512 32K, L2, MI&III, disk 

* ATTENTION COLOR COMPUTER OWNERS -¥• 

TQWfiRQFfEAR $19.95 

Cat. No. 3513 16K, Extended BASIC, cass 



DEALERS: CALL FOR PRICING ON ALL PROGRAMMER'S GUILD SOFTWARE 



The Captain 80 Book of 
BASIC ADVENTURES 

The ideal book tor adventurers, THE CAPTAIN 80 BOOK OF 
BASIC ADVENTURES introduces programmers to the world of 
computer-based "dungeons and dragons". Concepts of adventure 
programs are discussed as well as the process involved in writing your 
own adventure program. An adventure-generating program is includ- 
ed along with listings for eighteen adventures written by some of the 
"greats". 
Cat. No . 3496 $19.95 

HAYES STACK SMARTMODEM 

The Hayes Stack SMARTMODEM is a high performance 300 baud 
communication system for your TRS-80 microcomputer (all models). 
With the SMARTMODEM, your TRS-80 can communicate with other 
TRS-80's or time-share computers. Unlike most modems, the 
SMARTMODEM can be connected to any telephone system in the 
United States since dialing can be Touch-Tone, pulse, or a combina- 
tion of the two. Features such as auto-answer, auto-dial, complete 
programmability, and full or half duplex operation make the 
SMARTMODEM the most sophisticated yet cost-effective data 
communications package available. 

NOTE: Requires RS232 port. ^ 

Cat. No. 3388 Jprfm 

$259.00 



VERBATIM 
DATALIFE DISKETTES 

The ideal diskette for vour TRS-80 
at a great price. With no shipping 
charges to bother with, you just 
can't lose. 



Cat. No. 1147 



$28.00 



TRS-80 SERVICE MANUALS 

TRS-80 COLOR COMPUTER 
Manual #26-300 1/3002MU 
Cat. No. 3478 
TRS-8,0 MQPEL III 

Manual #26-1063MU 
Cat. No. 3479 
TRS-80 MODEL II 
Manual #26-4002MU 
Cat. No. 3482 



HOW TO ORDER 

Write or phone Pay by check, M/C. VISA, or COD (add $1.50 for COD). 

(800) 423-5387 (213) 886-9200 

Offer expires Mar. 31, 1982 

Mention this ad and we pay shipping (UPS ground only). 

HW Electronics 

19511 Business Center Dr. Dept. V3 Northridge. (A 91324 




WHEN IN SOUTHERN CALIFORNIA, 



>TIR 



AIL 



m 




19511 Business Center Dr. 
Northridge, CA 91324 



2301 Artesia Blvd. 
Redondo Beach, CA 90277 





SIGMON 



SIGMON is a complete machine Lansuage develop- 
ment tool for your TRS-80 Color Computer and it's 
super powered 6809E microprocessor. 

Features: 

MONITOR: Display memory in HEX and ASCII, Direct HEX and 
Decimal entry into memory/ registers, Move, Find, Tape Read and 
Write, Output to printer and more. 

DISASSEMBLER: Display Addresses, Opcode operand, 
Mnemonics, and Address expressions for specific range of 
instructions. 

MINI ASSEMBLER: Allows you to enter instructions in Symbolic 
form and have them converted to Machine Language. 

DEBUGGER: Allows Stepping and Break point execution of 
Machine Language programs. 

With SIGMON you can awaken the awesome powers that lurk 

within the dark recesses of your color computer. 

Cassette and Source Code 

for the TRS-80 Color Computer $29.95 



S.Ej 

(Screen Edit Control System) 






SECS adds new power to your TRS-80 Color 
Computer. If you have been waiting for Enhanced 
BASIC and it's capabilities, then you are ready to take 
the next logical step. 

Features: 

FULL SCREEN EDITOR: Full Cursor control with auto repeat, 
Insert, Delete, Join lines, Relocate lines and Audible error warning. 

HI RES GRAPHICS: Two modes of Hi Res graphics, Set point, 
Set line, Set color, Set programmable character, Set screen, and 
Toggle between Low Res and Hi Res/Normal and Inverted 
Screens. 

HI RES CHARACTER GENERATOR: Sixty-four definable charac- 
ters, Save and Load Characters sets to and from tape, Define 
Characters, and Place on screen in any color and in any position. 

The entire system is linked into BASIC and is completely 

transparent to the user. As a BASIC programming tool, SECS is 

unsurpassed. 

Cassette for the TRS-80 Color Computer $29.95 



Software 
TRS-80* Color 



Order through your local software dealer or send check or 
money order plus $2.00 shipping & Handling to: 




• 110 



COMPUTER SOFTWARE 
19519 Business Center Drive, Northridge, CA 91324 
(213)701-5161 

•TRS-80 is a registered trademark of Radio Shack, a division of Tandy Corporation 



Program continued 




1650 A=X*21+29 




1660 B=Y*17+8 




1670 ON F GOSUB 2710,2800 




16 80 NEXT Y 




1690 Y=Y1 




1700 REM***AUTOSEARCH LOWER Y*** 


1710 Y1=Y 




1720 FOR I=Y1+1 TO 11 




1730 M=I-1 




1740 IF P(X,I)=0 THEN N8=N8+1 




1750 IF P(X,I)=0 THEN 1860 




1760 IF P(X r I)=F THEN 1780 




1770 NEXT I 




17 80 IF M=Y1 THEN N8=N8+1 




1790 IF M=Y1 THEN 1860 




180 FOR Y=Y1+1 TO M 




1810 P(X,Y)=F 




1820 A=X*21+29 




1830 B=Y*17+8 




1840 ON F GOSUB 2710,2800 




185 NEXT Y 




1860 Y=Y1 




1870 REM* *AUTOSE ARCH NW DIAG*** 


1880 X1=X:Y1=Y 




1890 FOR I=X1-1 TO STEP -1 




1900 M=I+1 




1910 IF P(I,Y1-(X1-I) )=0 THEN 


N8=N8+1 


1920 IF P(I,Y1-(X1-I) )=0 THEN 


2030 


1930 IF P(I,Y1-(X1-I) )=F THEN 


1950 


1940 NEXT I 




1950 IF M=X1 THEN N8=N8+1 




1960 IF M=X1 THEN 2030 




1970 FOR X=M TO Xl-1 




1980 P(X,Y-(X1-X) ) =F 




1990 A=X*21+29 




2000 B=(Y-(Xl-X))*17+8 




2010 ON F GOSUB 2710,2800 




2020 NEXT X 




2030 X=X1:Y=Y1 




2040 REM**AUTOSEARCH SE DIAG*** 


2050 X1=X:Y1=Y 




2060 FOR I=X1+1 TO 11 




2070 M=I-1 




2080 IF P(I,Y1+(I-X1) )=0 THEN 


N8=N8+1 


2090 IF P(I,Y1+(I-X1) )=0 THEN 


2200 


2100 IF P(I,Y1+(I-X1) )=F THEN 


2120 


2110 NEXT I 




2120 IF M=X1 THEN N8=N8+1 




2130 IF M=X1 THEN 2200 




2140 FOR X=X1+1 TO M 




2150 P(X,Y+(X-X1) ) =F 




2160 A=X*21+29 




2170 B=(Y+(X-X1) )*17+8 




2180 ON F GOSUB 2710,2800 




2190 NEXT X 




2200 X=X1:Y=Y1 




2210 REM **AUTOSE ARCH SW DIAG*** 


2220 X1=X:Y1=Y 




2230 FOR I=X1-1 TO STEP -1 




2240 M=I+1 




2250 IF P(I,Y1+(X1-I) )=0 THEN 


N8=N8+1 


2260 IF P(I,Y1+(X1-I) )=0 THEN 


2370 


2270 IF P(I,Y1+(X1-I) )=F THEN 


2290 


2280 NEXT I 




2290 IF M=X1 THEN N8=N8+1 




23 00 IF M=X1 THEN 2370 




2310 FOR X=M TO Xl-1 




2320 P(X,Y+(X1-X) )=F 




2330 A=X*21+29 




2340 B=(Y+(X1-X) )*17+8 




2350 ON F GOSUB 2710,2800 




2360 NEXT X 




2370 X=X1:Y=Y1 




2380 REM**AUTOSEARCH NE DIAG*** 


2390 X1=X:Y1=Y 




2400 FOR I=X1+1 TO 11 




2410 M=I-1 




2420 IF P(I,Y1-(I-X1))=0 THEN 


N8=N8+1 


2430 IF P(I,Y1-(I-X1))=0 THEN 


2540 


2440 IF P(I,Y1-(I-X1))=F THEN 


2460 


2450 NEXT I 




2460 IF M=X1 THEN N8=N8+1 




2470 IF M=X1 THEN 2540 




2480 FOR X=X1+1 TO M 




2490 P(X,Y-(X-X1) )=F 




2500 A=X*21+29 




2510 B=(Y-(X-Xl))*17+8 






Program continues 
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Program continued 



2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
26 80 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 



ON F GOSUB 2710,280 

NEXT X 

X=X1:Y=Y1 

IF N8=8 GOSUB 2890 

REM**SCORE DISPLAY** 

LINE(0,15)-(39,25) , PRESET, BF 

N1=INT(C1/10) :P$=STR$(2) 

IF N1=0 THEN 2610 

GOSUB 3220 

N1=C1-10*N1:P$=STR$(10) 

GOSUB 3220 

N1=INT(C2/10) :P$=STR$(23) 

IF N1=0 THEN 2660 

GOSUB 3220 

N1=C2-10*N1:P$=STR$(31) 

GOSUB 3220 

GOTO 6 60 

REM**GRAPHICS SUBROUTINES** 

REM***OPEN CIRCLE*** 

LINE(A-8,B-6)-(A+8,B+7) , PRESET, BF 

CIRCLE(A,B) ,7,1 

SOUND 200,1 

C1=C1+1 

GOSUB 3070 

C2=C2-1 

GOSUB 3110 

RETURN 

REM***FULL CIRCLE*** 

CIRCLE(A,B) ,7,1 

PAINT(A,B) ,1,1 

SOUND 200,1 

C2=C2+1 

GOSUB 3140 

C1=C1-1 

GOSUB 3170 

RETURN 

REM***SYMBOL DESTRUCT*** 

FOR I =1 TO 12 

A=X*21+29 

B=Y*17+8 

LINE(A-8,B-6)-(A+8,B+7) , PRESET, BF 

SOUND 240+1,1 

LINE(A-6+I/2,B-6+I/2)-(A+6-I/2,B+6-I/2) ,PSET,BF 

NEXT I 

LINE(A-8,B-6)-(A+8,B+7) , PRESET, BF 

P(X,Y)=0 

ON F GOTO 2990,3010 

Cl=Cl-l:GOSUB 3170 

GOTO 3020 

C2=C2-l:GOSUB 3110 

ON W GOTO 3030,3040 

W=2:GOTO 3050 

W=l:GOTO 3050 

RETURN 

REM*****BAR GRAPHS***** 

K1=187-1.6*C1:K2=187-1.6*(C1-1) 

LINE(6,K1)-(15,K2) ,PSET,B 

LINE(7,K2)-(14,K2) , PRESET 

RETURN 

M1=187-1.6*C2:M2=187-1.6*(C2+1) 

LINE(25,M2)-(34,M1) , PRESET, BF 

RETURN 

M1=187-1.6*C2:M2=187-1.6*(C2-1) 

LINE(25,M1)-(34,M2) ,PSET,BF 

RETURN 

K1=187-1.6*C1:K2=187-1.6*(C1+1) 

LINE(6,K1)-(15,K2) , PRESET, B 

LINE(6,K1)-(15,K1) ,PSET 

RETURN 

REM**VIDEO SCOREBOARD*** 

N2=N1+1 

ON N2 GOSUB 3250,3260,3270,3280,3290,3300,3310,3320,3330,3340 

RETURN 

; Dl ; El ; R3 ; Fl ; D5 ; Gl ; L3 ; HI ; U5 " : RETURN 

; R2 ; B ; Dl ; El ; D7 ; Ll ; R2 " : RETURN 

; Dl ; El ; R3 ; Fl ; Dl ; G5 ; R5 " : RETURN 

; Dl ; El ; R3 ; Fl ; Dl ; Gl ; L2 ; R2 ; Fl ; D2 ; Gl ; L3 ; HI " : RETURN 



DRAW"BM"+P$+",16;Bj 
DRAW"BM"+P$+",16;B; 
DRAW"BM"+P$+" ,16;Bj 
DRAW"BM"+P$+",16;Bj 



3290 DRAW"BM"+P$+", 16 ;D4;R5;L2;U2;D5": RETURN 

3300 DRAW"BM"+P$+" ,16 ;N;R5;D3 ;R4;Fl ;D2;G1 ;L3; Hi" :RETURN 

3310 DRAWBM" +P $+" , 1 6 ; B ; Dl ; D3 ; El ; R3 ; Fl ; D2 ; Gl ; L3 ; HI ; U5 ; El ; R3 ; Fl " : RETURN 

3320 DRAW"BM"+P$+", 16; ;R5;G1 ;D1;G1;D1;G1;D1;G1" : RETURN 

3330 DRAW"BM"+P$+",16;B;R1;R3;F1;D1;G1;L3;G1;D2;F1;R3;E1;U2;H1;L3;H1;U 

1; El": RETURN 

3340 DRAW n BM"+P$+",16;B;D6;Fl;R3;El;U5;Hl;L3;Gl;Dl;Fl;R4":RETURN 

3350 RETURN 

3360 END 



The Captain 80 Book of 

BASIC 

ADVENTURES 

EIGHTEEN ADVENTURES: 

□ Atlantean Odyssey 

□ Dog Star 

□ Thunder Road 

□ Deadly Dungeon 

□ Revenge of Balrog 

□ The Fortress at Times-End 
G Temple of the Sun 

□ Lost Ship 

□ Spider Mountain 

□ Lost Dutchman's Gold 

□ Journey to the Center of the 

Earth 

□ King Tut's Tomb 

□ Voyage to Atlantis 

□ House of Seven Gables 
D Sorcerer's Castle 

□ CIA Adventure 

□ Arctic Adventure 

□ Adventureland 

All these program listings plus 
an Adventure Generator not 
available from any other 
source! 

$19.95* 

Although all programs are 
written for TRS-80 Model I & 
III, these programs will easily 
convert to any other machine 
using Microsoft" BASIC. /: 





Send to : 

80 Northwest Publishing 

3838 South Warner St. 

Tacoma, WA 98409 

(206) 475-2219 



Name — 
Address 
City 



State, Zip 

Visa/MC 

Exp. Date 

*Please add $2.05 for 
Shipping and Handling. 

^329 
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HARDWARE 



Back your way from 4K to 16K. 




Brian Murphy 

41 Chestnut Street 

Hopkinton, MA 01748 



Want to add 16K to your Color Comput- 
er? Does the chance to do Radio 
Shack out of 100 bucks appeal to your 
perverse nature too? 

I found out early with my Color Computer 



that the 4K limit was unacceptable. I need- 
ed 16K, if for no other reason, to get the high 
resolution graphics the system offers. Hav- 
ing upgraded a Model I Level II from 4K to 
16K, I suspected that with the same effort I 
could do it to the Color Computer. I was 
wrong. It was easier! 

Tools You Need 

To upgrade the Color Computer you need 



POWER 
CORD 



SCREW 
HOLE 



/ 



N 



WARRANTY 
LABEL 



^ 



<f 



SCREW 
HOLE 



Fig. 1. Bottom View of Color Computer 
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three tools: a Phillips screwdriver, a small 
regular screwdriver (or chip puller), and 
needle nose pliers (or sturdy tweezers). You 
also need a new chip set: eight 16K by one- 
bit dynamic RAM memory chips— 4116, 
416, MM5290N or UPD416. These memory 
chips are all the same, just made by dif- 
ferent manufacturers. 

The best price I've seen is$16. 00 for eight 
from Hanley Engineering. (By the way, 
some ads offer these kits with TRS-80 
jumpers for an additional charge. Don't 
bother buying the jumpers. They are for the 
Model I and are not necessary for the Color 
Computer.) 

Of course, you can have Radio Shack up- 
grade your Computer, but it will cost you 
$120. What's the advantage of having them 
do it? I don't want to mislead you. Once you 
open your computer, your warranty will be 
voided. (If you have owned a Color Computer 
for more than 90 days, however, it has ex- 
pired in any case.) 

The decision is up to you. If you have con- 
fidence in your ability, proceed. 

After disconnecting any cables (cas- 
sette, video, joystick) from the computer 
and unplugging it, turn the computer upside 
down on a folded towel to protect the case 
from scratches. Using the Phillips, remove 
all the screws holding the case together. 

Point A in Fig. 1 is not ascrew hole, and, if 
you probe a screw driver deeply into it, you 
can damage the internal cable. Point B is a 
screw hole covered by the warranty warning 
sticker. That's how Radio Shack knows if 
you've been inside. Holes C and D on my 



If you liked MICROPROOF, then you'll love SON OF MICROPROOF: 




T.M. 



The ultimate spelling checker. 



IMPROVED: 



One step proofing and correcting. 

Lists errors to screen or printer. 

Can display errors in context. 

Can display dictionary to locate correct spellings. 

New precise symbolic dictionary will not miss an error. 

Remarkably compact (50,000 word dictionary will fit on 

one 5 inch disk). 

Even FASTER than MICROPROOF (formerly The fastest 

available). 

Simple Grammatical Checking (Optional Feature). 

Hyphenates automatically (Optional Feature available for 

some Word Processing programs). 



SELECT APPROPRIATE RFSPONSE 

CORRECT MISSPELLED WORD: 
LEAVE WORD "AS IS": 

DISPLAY WORD IN CONTEXT 
DISPI AY DICTIONARY 
ADD WORD 10 DICTIONARY 
EXIT; 



ENTER CORRECT WORD 

HIT <ENTER> KEY 

? 



WORD. 
RESPONSE; 



(Your error) 



EASY TO USE: Prepare your text on any Z 80 based micro- 
computer, using any of a number of popular word process 
ing programs. When you are finished, enter the appropriate 
command, and ELECTRIC WEBSTER proofreads your 
document, displaying misspellings and typos on the screen. 
Then correcting ELECTRIC WEBSTER can display each 
error separately, requesting you to enter the correct 
spelling for each. You are also given the option of displaying 
errors in context or adding words to ELECTRIC WEB- 
STER'S 50,000 word vocabulary. If you do not know the 
correct spelling you may also ask ELECTRIC WEBSTER to 
look it up for you and display the dictionary. Finally, 
ELECTRIC WEBSTER corrects your document. All in less 
than a minute. 

LOW PRICES: Standard MICROPROOF is available for 
$69.50 (TRS-80). Standard ELECTRIC WEBSTER is avail 
able for either $89.50 (TRS-8(f Model I or III. Applet or 
$149.50 (CP/M? TRS-80 Model II and all others). The op- 
tional correcting feature can be added at any time for an 
additional $60. Correction feature can be ordered with 
patch to integrate with your word processing software. For 
each patch, optional Grammatical Checking feature, or 
optional Hyphenation feature, add $35. (Integration patch 
not necessary for Wordstar. ™) 



SPEED is the single most important factor in a dictionary 
program. All dictionary programs will find your potential 
errors but if the program is too slow, you are not likely to use 
it. ELECTRIC WEBSTER'S speed is outstanding. It can 
proofread a. several page letter in 20 seconds. 

ELECTRIC WEBSTER'S FULL 50,000 WORD VOCAB- 
ULARY saves you time and allows you greater confidence 
in the lists of potential, errors that ELECTRIC WEBSTER 
identifies. The mini- dictionary programs, with their 10,000 
and 20,000 word vocabularies, have many correctly spelled 
words omitted from their vocabularies. Consequently, they 
identify as potential "errors" many words that are actually 
spelled correctly: five to ten times as many such words as 
does ELECTRIC WEBSTER. So. when you use ELECTRIC 
WEBSTER, you will have far fewer extra words to evaluate, 
a major time savings. There will be less need to look up 
words in order to verify that they are in fact spelled correct- 
ly. The extra 30.000 words in ELECTRIC WEBSTER 's 
vocabulary assures you confidence in the error lists that 
Electric Webster generates. 

HERE'S WHAT THE REVIEWERS HAVE TO SAY 
ABOUT MICROPROOF: 

'1 have already found that the use ©f (MICROPROOF) has 
greatly enhanced the quality of my letters and reports. This is a 
very useful product and should be obtained by anyone who 
us>es a word processor.'* 

Michael Tannenbaum, CPA ; 

80 Microcomputing, August 1981 

"The summary review of this program? One word Excellent. 
I highly recommend it for anyone using a word processor for 
any need articles, manuals, reports, and even letters of 
substantial length." 

A. A. Wicks - Program Previews 

Computronics, September 198,1 

In a comparative review of proofreading programs (with small- 
er dictionaries), MICROPROOF was found to be considerably 
faster than all the others, when tested against a 400 word 
sample document. 

Phillip Lemmons 

BYTE Magazine, November 1981 

"(MICROPROOF) operates with good speed and efficiency. A 

1500 word document took 26 seconds to load, process, and 

proof when the program was run on a TRS-8(fModel II under 

CP/M."® 

"Once the program is integrated, it is very friendly and any 

person able to use a word processing program can master it in 

moments."* 

Frank Derfler 

Info World, January 1982 







See. your local microcomputer dealer or write to: 



CORNUCOPIA SOFTWARE 



^45 



Post Office Box 5028, Walnut Creek, California 94596 • (415) 524- 
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"If the dog begins moaning 
in the corner. . . don't panic!" 



unit have no screws. 

After the screws are out, turn the com- 
puter upright again, and lift off the top of 
the case. Lay the top aside, and you are 
faced with something that looks roughly 
like Fig. 2. The metal cover on the right side 
of the computer (keyboard toward you) is to 
cut down RFI (radio frequency interference) 
in compliance with FCC regulations. My 
shield had some pieces of shipping tape 
around the edges. If yours does also, 
remove the strips and put them aside. 

Removing the Chips 

Next, using that small screw driver, go 
around the top edge of the metal box, prying 
it up until you can lift it off. Inside the metal 
walls you'll find, something like Fig. 3. 

First, using tweezers or needle nose 
pliers, remove the plastic jumpers located 
at points A and B in Fig. 3, and replace them 
in the 16K position (Fig. 4). The computer 
now thinks it has a 16K memory! Next, 
locate the eight memory chips (Fig. 3). 

Before you remove the chips, notice that 
each has a notch on the end away from you. 
This orientation is important. The printed 
circuit board beneath the chips' sockets is 
marked similarly. Observe this orientation 
when you install your new chips. 

The memory chip sockets are quite tight, 
so exercise caution in order'not to damage 
anything. If you don't have a chip puller, use 
the small screw driver as I did. Work at one 
end of the chip, then the other, gently prying 
it up out of the socket. Take your time and 
go easy. 

As you remove each chip, place it on the 
metal box lid, pins down, to protect it from 
possible static electricity. After all the 
memory chips are removed, carefully insert 
the new 16K memory chips. Handle them by 
the ends to avoid touching the pins and in- 
sert them making sure the marked end 
faces away from the keyboard, toward the 
rear of the computer. Carefully seat the 
chips in the sockets. When all eight are 
finished, you have a 16K computer. 

Can't wait to see if it works, can you? 

Replace the metal lid and tape strips. 
Make sure the keyboard is seated properly 
before replacing the top of the computer. 
You may want to test the system, as I did, 
before you screw the case down. If you have 
a game cartridge, running it will inspire con- 
fidence in your new system. 

Without a cartridge, type in ?MEM. You 
should be rewarded with the response 
14631. That's the total memory now avail- 
able in Basic. (It's not 16385, because the 
system itself uses some space.) If your test 
runs smoothly, congratulations! Justscrew 
the computer back together and go on to 
the next article. 

If, however, when you turn on the power, 
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the dog begins moaning in the corner and 
your children are cowering wth their hands 
over their ears, don't panic! Either one or 
more of the new 4116 chips is defective, in 
which case you send them back and re- 
quest new ones, or one or more of the chips 
is not properly in its socket. To check out 
the latter possibility remove the metal lid 
and make sure the 4116s are properly 
oriented and firmly seated. (If you fouled up 
the placement, you probably destroyed the 



chip. Too bad— be more careful next time.) 
The other possibility is a bent pin under 
one of the 4116s. Before you remove the 
chips visually check them. If the inspection 
does not turn up the culprit, remove each 
chip carefully and check for bent pins. If all 
the chips have straight pins, then the prob- 
lem is with the chips themselves. 

Place the original 4K memory chips back 
in the sockets, observing the proper orienta- 
tion; move those two jumpers back to the 
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Fig. 2. Inside the Color Computer 
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Fig. 3. Color Computer Exposed 



4K position and close up the computer. 
Package the 4116s and return them with a 
request for replacement. 

Handling Memory Chips 

Memory chips are manufactured using 
metal oxide semiconductor (MOS) technol- 
ogy. While most new chips are protected 
against damage by static discharge, it is 
still wise to exercise caution when handling 
such devices. Common sense dictates that 
you don't shuffle across a rug in the dead of 
winter before handling MQS devices, or rub 
a cat on your lap while doing the project. 

I like to place the chips on a conducting 
surface (the metal box lid) while working, 
and to touch the lid before taking the chip 
from it. It doesn't hurt to handle the chips 
from the end to avoid contact with the pins. 

One last suggestion: You may find the 
two rows of pins on the chip are too wide- 
ly spaced to fit into the sockets. I sug- 
gest using needle nose pliers to grasp the 
whole row (eight pins) at once, and gently 
twist them toward the center of the chip to 
form a 90 degree angle. Do this to both rows 
of pins.B 



"Common sense dictates that you don't 
shuffle across a rug. . . or rub a cat. . . " 
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THE PRINTED CIRCUIT 
BOARD 



Fig. 4. 4K/16K Jumper Orientation Before and After Repositioning 




TRADEMARKS: 

TRS-80 and TRSDOS/Radio Shack/Tandy Corp 
LDOS/logkal Systems Inc 
Kit Ill/Morgan Products Inc 




Limited Supply Now Available 
For The Low-Low Price Of $1895. 00 

Includes all the standard basic features of the TRS-80" 
Model 111 with 48K of RAM and disk expansion Kit III™ 

with two 40 track double density disk drives. 

Also available — TRS-80" Model III same as above with 
two 80 track disk drives for only s 2145. 00 

If You Own A 16K Model III. 

You can easily expand your capabilities with our low 
cost disk expansion Kit III™ 

Completely compatible with TRSDOS™ and LDOS,™ the 
Kit III™ single drive assembly includes: One 40 track 

51/4" double density disk drive, power supply, floppy 
disk control caul, mounting hardware, applicable 

ftNIY &^QQ 00 

instructions. vilbl N* <*9 J J • 
Also available — Kit III™ same as above with 
one 80 track disk drive for only »724. 00 
LDOS™ disk operating system *99. 95 
Printers available . . . call for more information. 



ZJUl\ 

MORGAN 



Call TOLL FREE (800)851-4614 

In Illinois Call (618) 233-0018 

We accept: Visa. Master C hatye. Certified Checks (Cersonai checks 
ks clearance). Mone\ Orders, and CO D 



regime Ihr 



orporatea 104 Berkshire Drive Belleville. Illinois 62223 
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GAME 



Learn graphics and have fun with your Color Computer. 



Subchaser! 



John Steiner 

508 Fourth Avenue NW 

Riverside, ND 58078 



The TRS-80 Color Computer 
uses one of the most power- 
ful microprocessors available, 
and its Extended Color Basic is 
excellent for graphics displays. I 
will explain, using Subchase (an 
animated sub hunt game) some 
of the techniques in animating a 
graphics display. 

Color Animation 

Table 1 lists the order of setting 
up the graphics display screen for 
animation. First, select the cor- 
rect mode and reserve pages of 
graphics memory. Most displays 
require four pages of memory, so 
start with a PCLEAR 4 command. 
Five graphics modes are available 



The Key Box 

Extended Color Basic 
Color Computer 



to the Color Computer. PMODEs 
0-4 are the graphics-only modes; 
Table 2 lists their respective 
resolutions. PMODE determines 
the number of available colors so 
consider the colors you desire, as 
well as resolution. 

PMODE 3 gives the most reso- 
lution, and allows a choice of two 
groups of four colors; I usually 
program games in this mode. You 
select the groups of colors with 
the Screen command. SCREEN 
1,X sets the graphics screen, and 
argument X determines the color 
set. For example, PMODE 3,1: 
SCREEN 1,0 allows the colors 
green, yellow, blue and red; while 
SCREEN 1,1 has the colors buff, 
cyan, magenta, and orange avail- 
able. The initial program listing 
might look like Table 3. 1 have set 
the screen to graphics mode 3, 
with medium resolution and col- 
ors green, blue, yellow and red 
available. 

The color statement deter- 
mines foreground and back- 
ground colors. If no Color state- 
ment is used, the computer uses 
the highest and lowest numbers 
available for foreground and 
background colors. See Table 4 
for the color numbers of the 
available colors. 

Once you choose the colors, a 
PCLS command clears the 
screen to the background color. 



Begin by putting the back- 
ground display on the screen. In 
the submarine game the back- 
ground was simple: a deep blue 
ocean and a yellow sky. A con- 
venient technique for drawing 
displays is to use a very high line 
number for an INKEY$ loop: 

1000 AS = INKEYS: IF A$ = "" THEN 1000 
1010 LIST 

After drawing the display, the 
computer waits at line 1000 until 
you press any key; it then lists 
the program for you to add more 
lines. In the submarine program, 



after I painted the sky, I drew the 
ship and subs. After you place 
the items to be animated on the 
screen, you can store them in an 
array to be moved later. 

There are two options for put- 
ting objects on the screen. You 
can place them at the point 
where you will first see them in 
the program. This is simplest, 
but sometimes the program dic- 
tates that the object not be im- 
mediately visible. To preserve 
its hidden location, draw a title 
screen showing the objects at 
some usual point in the game, 



1. 


Clear correct number of pages 


2 


Set correct graphics mode 


3 


Set screen color set 


4 


Choose foreground and background col- 




ors from color set chosen 


5 


Draw background and inanimate objects 


6. 


Draw animated objects on screen 


7. 


Store animated objects in arrays 


8. 


If needed, get background array 


9. 


Initialize display 




Table 1 



PMODE # 


Grid Size 


Color Set 





128 by 96 


two color 


1 


128 by 96 


four color 


2 


128 by 192 


two color 


3 


128 by 192 


four color 


4 


256 by 192 

Table 2 


two color 
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Fig. 1. 



and store the arrays during the 
display. I used this technique in 
the Subchase program. The title 
screen also adds a professional 
look to the program; I use it even 
when there is no particular need 
to hide the first screen locations 
of the objects. 

There is another way to hide 
object placement, using the 
SCREEN command. By calling 
the text screen and then drawing 
objects, the computer displays 
an appropriate message while 
drawing and storing the objects. 
A PCLS clears the hidden ob- 
jects, the opening segments are 
drawn, and the game can begin. 
If you plan to use higher speed 
animation techniques, you may 
also store the appropriate back- 



10PCLEAR4: PMODE 3,1 
20 SCREEN 1,0 
30 COLOR 2,3 

Table 3 



ground arrays at this point in the 
program. 

The Color Computer's Get 
command automatically stores 
an array containing the color in- 
formation of the screen location 
specified. The array is double 
dimensioned, and contains the 
colors of each horizontal and 
vertical coordinate specified. 
Fig. 1 illustrates the submarine 
used in the program, it was con- 
structed on the screen with the 
Circle command. The height, 
width option made the circle in- 
to an ellipse. I used the Draw 
command to put in the tower. 
You can place this array any- 
where on the screen to be stored 
by the Get command. For exam- 
ple, if we locate the circle at lo- 
cation 100,100, the center of the 
circle is at those coordinates. To 
determine the size of the array 
use the Line command. Pick the 
approximate coordinates of the 
upper left corner and lower right 

^See List ol Advertisers on page 402 



corner. Use the Line command 
with the B option to put a box 
around the display. Change the 
size of the box until it exactly 
corresponds to the array to be 
stored (see Fig. 1 .) Use these line 
coordinates to store the array. 

Once you have determined 
the size of the object to be 
stored, dimension the array to 
the proper size. The Line state- 
ment in the example above 
would read: LINE(88,95) - 
(112,104),PSET,B. To calculate 
the array size subtract the lower 
horizontal and vertical elements 
from the higher. In this case that 
would be 112 minus 88 equals 24 
and 104 minus 95 equals 9. Next 
dimension the array and give it a 
variable name. In the submarine 
program I used S1. DIM S1(24,8) 
works, but for maximum mem- 
ory economy, I used DIM S1 
(23,7): The Color Computer uses 
a zero element in its arrays. 



Color Numbers 


Black 


5 Buff 


1 Green 


6 Cyan 


2 Yellow 


7 Magenta 


3 Blue 


8 Orange 


4 Red 




Table 4 



Dimension each animated pro- 
gram variable. Each element 
uses five bytes, so the number of 
arrays stored is limited by the 
memory available. Unless you 
have the 32K option, array stor- 
age is limited to about 1400 
points. 

You can easily edit the Line 
command into the Get com- 
mand. GET(88,95)-(112,104),S1 
stores array S1 into its location. 
You can also add Graphics op- 
tion G to the end of the state- 
ment. If you use this option, 
suffix the Put command with the 
appropriate graphics statement. 

After you have stored all ob- 



jects to be animated, you can 
animate your title display, or 
clear the screen to execute the 
main program. I elected to ani- 
mate the title display. After the 
title, I restore the text screen to 
display a request for instruc- 
tions and obtain a difficulty level 
choice. The Color Computer 
cannot store graphics and text 
on the same screen; any print or 
input command restores the 
text screen, so use CLS to clear 
the text screen before display- 
ing text. Initialize any variables 
for animation at this time. I use 
H and V corresponding to hor- 
izontal and vertical with the 
graphics screen. I used H and V 
for the ship H1 and V1 for the 
sub moving right and H2 and V2 
for the sub moving left. You can 
update these variables by the 
keyboard, joysticks, or the com- 
puter depending upon what you 
want to do with the objects. In 
Subchase, you move the ship 
using the right joystick, and 
automatic random loops in the 
computer move the two subs. 

In moving the ship, V remains 
at 46 unless the depth charge is 
dropped. V returns to 46 when 



the drop charge routine finishes. 
H is initially set to 0, incre- 
mented when you move the joy- 
stick right, and decremented 
when you move the joystick left. 
A limiter keeps the computer 
from making H less than or 
more than 213. An increase of H 
to larger than 213 results in a 
rather spectacular graphics 
crash on the right side of the 
screen; a value less than re- 
sults in a function call error. I 
placed the same limiters upon 
the subs. 

The Put command puts an ob- 
ject on the screen. Initialize H to 
and V to 100. PUT(H,V) - 
(H + 24,V + 9),S1 places the ar- 
ray at location 0,100. When we 
make H equal 25 there will be 
two subs on the screen. If we 
continue, the screen fills with 
submarines in a hurry, but there's 
an easy way to remove the orig- 
inal sub. 

Look at Fig. 1 again. At the 
rear of the sub, the array con- 
taining the background color 
stores two rows of information. 
If we limit H to increases of two 
or less and do not require it to go 
backward, the background 
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Quality: Color co-ordinated im- 
printing on tamper-proof paper, 
your choice of blue, green, 
grey, or tan color. MICR bank en- 
coding guaranteed compatible with 
your bank. 

Now CHECK WITH US../Ordir S 
ipeclal package with moneyback 
3uarantee today! Just enclose a voided 
check for encoding information with your 
order. Or send today for our free informa- 
tion package. We guarantee you'll be 
pleased. Visa-Mastercard orders welcome. . 

HEPHERD RD • MULBERRY, FL 33860 • PHONE (813) 646-6557 ■'."; 
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"tail" removes the old image of 
the sub as it moves. The ship re- 
quires foreward and rearward 
movement; therefore, there are 
rows of background color at both 
ends of the ship. This technique 
requires no extra steps, and pro- 
vides maximum use of the avail- 
able screen. The array redraws 
the background automatically. 

This technique is relatively 
slow. The Subchase program 
does not need high speed ani- 
mation, so the technique works 
well. Space games and other 
high speed games would look 
silly using this method, so we 
need a high speed animation 
technique. One way is to use the 
graphics options available. 
Logical operators place the de- 
vice on the new screen location. 
The AND suffix sets the point in 
the array, if the array point and 
the point in the destination lo- 
cation were set. A logical OR 
sets a given array point when 
either the array point or the new 
location point is set. NOT re- 
verses the point state at the lo- 
cation; PSET and PRESET set 
the location to which the array is 
PUT, to the exact contents of 
the stored array (PSET), or to the 
exact opposite of the array's 
contents (PRESET). The PSET 
option in the sub program sets 
the destination rectangle to the 
colors originally set in the orig- 
ination (Get) rectangle. 

Another high speed technique 
is to store a background array. 
You can take this array from any- 
where containing the appropri- 
ate background colors. A back- 
ground array put at the old loca- 
tion completely removes the ob- 
ject previously put there. It is a 
simple matter to place the object 
at the new position. This position 
may even overlap the background 
rectangle. By alternating object 
and background, high speed mo- 
tion is easily attainable. In many 
cases, you may have to slow 
down this action by external 
loops. This is desirable in pro- 
gramming a variable speed loop. 
Sometimes the person using the 
computer needs time to act upon 
the new display information. 

One of the simplest tech- 
niques to slow motion is with a 
joystick. A joystick reading of 
63, could send the computer to a 
subroutine such as 1000 A = 



JOYSTK(O): IF A = 63 THEN 1000 
ELSE RETURN. This subroutine 
stops all action on the screen as 
long as the joystick is held to its 
extreme end. Moving the stick 
slightly achieves the return, 
whereupon the computer could 
go to a loop such as 90 FOR I = 1 
TO A: NEXT I. This loop takes 
the joystick reading and stops 
execution until it quits counting 
the joystick value. When fin- 
ished, the computer updates the 
values and puts the display at 
the new location. It then re- 
enters the JOYSTK loop to up- 
date the value of A. A smaller 
joystick reading means a 
shorter loop time. By multiply- 
ing or dividing (watch for a 
divide by zero error), you can 
achieve almost any speed delay. 
Another technique is to up- 
date the H or V coordinates or 
both in relation to the joystick. 
This does not slow program exe- 
cution as the other method does. 



100 A = JOYSTK(0)+1 REM ADDING 
ONE ELIMINATES DIVIDE BY 
ERROR 

110 H = H + INT(A/8) REM WILL UP- 
DATE H BY UP TO 8 UNITS FROM 
PREVIOUS 



This technique works well when 
more than one person is involved 
and two joysticks are in use. 

Subchase 

Subchase is an adaptation of 
the familiar program. A ship 
tries to drop depth charges on 
unwary submarines below the 
surface of the water. I have up- 
dated it to modern times: the 
submarines have special under- 
water lasers that fire upon the 
ship. The object of the game is 
to sink submarines while sus- 
taining as little damage as pos- 
sible. The submarine's aim is 
not perfect, but they will inflict 
considerable damage on your 
ship before the game is over. 

You lose the game when both 
submarines reach the opposite 
sides of the screen. You cannot 
drop a charge from the extreme 
left of the screen. This gives the 
sub a safe port and avoids a 
function call error, when the 
sunk sub is being cleaned up. 

There are four difficulty lev- 
els; the hardest is almost impos- 
sible, so there is plenty of chal- 
lenge (one is the most difficult, 



,S, TEXAS 




SPECIAL PURCHASE! 
SPECIAL PRICES! 

All Equipment 100% RADIO SHACK® 

FULL WARRANTY 
NO foreign memory, NO foreign drives 

RETAIL YOUR PRICE 

TRS-80 COMPUTERS® 

Model II 64K w/built in 8" drive $3899.00 $3220.00 

Model II 64K with 4 8" drives $6249.00 $5249.00 

Model III 48k w/dual 5 l / 4 drives, 

RS232 $2495.00 $2048.00 

Model III 16K Level 3 Basic $999.00 $850.00 

Color Computer 32K $749.00 $600.00 

PRINTERS 

RS Line Printer V ; $1860.00 $1549.00 

RS Line Printer VI $1160.00 $1049.00 

RS Line Printer VII $399.00 $330.00 

RS Line Printer VIII $799.00 $649.00 

RS Daisy Wheel II .' $1960.00 $1674.00 

RS Plotter/Printer $1460.00 $1299.00 

DISKETTES (Sold in case lots of 100 only!) 

Memorex 5'4 ' ' single density /single sided $ 1 95^00 

Verbatim 5V4" double density /single sided $215.00 

Memorex 8" double density/single sided $260.00 

Verbatim 8' ' double density /single sided $325.00 

All orders for above items must be prepaid by 
cashiers check or money order. No COD's or 
personal checks. All orders are shipped freight 
collect. Texas residents add 5% sales tax or photo 
copy of tax permit if dealer. PRICES FOR MAIL 
ORDER ONLY! 

Radio Shack & TRS-80 are registered trademarks of the Tandy Corporation. Software 
Concepts is not affilliated with Tandy or Radio Shack. 

SOFTWARE 

13534 Preston Rd. Suite J v. 

Dallas, Texas 75240 

(214) 458-0330 
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Dallas, Texas 

COMPUTER PRODUCTS FOR HOME & BUSINESS 



SOFTWARE CONCEPTS 



OTHER FINE SOFTWARE 



Who is Software Concepts? We are the originators 
of Special Delivery wordprocessing software for the 
TRS-80. We are now expanding our product line to 
include items used in our daily business operations. 
We consider these to be better than any other 
product we have tried for its price/performance 
ratio. If we sell it -we use it! 



SPECIAL DELIVERY 



"...// you're presently looking for a mailing list 
processor, this represents the current state of the 
art. " 
80 MICROCOMPUTING - 80 REVIEWS -- JULY 1980 

SPECIAL DELIVERY is the best mail list processor 
available for the TRS-80, just ask our customers! 
Use Special Delivery to maintain your mailing list 
with fill-in-the-form ease. You create, edit, sort, 
extract, and otherwise manipulate your mailing list 
with the speed and ease of use possible only in 
100% machine language software. Special Delivery 
will merge data from the mail list into a letter 
created by your own text editor (Scripsit, Electric 
Pencil, etc.) to generate a "personalized form 
letter" to any or all names in the list. Print free 
form mailing labels, envelopes, even legal docu- 
ments! Print any character (including escape 
codes) your printer is capable of printing! Boldface 
and underscore is supported for most printers, now 
including the Daisy Wheel II! 

SPECIAL DELIVERY includes: 
MAILFORM: data entry at its best, just fill in the 
form! Sort, extract, page forward and back, insert/ 
delete, more! 

MAILRITE: print letters, etc. created with your 
editor while inserting text from your MAILFORM list. 
SEVERAL printer drivers (EDAS source code as well 
as /cmd files), and letter and list samples to get 
you started. 

XTRA! SPECIAL DELIVERY includes: 
EVERYTHING in regular SPECIAL DELIVERY. 
Enhanced MAILRITE: with the ability to print varia- 
ble text from a "KEY" file (greatly expanding the 
capacity of each record in your list) . 
MAILABEL: 1, 2, 3, or 4 across label printer. 
MAILSORT: will sort by any field, a full 40 track 
double density data diskette (over 1500 names) in 
only48K! 

ZIPSORT: sorts on zip only, but will handle over 
4500 names! 

NOTE TO 
REGISTERED OWNERS 

Registered SPECIAL DELIVERY owners can upgrade 
to XTRA! by returning their ORIGINAL disk with 
$74.00 + $2.00 shipping and handling. 

FOR YOUR MODEL I OR III: 
(requires minimum of 32K, single drive) 

SPECIAL DELIVERY $125 

XTRA SPECIAL DELIVERY $199 

FOR YOUR MODEL II: 
(requires TRSDOS version 2.0 & Scripsit 2.0) 
SPECIAL DELIVERY $199 



ALL NEW ELECTRIC PENCIL!!! 

NOW AVAILABLE FOR THE MOD III! While the original 
PENCIL set a standard that other editors have yet 
to achieve, the NEW ELECTRIC PENCIL reaches even 
greater heights with many exciting new features 
that make it the easiest-to-use text editor available 
for the TRS-80 Mod I or III!! 
Electric Pencil version 2 $84.95 

EDAS 

This is the assembler from Misosys which is used 
for all assemblies of Special Delivery. We had real 
headaches until this came along. A must for any 
assembly language programmer. 
EDAS MOD l/MOD III $75.00 

THE DISASSEMBLER 

This is simply the most advanced disassembler we 
have ever seen. Creates EDAS source code, inserts 
user-defined labels, disassemble disk or memory, 
generates ORGS & EQUates. 
THE Disassembler - Mod I, III $89.00 

RETAIL INVENTORY CONTROL SYSTEM 

Maintains Inventory, 'Tracks Stock Sold, Tracks 
Backorders, Tracks Reorder Items, Prints Purchase 
Orders, Prints Listings by Vendor, & MUCH MORE! 
This is the one we use in our store. 
Retail Inventory - Mod I, III $129.00 

GAMES! 

The computer was not meant to be ALL business! 
We carry a complete stock of Adventure & Arcade 
style games. Each game has been subjected to 
extensive testing by one of our less productive staff 
members. Call for availability and prices. 



Features previously available only on a 
mainframe. Real powerhouse DOS. Good 
support. 

NEWDOS80V2.0 

See above. Fantastic BASIC enhancements. 
The well equipped software developer will 
own both LDOS & NEWDOS but one or the 
other is a must. 

LDOS $159.00 

NEWDOS V2.0 $145.00 



HARDWARE 



DATA SEPARATOR 

The lifesaver. If you have a MOD I with disk drives 
and no data separator you have problems. Order 
from us or someone else but get a data separator. 
Data Separator $27.95 

DOUBLER 

Another breakthrough. Add double density to your 

MOD I. Includes built in data separator. 

Doubler $165.95 



DISKETTES 

VERBATIM DATALIFE! Re-inforced hub, double density. 
Pkgof 10 - 5'/4 inch $25.00 

GREEN SCREENS 

Not much difference between green screens but 
everybody should have one. If you don't buy ours, 
buy theirs. 

MOD l/MOD III $17.95 

MODII/LEEDEX 100 $22.95 

IJG BOOKS 

Disk Mysteries $21.50 

BASIC Faster & Better $28.95 

BASIC Decoded $28.95 

NEC 8000 Computer 

Z80a compatible, 4MHZ, 64K ram, color supported, 
RS 232, 163.8K per disk, parallel interface, 5 
function keys, numeric keypad 

NEC 8000 keyboard unit $1080.00 

Green phosphor monitor $225.00 

Expansion Interface $720.00 

Disk Drives (2) $1080.00 

Parallel Printer Cable $35.00 

EPSON PRINTERS 

Epson has become the standard by which other low- 
cost printers are measured. Highly recommended! 

MX80 $500.00 

MX80 F/T $650.00 

MX70 $299.00 

MX100 $745.00 

Printer Cable $35.00 

TRS80 Bus Board/Cable $100.00 

GRAPHTRAX80 $80.00 

MX-80 Ribbons $14.00 

Print Heads $38.00 

2K Serial Card $145.0 

PRODUCTS WANTED ~ 

If you have a program that is the best there is, 
contact Software Concepts. We are interested in 
publishing all first rate software. 

OTHER PRODUCTS AVAILABLE. 
Call if you don't see what you need. 

Add 3% Shipping & Handling 

Texas Residents add 5% Sales Tax on 

all hardware items. 
Specify whether MOD I, II, or III when ordering. 

(214) 458-0330 

SOFTWARE CONCEPTS 

13534 Preston Rd. Suite 142 

Dallas, Texas 75240 

or 

visit our new retail store at 

116 Preston Valley 

Shopping Center 

Dallas, Texas 

Dealer enquiries invited. " 43 

TRS-80 & Scripsit are Reg. Trademarks of Tandy Corp. 



COMPUTER AIDED INVESTMENT 

Had you ever missed opportunities to purchase stocks at their low 
points, and/or had hesitated to sell and resulted in financial losses? 

One of the secrets for success in the STOCK-MARKET is timing. 

A computed program, STOCKCHART-I '", for usage on the TRS-80* 
models I & III, APPLE If, & ATARI-800* computer systems, will time the 
stocks in your portfolio for BUY & SELL opportunities. The BUY & SELL 
signals are based on a unique price-trend analysis technique developed 
by Micro-Investment Software. It only requires the weekly high, weekly 
low, and the last trading day of the week's close stock prices. With this 
program, you no longer need to guess or listen to rumors for your invest- 
ment decisions. 

Aside from its ability to assist you on deciding when to BUY & SELL, it 
also will generate a price-chart from the High, Low, and Close stock 
prices. The user has the option to select the price-chart to be generated 
onto the video screen or to the line-printer And many other useful 
features. . . . 



— STOCKCHART-I M — 



Features: 



generate BUY/SELL signal 
generate price-chart from 
High, Low, & Close stock prices 
data entry in newspaper format 
(accept fractions) 

SPLI"! r-no-ie for price data readjust- 
ment on stock split 
EDIT mode tor data changes ana/or 
corrections 

STATUS mode display BUY/SELL 
signal for all stocks on file 
Fully menu driven use; friendly 
LIST mode for price data 
print out onto video or line 
printer 



Sample Results: 

• Tandy Corp.-5/19/80 to 9/07/81 

3 BUY/SELL, signals 
ROI: 163% 

• Hewlett Packard-5<25/80 to 8/30/81 

4 BUY/SELL signals 
ROI 42% 

• Adv. Micro Dev -5/12'80 to 6/22/81 

3 BUY/SELL signals 
ROI: 51% 

• Natl Semi. -5/25/80 to 6/22/81 

3 BUY/SELL signal 
ROI 40% 

• Storage Tech -5/18/80 to 6/22/81 

3 BUY/SELL signals 
ROI '11% 
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An Investment Tool 
for the Serious Investors 



System Requirements: 

• cassette version - mm. 16K RAM 

• disk version - min. 32K RAM. 1 disk drive 

• printer optional 

To order, see your local computer/software dealers or send check, 
money order, or COD. to: 

w m*m&2ET Micro-Investment Software 

P^IS 9621 Bowie Wa v 
^— T— Stockton, CA 95209 

cassette version $79 per copy 

disk version $99 per copy 

TM - STOCKCHART-I is a trademark ot Micro-Investment Software 
■trademare of TANDY CORP., APPLE COMPUTER. S ATARI respectively 
ROI - return on investment 

Dealer Inquiries Invited 

Visa and Mastercard welcome. (209) 952-8833 



Program Listing 



5 REM INITIALIZE 

1 CLEAR5 : PCLEAR4 : PMODE3 , 1 : CLS3 : SCREEN1 , : COLOR2 , 3 : PCLS 

20 DIM S(41,12) ,S1(28,7) ,S2(28,7) :D=0 

25 REM DRAW SHIP 

30 DRAW"C2;BM0,56R25 5; " :PAINT( 0,55) ,2,2 

40 CIRCLE(22,54) ,19 ,4 , .25 ,0, . 5 

50 DRAW"C4BM4,54;R32":PAINT(15,55) ,4,4 

60 DRAW"BM4,54;E4R12U2R2D2R4U3R3D3R3F4":PAINT(8,53) ,1,4 

70 GET(0,46)-(42,59) ,S,G 

75 REM DRAW SUB 1 

80 CIRCLE (80, 150) ,1 2,1 , . 25: PAINT ( 82 , 150) ,1,1 

90 DRAW"C1BM82,148;U3R2D3" 

100 GET(64,145)-(92,153) ,S1,G 

10 5 REM DRAW SUB 2 

110 CIRCLE (17 5, 130) ,1 2 , 1 , . 25 : PAINT ( 175 , 130) ,1,1 

120 DRAW"BM171,128;U3R2D3" 

130 GET(161,125)-(189,133) ,S2,G 

135 REM SOUND EFFECTS 

140 H$="01;FEFEFGGGEG 

150 L$="T25504;AF 

155 REM DRAW TITLE 

16 DRAW"S15C2;BM40,160;BDlDFlR3FlD2GlL3HlBU5ElR3Fl;S8;BD6BM+6,-2;D5F2 

R1E2U5D7 

170 DRAW"BM+6,-12;D12U2F2R2E2U3H2L2G2;BD5BM+12,0;BUlFlR4ElBL7U4E2R4Fl; 

BM+6,-6;D12BR6U5H2L2G2BDl 

180 DRAK"BM+12,0;D3F1R2E2D2U7D2H2L1G2D1;BM+10,+2;BD1F1R1E1U1H3U1E1R1F1 

;BM+6,+2;R7H3L2G3D2F2R3E2 

185 REM LASER DISPLAY ROUTINE 

190 FORI=lTO10:LINE(168,126)-(25+I,70) ,PSET 

200 LINE (168, 126) -(25+1,70) , PRESET : PLAYL$ : NEXT 

205 REM MOVE SHIP DISPLAY 

210 FORH=0TO165STEP2:PUT(H,46) -(H+42,59) ,S,PSET:NEXT 

220 H1=161:V1=125:GOSUB470 

230 CLS(3) :PRINT@13,"SUBCHASE"; : PRINT0224 , "DO YOU WANT INSTRUCTIONS?"; 

240 AS=INKEY$:IFA$^""THEN240 

250 IFA$="N"THEN320 

260 CLS:PRINT"THE OBJECT OF THIS CAME IS TO" : PRINT"DESTROY AS MANY SUB 

MARINES AS" 

270 PRINT" YOU CAN BEFORE THEY DESTROY YOU .": PRINT "TO MOVE, USE THE RIG 

HT JOYSTICK 

280 PRINT"TO DROP DEPTHCHARGE, PRESS THE" : PRINT"FIRE BUTTON." 

290 PRINT: PRINT"YOU MUST HIT THE SUB BEFORE IT" : PRINT"REACHES THE OPPO 

SITE SIDE. 

300 PRINT: PRINT'THE SUBS WILL BE USING LASERS 

310 PRINT"TO FIRE UPON YOU. 

320 PRINT@448, "CHOOSE DIFFICULTY LEVEL (1 TO 4) " ; : AS=INKEY$ : IFAS< " l"OR 

A$>"4"THEN320 

3 25 REM X= DIFFICULTY LEVEL: D FLAGS DISPLAY ROUTINE FINISHED 

330 X=VAL(A$) :D = 1 

335 REM SET UP DISPLAY SCREEN AND ORIGINAL POSITIONS OF BOATS 

3 40 PMODE3 , 1 : SCREEN1 , : COLOR2 , 3 : PCLS : DRAW"C2 ; BM0 , 56R25 5 ; " : PAINT (0,55) , 
2,2:H=0:V=46:H1=RND(10)+10:H2=RND(10) +215 : V2=RND( 50) +100 :V1=RND ( 50) +10 


345 REM PUT SHIP AT NEW POSITION 

350 PUT(H,V)-(H+42,V+13) ,S,PSET 

355 REM READ AND UPDATE SHIP POSITION 

360 A=JOYSTK(0) 

370 IFA<25THENH=H-1:IFH<0THENH=0 

380 IFA<3THENH=H-1:IFH<0THENH=0 

390 IFA>50THENH=H+1:IFH>210THENH=210 

400 IFA>60THENH=H+1:IFH>210THENH=210 

410 IFH1=227ANDH2=0THEN720'YOU LOSE 

420 IF RND(5)>X THEN GOSUB660 

430 IF RND(5)>X THENGOSUB600 

435 REM SHIP CANNOT DROP CHARGE AT SCREEN LEFT 

440 IFH<28THEN460 

445 REM CHECKS FIRE BUTTON CLOSURE 

450 P=PEEK(65280) :IFP^254 OR P=126THENGOSUB470 

455 REM RESTORE V TO SHIP LOCATION 

460 V=46:GOTO350 

46 5 REM DROP DEPTH CHARGE 

470 FORV=58TO170:IFPPOINT(H,V+4) <>3THENSC=SC+1 :GOTO520 

475 REM ALLOWS SUB MOVE DURING CHARGE DROP 

480 IFRND(5)>X AND D>0THEN GOSUB600 

490 IFRND(5)>X AND D>0THEN GOSUB660 

4 95 REM CHARGE DROPPING 

500 LINE(H,V)-(H,V+3) ,PSET: LINE ( H+l ,V) - (H+l , V+3 ) ,PSET 

510 LINE(H,V-1)-(H,V) , PRESET: LINE ( H+l ,V-1) - (H+l ,V) ,PRESET:NEXT 

515 REM CHARGE EXPLODES 

520 PLAYH$ 

525 REM CHARGE HIT BOTTOM 

530 IF V>165 THEN 590 

535 REM DESTROY SUB 

540 FORI=1TO50:PSET(RND(5) +H,RND(8) +V,4) : NEXT 

545 REM CLEAN UP REMAINS 

550 F0RI=-25T028:F0RJ=-1T012:PRESET(H+I,V+J) : NEXTJ , I 

555 REM CHECKS TO SEE IF SUB 2 WAS DESTROYED, IF SO SETS NEW SUB 2 POS 

ITION 

560 IFPPOINT(H2+5,V2+5)=3THEN H2=RND ( 10) +215 : V2=RND ( 50) +100 

56 5 REM SETS NEW SUB 1 POSITION 

570 IFPPOINT(H2+5,V2+5)=1THENH1=RND(10)+10:V1=RND(50)+100 

580 RETURN 

5 85 REM REMOVES CHARGE FROM SCREEN AFTER HITTING BOTTOM 

5 90 FORI=0TO3 : FORJ=0TO3 : PRESET (H+I ,V+J) : NEXTJ , I : RETURN 
595 REM MOVES SUB 1 TO NEW POSITION 

600 H1=H1+1:IFH1>227THENH1=227 

610 PUT(Hl,Vl]-(Hl+28,Vl+8) ,S1,PSET 

615 REM SUB 1 LASER ROUTINE PPOINT CHECKS FOR LASER HIT 

620 S=RND(20):IF RND(5)=3 THEN GOSUB640:IF PPOINT ( H+S , 57) =4 THEN HT=HT 

+1 

630 RETURN 

635 REM FIRES LASER-WON'T FIRE IF SHIP TOO FAR LEFT 

640 IFH<10THENRETURN 

650 LINE(Hl+13,Vl-2)-(H+(S-2) ,57) ,PSET: PLAYLS : LINE ( Hl+13 , Vl-2) - ( H+ ( S-2 

) ,57) , PRESET: RETURN 

655 REM POSITION SUB 2 

660 H2=H2-1:IFH2<0THENH2=0 

670 PUT(H2,V2)-(H2+28,V2+8) ,S2,PSET 

67 5 REM SUB 2 LASER ROUTINE 

680 S=RND(20):IF RND(5)=3 THEN GOSUB 

+ 1 

6 90 RETURN 



):IFPPOINT(H+S,57) =4 THEN HT=HT 



Program continues 
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Program continued 

695 REM FIRE SOB 2 LASER 

700 IFH<10THENRETURN 

710 LINE<H2+13,V2-2)-(H+(S-2) ,57) ,PSET: PLAYLS : LINE (H2+13 , V2-2) - ( H+ ( S-2 

) ,57) , PRESET: RETURN 

715 REM END ROUTINE 

720 CLS3:PRINT@64,"YOU HAVE DESTROYED ";SC;"SUBSI 

730 IFSC<10THENPRINT"WHOSE NAVY ARE YOU WITH?" :GOTO750 

740 PRINT'I CONGRATULATE YOU ON YOUR COOL" : PRINT"UNDER FIREI" 

750 PRINT'THE SUBS HIT YOU ";HT;" TIMES. 

760 PRINT'PRESS FIRE BUTTON TO PLAY AGAINI 

770 FORI=1TO500:P=PEEK(65280) :IFP=126 OR P=254THENSC=0 : HT=0 :GOTO340 

775 REM RESTORE COMPUTER TO POWER UP STATE 

7 80 NEXT:CLEAR200:PMODE0,1:PCLEAR4 



four is the easiest). Your ship 
cannot move while the depth 
charge is being dropped, how- 
ever the subs will move. Be sure 
to drop the charge in front of the 
sub you are aiming at. 

The Program Listing is well re- 
marked, and requires little ex- 
planation. Due to the size of the 
arrays stored, delete all remarks 
before running the program. The 
remarks are in line numbers end- 
ing in five. After listing the pro- 
gram there will be nearly 5K of 
memory available. However, 
after running the program and 
storing the graphics arrays, you 
will find only about 500 bytes of 
memory left. The graphics ar- 
rays for the two subs and the 
ship use over 4K of memory. 



To play again push the fire but- 
ton. At the end of each game I re- 
store all conditions (Pclear, 
string memory, and so on) to 
power-up conditions. This en- 
sures all programs initialize to 
the same level. In the Color Com- 
puter, graphics storage and text 
storage can conflict, causing 
loading or running problems. 

I reserved only 5 bytes for 
string storage; if you do not 
modify the program you cannot 
load an eight character program 
name. ■ 

John Steiner, an electronics 
instructor, has had his Color 
Computer since February 1980. 
Other pastimes include amateur 
radio, writing and photography. 
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VOLUME I 

The most complete book yet 
on the math routines of the 
BASIC ROM, Models I & III. 
Contains a wealth of detail 
about integer, single and dou- 
ble precision lormats, advanc- 
ed math, data manipulation, 
and assembly language inter- 
facing, with examples. In- 
cludes commented listing 
(0708H-1607H), plus a highly 
detailed map of the ROM and 
reserved RAM. 



Comprehensive Guide to TRS-80* Assembly Language Routines 
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VOLUME II 

Packed full of useful informa- 
tion on the model I input/ 
output routines, with de- 
tailed listings to illustrate the 
commented source code. 
Learn to control and 
manipulate the keyboard, 
video, printer port, and 
cassette port. Essential for 
assembly language program- 
fliers, you car; write your own 
routines or use the many pro- 
gramming examples included. 
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GRAPHICS 



Working some of the mystery out of graphics. 



Mirror Imaginin 




Bob Boothe 

4651 Browndeer Lane 

Rolling Hills Estates, CA 90274 

Ever since I started plotting surfaces 
(about as long as I have had a comput- 
er) I have wanted to plot a sphere. Because I 
finally created a decent one, now you can 
plot a sphere on your very own video. Un- 
fortunately, video does not have the resolu- 
tion of the designs in this article, all pro- 
duced on an Epson MX-80 printer with the 
Graftrax 80 graphics ROM update. 

The program in Listing 1 plots a sphere 
on the video. Because the monitor distorts 
shapes, it may look a bit more like an 
ellipsoid. 

How the Program Works 

The program uses three-dimensional Carte- 



Bob Boothe, a freshman at the University 
of California at San Diego, is 19 years old 
and majors in Computer Engineering. 



Fig. 1. Sphere. 



The Key Box 



Basic Level II 

Model I 

16K RAM 

TRSDOS 

2 Disk Drives 

Epson MX-80 printer with GRAFTRAX 



1 

13 

140 

15 

160 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 



REM LOW RESOLUTION SPHERE *** VIDEO *** 

DEFINTQ,B 

K=l/128:T=l/8192:X=l:Y=l:Z=l:Q=l:S=l:A=l :M Y=l 

DEFINTL:DIML(127) : CLS 

FORZ=-lT01STEPl/23 

B=B+1 

MY=SQR(1-Z*Z) -T 

Y=-MY 

X=SQR(1-Y*Y-Z*Z) +T 

A=SQR( (1+Y*Y/X/X) * (1+Z*Z/X/X) ) 

S=l/A/10 

IFS<KTHENS=K 

Y=Y+S 

IFY>MYTHENL(64+MY*63) =1:GOTO290 

L(64+Y*63)=l 

GOTO210 

FORQ=0TO127:IFL(Q)=1THENSET(Q,B) 

L(Q) =0:NEXT 

NEXTZ 

GOTO320 

Program Listing 1. Low Resolution Sphere. 
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Review of QUIKPRO 
by Technical Writer 
Wayne Hepburn 

QUIKPRO by ICR FutureSoft is the 
name given a new breakthrough in 
software. It is written for use on TRS- 
80 Model I Disc System, Model II 
and Model III Disc System. 

Until now, whenever you 
wanted a new program, you either 
had to pay good money for each and 
every new application program or, if 
you are capable, spend hours upon 
hours writing your own. Thanks to a 
marvelous new program, those 
choices are obsolete. 

Now you can do it yourself. 
Anytime you want a new program, 
easily and quickly, you can make 
your own. Anybody who can turn a 
computer on and off can do it with 
Quikpro ..it's that easy and fast. 

This important breakthrough 
is the invention of Joseph Tamargo 
of Florida. His brilliant approach to 
program writing allows you, finally, 
to tap the real power of your com- 
puter in new ways. I located Mr. 
Tamargo and interviewed him about 
the Quikpro. He told me "The best 
part of this program is that it gives 
you a separate BASIC program every 
time you use it. You can List each 
program you create from it, look at 
it, and actually see what makes it 
tick." 

What's more, I found out you 
can modify, alter and enhance, even 
copy, programs you create from 
using Quikpro. I believe there is no 
other program even close to Quik- 
pro for flexibility and ease of 
program generation. This flexibility 
may well make Quikpro superior to 
every other Filing, Data Entry 



or Data Base Management Program. 

The applications are virtually 
unlimited. Anyone who uses a com- 
puter at home, in business, in schools 
or other educational situations will 
find hundreds of applications. 
Teachers, Students, Hobbiests, Small 
and Large Businesses can all find 
great benefits in using Quikpro in 
any of hundreds of applications like 
these examples: 

Using Quikpro you can 
quickly write programs for Financial 
Records, Stocks, Checking Accounts, 
Receiveables, Inventories, Schedules, 
Personal Records, Statistics, Invoices, 
Catalogues, Reference Banks, Ac- 
counting Data of all kinds, and the 
list just goes on and on, almost 
without limit. 

Quikpro cuts program 
development time dramatically....to a 
fraction of what it would take the 
old way (the way you do it now). It 
will generate File and Data Entry 
sequences for mainframes to remote 
or host computers. You can create 
and run a demonstraton program in 
a few minutes. 

Unlike novelty programs you 
play with for a while and grow tired 
of, Quikpro is one you will regard 
like a good right arm. Year after year 
you will use it to create all the new 
Filing and/or Data Entry programs 
you will ever need. You never have 
to buy them again. 

Thanks to this invention, the 
power and speed promised by com- 
puters from the beginning have now 
become a reality. Since I had seen 
announcements about a program to 
be imported from a foreign nation, 
one that supposedly writes programs 
like Quikpro but sells for over six 
times as much money, I asked Mr. 
Tamargo for his comments about 



that. What he told me is "Quikpro is 
so good, anyone can use it im- 
mediately. To prove that point and 
the tremendous capacity it gives the 
user, ICR FutureSoft will send 
QUIKPRO directly to users with an 
absolute moneyback guarantee of 
satisfaction. The user can try it out 
on his/her own computer, writing as 
many programs as desired, for 15 
days after delivery, and if not fully 
satisfied can return the materials. The 
offer is good starting February 1981. 
That's how good Quikpro is." 

I couldn't argue with that. 
When the supplier stands behind the 
product with a 100% refund guaran- 
tee, it has to be as good as they say 
or even better, and I believe it is. 

The best news is you don't 
have to wait to get QUIKPRO from 
ICR FutureSoft or a dealer. You can 
get it right now by writing or calling. 
QUIKPRO will be delivered im- 
mediately by mail with instruction 
manual and full documentation on 
the moneyback guarantee basis. To 
get yours, just write on a plain piece 
of paper your name and address, 
specify if you want QUIKPRO for 
TRS-80 Model I, II, or III. Include 
your check or money order for only 
$89.95 or furnish your Visa or 
Mastercard number and expiration 
date to charge. Mail to ICR 

FutureSoft, 2031 Zeta, P.O. Box 1446, 
Orange Park FL 32073. 

If you prefer to call and get 
immediate delivery, you can phone 
24 hours daily to 1-904-269-1918. 
Please have your credit card number 
and computer model information 
ready. Operator is not qualified to 
answer questions about the program. 
Order your QUIKPRO right now. 
Every day you delay is costing you 
time and money. 



■See List of Advertisers or page 40? 
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"For a visual demonstration, 

take a piece of paper, ruler or any parallelogram. 



sian coordinates. The Z-axis runs vertically 
down the screen. The Y-axis runs horizontally, 
and the X-axis, projecting out of the screen, 
connects with the tip of your nose. 

Line 160 controls the number of horizon- 
tal lines the design will use. Z starts at one 
end of the design and moves up or down, 
depending on the step. The total number of 
lines in the design equals the total change 
in Z divided by the step. In this case Z goes 
from minus 1 to 1, a distance of 2. The step 
is 1/23, so 2 times 23 equals 46 lines. 

The equation of a sphere is X 2 + Y 2 + Z 2 
= 1. Line 190 finds the maximum value of Y. 
To change this line, let X equal and solve 
the equation for Y. This produces a trace in 
the Y-Z plane. T stands for tiny; a very small 
number is subtracted to keep the computer 
from getting a divide-by-zero error. 

Line 210 is our equation solved for X in 
terms of Y and Z, with a tiny bit added to ap- 
pease the TP.S-80. 



100 
110 
120 
130 
140 
150 

■160 
170 
180 

•190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
)*4 
360 
370 
380 




REM HIGH RESOLUTION SPHERE 

CLEAR2000 

OPEN "0", 1," SPHERE/DAT :1" 

DEFINTQ,B 

K=1/480:T=1/8192:X=1:Y=1:Z=1:Q=1:S=1:A=1:MY=1:B=0 

DEFINTL:DIML(7,480) 

FORZ=-lT01STEPiy288 -^ 

PRINT"Z= n ;Z, 

B=B+1 

MY=SQR(1+Z*Z)-T 

Y=-MY 

X=SQR(1-Y*Y+Z*Z)+T 

A=SQR( (1+Y*Y/X/X) * (1+Z*Z/X/X) ) 

S=l/A/44 

IFS<KTHENS=K 

Y=Y+S»c3 

IFY>MYTHENL(B,240+MY*^40) =1:GOTO290 

L(B,240+Y*2i0)=l 3 

GOTO210 

IFB=7THENGOSUB340 

NEXTZ 

IFB>0THENGOSUB340 

CLOSE1 

END 

FORQ=1TO4 80 

PRINT#1,CHR$(35+L(1,Q)*64+L(2,Q)*32+L(3,Q)*16+L(4,Q)*8+L(5,Q 

+L(6,Q)*2+L(7,Q) ) ; 
F0RB=1T07 : L ( B , Q) =0 : NEXT 
NEXT:B=0 
RETURN 

Program Listing 2. High Resolution Sphere. 



Line 220 computes the relative area of a 
tiny square of viewing surface. Look at the 
big sphere on your video or in Fig. 1. At the 
very center of this design, a plane tangent 
to the sphere is parallel with the page. Pre- 
tend that we draw a square on this plane. 
Take another plane, tangent to the sphere 
at some point other than the center. The 
plane is no longer parallel with the page. 
Again, pretend to draw a square on the im- 
aginary plane. This time it is not actually a 
square, but a rectangle or a parallelogram 
whose projection onto the page is a square. 

For a visual demonstration, take a piece 
of paper, ruler or any thin parallelogram. No 
matter what its dimensions are, if you look 
at it from a certain angle it approximates a 
square. Closing one eye helps. 

If you rotate this plane so that it is 
parallel to the page, you can see the true 
rectangular shape drawn on it and cal- 
culate its area using the standard formula: 
base times height. 

I use calculus to find the base and the 
height. Without deriving this formula, I will 
give you an equation into which you can 
plug two partial derivatives: 



Fig. 2. Paraboloid. 
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"NOTHING MATCHES ELIMINATOR 
R SHEER FUN. I CAN'T STOP 
ING!" 

PA T HENDERSON, . 

RCADER "*> 




Your the pilot of The 

Eliminator, a space fighter 

of the Defender Class. It has 

lighting fast response and is 

armed to the teeth with 

awesome firepower. 

■ 
But you're outnumbered! And 

your attackers are keen. Your 

only options are victory or a 

grave in space. 
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1981 DON DIXON 



"Of other common 

three dimensional shapes, my favorite 

is the paraboloid. " 



This equation is used directly in line 220. 
In the case of the sphere, the partial deriva- 
tive of X with respect to Y (holding Z con- 



stant) is Y/X. The partial derivative of X with 
respect to Z (holding Y constant) is TJX. 
These derivatives are both plugged into the 



10 


REM LOADER FOR SPHERE DATA 




15 


CLEAR2000 




20 


OPEN n I " ,1," SPHERE/DAT: 1" 




30 


LPRINTCHR$(27) ?CHR$(65) ;CHR$(7) 




40 


E=255:F0RQ=1T083 




50 


LPRINTCHR$(27) ;CHR$(75) ;CHR$(224) 


;CHR$(1) ; 


60 


FORW=1TO4 80 




70 


IFE=25 5THENLINEINPUT#1,S$:E=0 




80 


E=E+1:A=ASC(MID$(S$,E,1) )-35 




90 


IFPEEK (14312) O63THEN90 




100 POKE14312,A 




110 NEXT :LPRINT: NEXT 




120 CLOSE 1 






Program Listing 3. Loader for Sphere Data. 




Fig. 3 The Eye Killer. 
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equation and it's all set. 

Line 230 computes a value to step across 
the Y-axis to plot the next point. The step is 
inversely proportional to the area. 

Line 240 compares the step to a minimum 
value K, which is equal to half a graphics 
block. If the step is too small, it defaults to 
the value of K. The relative surface area at 
the perimeter of the design is theoretically 
infinite; without K the program would start 
like a snail climbing Mount Everest. 

The rest of the program adds the point to 
an array, tests for the end of a line and then 
prints a line when it is finished. When the 
entire design is drawn on the screen, the 
program enters an endless loop instead of 
printing an ugly Ready over the design. 

Other Shapes 

Of other common three dimensional 
shapes, my favorite is the paraboloid (Fig. 
2.) The equation of the paraboloid is: Z = X 2 
+ Y 2 . A hyperboloid of one sheet is given 
by: X 2 + Y 2 -Z 2 = 1. A hyperboloid of two 
sheets is: X 2 - Y 2 - Z 2 = 1. A quadratic 
cone is: X 2 + Y 2 = Z 2 . If you know any other 
interesting equations (such as a torus) I 
would be glad to see them. 

Listing 2 stores seven lines of data in an 
array, compresses the array, and writes it to 
a disk file before going on. 

There are several advantages to saving 
the data on disk. First, you can print when- 
ever you want. Second, once the disk file is 
created, I can quickly read it in and make as 
many copies of the design as I want. It takes 
about half an hour to read the file in, fairly 
reasonable considering that the disk file is 
156 sectors long. Third, a disk file gave me 
the opportunity to write one more program 
to read in ail data and print it on an Epson 
MX-80 printer with the graphics ROM (See 
Program Listing 3). 

Program Listing 4 generates the design 
shown in Fig. 3. I call it the Eye Killer; if you 
stare at it for a while you can guess why. 
This fairly common design is made of a 
bunch of fat sine waves. Listing 4, an at- 
tempt at structured programming, would 
look pretty good if line 290 weren't so long. 

The Epson graphics package uses eight- 
wire printing which requires a bit of extra 
work over seven wire designs. The TRS-80 
cannot output certain numbers to the 
printer. If you send a CHR$(0) to the printer 
the ROM will intercept it and pretend 
nothing happened. To get around this I 
directly POKE my data into the printer's 
memory mapped address 14312. Lines 
1000-1020 check the printer status and out- 



Forbidden Planet 





by William Demas 




Forbidden Planet 

The First Talking Adventure 

This adventure talks through 
the cassette port. You no 
longer need to have a voice 
synthesizer. This adventure 
takes you to a desolate pla- 
net where only your skill and 
your talking computer will 
help you survive. This is Part 
1 of a multipart talking adven- 
ture. Like no other ad ven- 
ture you have ever played. 
The first five people to solve 
Forbidden Planet will get the 
next adventure FREE. 

* Split Screen 

* Machine Language 

* Talks through Cassette Port 

* Supports Lower Case 

* Written by William Demas 

Price $39.95 

48K Disk Model I & III 



Forbidden City 

A Talking Adventure 

This adventure talks through 
the cassette port. This is a 
continuation of Forbidden 
Planet Adventure, but you do 
not have to have or play it to 
play Forbidden City. 

Once you enter, there is no 
turning back. Only with the 
help of yourtalking computer 
will you be able to defeat the 
city's master computer and 
the robot guards. 

• Talks through Cassette Port 

• Three Different Voices 

• Machine Language 



Price $39.95 

48K Disk Model I & III 
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— Dealers Inquires Invited— 

FANTASTIC 
SOFTWARE 

P.O. Box 27734 ,x 
Las Vegas, Nevada 891 26 

(702)362-1457 



"Noticing the beauty in this simple binary pattern 
I wrote Listing 5 to count forward. . . " 



100 


REM EYE KILLER 


110 


LPRINTCHR$(27) ;CHR$(65) ;CHR$(8) 


120 


DIM C(100) ,D(20) 


130 


FOR Q=0TO90STEP20 


140 


FORW=1TO10 


150 


C(Q+W)=1 


160 


NEXT 


170 


NEXT 


180 


FOR L=1TO80 


190 


FOR D=0TO7 


200 


X=X+.l 


210 


S(D)=SIN(X)*35+35 


220 


NEXT D 


230 


LPRINT 


240 


A=27:GOSUB1000 


250 


A=7 5:GOSUB1000 


260 


A=224:GOSUB1000 


270 


A=1:GOSUB1000 


280 


FORQ=1TO20 


290 


D(Q)=C(Q+S(7))+C(Q+S(6))*2+C(Q+S(5))*4+C(Q+S(4))*8+C(Q+S 


(3)) 


*16+C(Q+S(2) ) *32+C(Q+S(l) ) *64+C(Q+S(0) ) *128 


300 


NEXT Q 


310 


F0RQ=1T024 


320 


FORW=1TO20 


330 


A=D(W) 


340 


GOSUB1000 


350 


NEXT W 


360 


NEXT Q 


370 


NEXT L 


380 


END 


1006 


IFPEEK(14312) O63THEN1000 


1016 


POKE14312,A 


1026 


RETURN 


1 


Program Listing 4. Eye Killer. 



100 


REM MIRROR 


.112 


DIM N(255) ,R(255) 


120 


FORQ=0TO255 


125 


PRINTQ; 


130 


N(Q)=Q 


140 


FORW=0TO7 


150 


IF Q AND 2[W THEN R(Q) =R(Q) +2 [ (7-W) 


160 


NEXT W 


170 


NEXT Q 


180 


LPRINTCHR$(27) ;CHR$(65) ;CHRS(8) ; 


190 


F0RB=1T08 


200 


GOSUB2000 


210 


FORQ=255TO0STEP-1:A=N(Q) :GOSUB10 00 :NEXT 


220 


FORQ=0TO255:A=N(Q) :GOSUB1000 : NEXT 


230 


GOSUB2000 


2 40 


FORQ=0TO255:A=N(Q) :GOSUB1000 :NEXT 


250 


FORQ=255TO0STEP-1:A=N(Q) :GOSUB1000 :NEXT 


260 


GOSUB2000 


27 


FORQ=0TO255:A=R(Q) : GOSUB1 000 : NEXT 


280 


FORQ=255TO0STEP-1:A=R(Q) :GOSUB1000 : NEXT 


290 


GOSUB2000 


300 


FORQ=255TO0STEP-1:A=R(Q) :GOSUB1000 :NEXT 


310 


FORQ=0TO255:A=R(Q) : GOSUB1 000 : NEXT 


320 


NEXT B 


330 


LPRINT: END 


1000 


IFPEEK(14312) O63THEN1000 


1010 


POKE14312,A 


1020 


RETURN 


2000 


LPRINT 


2005 


A=27:GOSUB1000 


2010 


A=76:GOSUB1000 


2020 


A=0:GOSUB1000 


2030 


A=2:GOSUB1000 


2040 


RETURN 




Program Listing 5. The Mirror. 



put a byte. A USR call might have been 
faster, but I wanted to avoid assembly 
language. 

To convert these programs to another 
printer such as the Base 2 or the Paper 
Tiger, keep in mind that the print wires are 
upside down on the MX-80. In other words, 
wire one is at the bottom and wire eight is at 
the top. 

I will briefly describe converting the Eye 
Killer to work on a Base 2 printer. The Base 2 
uses seven wires, so line 190 should read 
FOR D = 0TO6. Since the Base 2 has wire 1 at 
the top, line 290 should have the subscripts 
7,6,5,4,3,2,1,0 reversed to 0,1,2,3,4,5,6 with 
the last term omitted. The control codes in 
lines 240-270 are changed to 27, 99 (only 
two are needed). But the control codes in 
line 110 need to be 27, 49, 27, 98, 14. With a 
little string packing this program could real- 
ly go fast on the Base 2 (seven minutes). On 
the MX-80 it took 23 minutes, slow because 
of my POKEing method. The column align- 
ment is where the MX-80 has its great ad- 
vantage in graphics. 

Program Listing 5 produces Fig. 4, which 
I call the Mirror. I produced this design by 
accident when testing the printer to see 
what codes make it past the ROM. I typed in 
a one-line For... Next loop to output num- 
bers from to 255; it made a pattern just like 
the first half of the second line. Noticing the 
beauty in this simple binary pattern, I wrote 
Listing 5 to count forward, backward and 
upside down. It prints these different pat- 
terns in groups of eight for eight repetitions. 
The entire design only takes twelve minutes 
from start to finish. ■ 
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Fig. 4. The Mirror. 

Reader Service tor lacing page ^47- 



NEW HIOHEi 



High-speed printer 

The Heath/Zenith 25 Printer is a heavy-duty, high-speed 
dot matrix printer that gives you sharp, clear printouts. It 
prints crisp, clear copy at speeds over 150 characters per 
second with quiet smoothness. 
Baud rates from 1 10 to 9600 are user-selectable. 

Versatile printer 

The 25 prints the entire 95-character ASCII set in upper 
case and lower case with descenders, in a 9x9 matrix. Also, 
33 block graphic characters - which are compatible with 
the Heath/Zenith 89 All-ln-One Computer and the 19 Smart 
Video Terminal - let you create graphs and charts. All func- 
tions and timing are microprocessor-controlled. 
Plug-in ribbon cartridges make ribbon replacement a 
no-mess snap. 

The 25 works with most computers and terminals - 
using an RS-232C Serial Interface or a 20 mA 
current loop with handshaking control signals. 



Low-priced printer 

The 25 has all the features you've been looking for in a high 
quality, high-speed dot matrix printer - for only $1095 in kit 
form, or for only $1595 assembled and tested. 

Free demonstration awaits you at 
your Heathkit Electronic Center t 

Pick the store nearest you from the list below. And stop in 
today for a demonstration of the new Heath/Zenith 25 Printer. 
If you can't get to a store, send $1 .00 for the latest Zenith 
Data Systems Catalog of assembled commercial computers. 
We'll also send you a free copy of the latest Heathkit® 
catalog. Write to Heath Company, Dept. 035-874, Benton 
Harbor, Ml 49022. 



Your strong partner 






WORDS om 

3 
30 

30 

30 & * l ^~~ 






HP 




IMD 

SECOND 



*150 characters per second 



Visit your Heathkit Electronic Center! 

Where Heath/Zenith Products are displayed, sold and serviced. 



PHOENIX, AZ 

2727 W.Indian School Rd. 
602-279-6247 
ANAHEIM. CA 
330 E. Ball Rd. 
714-776-9420 

CAMPBELL. CA 

2350 S. BascomAve 

408-377-8920 

ELCERRIT0.CA 

6000 Potrero Ave. 

415-236-8870 

LA MESA, CA 

8363 Center Dr. 

714-461-0110 

LOS ANGELES, CA 

2309 S. Flower St. 

213-749-0261 

POMONA, CA 

1555 N. Orange Grove Ave 

714-623-3543 

REDWOOD CITY. CA 

2001 Middlefield Rd. 

415-365-8155 



SACRAMENTO, CA 

1860 Fulton Ave. 
916-486-1575 

WOODLAND HILLS. CA 

22504 Ventura Blvd. 
213-883-0531 
DENVER, CO 

5940 W. 38th Ave. 

303-422-3408 

AV0N.CT 

395 W. Main St. (Rt. 44) 

203-678-0323 

HIALEAH.FL 

4705 W. 16th Ave. 

305-823-2280 

PLANTATION, FL 

7173 W. Broward 

305-791-7300 

TAMPA, FL 

4019 W.Hillsborough Ave 
813-886-2541 



n vd 



ATLANTA, GA 

5285RoswellRd. 
404-252-4341 

CHICAGO.IL 

3462-66 W Devon Ave. 
312-583-3920 
D0WNERSGR0VE.IL 
224 0gdenAve. 
312-852-1304 
INDIANAPOLIS, IN 
2112 E. 62nd St 
317-257-4321 
MISSION, KS 
5960 Lamar Ave. 
913-362-4486 
LOUISVILLE, KY 
12401 Shelbyville Rd 
502-245-7811 

KENNER, LA 

1900 Veterans Mem.Hwy. 
504-467-6321 



BALTIMORE, MD 

1713E. JoppaRd. 
301-861-4446 

ROCKVILLE.MD 

5542 Nicholson Lane 

301-881-5420 

PEABODY, MA 

242AndoverSt (Rt.114) 

617-531-9330 

WELLESLEY. MA 

165 Worcester Ave. (Rt. 9) 

617-237-1510 

DETROIT, Ml 

18645 W. Eight Mile Rd. 

313-535-6480 

EAST DETROIT, Ml 

18149 E Eight Mile Rd. 

313-772-0416 

HOPKINS, MN 

101 Shady Oak Rd. 

612-938-6371 



ST. PAUL, MN 

164 5 White Bear Ave. 
612-778-1211 
BHIDGETON.MO 
3794 McKelvey Rd 
314-291-1850 

OMAHA, NE 

9207 Maple St 
402-391-2071 

ASBURY PARK, NJ 

1013 State Hwy. 35 
201-775-1231 
FAIR LAWN, N J 
35-07 Broadway (Rt. 4) 
201-791-6935 

AMHERST, NY 

3476 Sheridan Dr. 
716-835-3090 
JERICHO, LI, NY 

15 Jericho Turnpike 
516-334-8181 



ROCHESTER. NY 

937 Jefferson Rd. 

716-424-2560 

N. WHITE PLAINS, NY 

7 Reservoir Rd. 
914-761-7690 

CLEVELAND, OH 

28100 Chagrin Blvd. 
216-292-7553 

COLUMBUS. OH 

2500 Morse Rd. 
614-475-7200 

TOLEDO. OH 

48 S Byrne Rd 
419-537-1887 

WOODLAWN.OH 

10133 Springfield Pike 
513-771-8850 

OKLAHOMA CITY, OK 

2727 NW. Expressway 
405-848-7593 



FRAZER.PA 

630 Lancaster Pk. (Rt. 30) 
215-647-5555 

PHILADELPHIA. PA 

6318 Roosevelt Blvd. 
215-288-0180 

PITTSBURGH. PA 

3482 Wm.Penn Hwy. 

412-824-3564 

WARWICK. Rl 

558 Greenwich Ave. 

401-738-5150 

DALLAS. TX 

2715 Ross Ave. 

214-826-4053 

FORT WORTH, TX 

6825-A Green Oaks Rd. 

817-737-8822 

HOUSTON, TX 

1704 W. Loop N. 
713-869-5263 



tHeathkit is a registered trademark of Heath Company. Heath Company and Veritechnology Electronics Corporation 
are wholly-owned subsidiaries of Zenith Radio Corporation. Heathkit Electronic Centers are operated by Veritechnology Electronics Corporation. 



SAN ANTONIO, TX 

7111 Blanco Rd. 
512-341-8876 

MIDVALE. UT 

58 East 7200 South 
801-566-4626 
ALEXANDRIA. VA 
6201 Richmond Hwy. 
703-765-5515 

VIRGINIA BEACH. VA 

1055 Independence Blvd. 
804-460-0997 

SEATTLE, WA 

505 8th Ave. N. 
206-682-2172 
TUKWILA. WA 
15439 53rd Ave S. 
206-246-5358 
VANCOUVER, WA 
516S.E ChaklovDr. #1 

206-254-4441 
MILWAUKEE, Wl 

5215 W Fond du Lac 
414-873-8250 

CP-208 



UTILITY 



The Key Box 

Disk Basic 
Model i 
32K RAM 
TRSDOS 



This graphics utility will make your screen artful 



Back 



r % AJk 



Drawing Board 



Irwin Rappaport 

24 Hemlock Hill Road 

Upper Saddle River, NJ 07458 

Many of you may find pro- 
gramming graphics to be 
among the most tedious, boring 



and frustrating aspects of com- 
puters. You love designing 
those fancy displays and have 
some creative ideas in graphic 
layout, but getting them from 
the drawing board into a pro- 
gram is always a problem. From 



Program Listing 




??ie DATA 
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IS DATA 

2 a DATA 




















25 DATA 
38 DATA 




















35 DATA 
40 DATA 
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45 DATA 
50 DATA 




















55 DATA 
60 DATA 




















65 DATA 
70 DATA 




















75 DATA 

bU UATA 




















85 'DATA 
90 DATA 
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Program continues 



this time forth, you can design 
your creations directly on the 
screen. Use the keyboard to en- 
ter each masterful stroke, se- 
lected from among the graphic 
blocks and ASCII characters 
available. And then, when you 
are satisfied with your display, 
the computer will create a pro- 
gram segment that will recreate 
the screen graphics on demand. 

Your first reaction to the pro- 
gram listing may be one of con- 
cern that the printer missed your 
issue in a few places. Actually, 
lines 10 through 165 are the data 
lines that will become the basis 
of your graphics program. They 
are blank, waiting for the creat- 
ing program to be run, when 
they will be filled with the ASCIi 
codes corresponding to what 
was on the screen. 

Program action begins at line 
1000. From that point to the 
listing's end is the complete rou- 
tine for working on the screen. 
The segment from line 300 to 
line 410 is the routine that will 
create your graphics program. 
Beyond the last blank data line 
at 165, the remaining lines form 
the routine that will turn the 
gathered data into graphics. 



Rules for Entering the Program 

All lines through line 165 must 
be typed exactly as shown. 



• Type line number 10. 

• Type the word data. 

• Type three spaces. 

• Type one comma. 

• Type three spaces. 

• Type another comma. 

• Continue in this manner until 
exactly 56 groups of three 
spaces and 56 commas have 
been typed. 

• Note that after the last com- 
ma there are no spaces. The line 
ends with a comma. 

• Press enter and then type line 
number 15. 

• Do exactly the same for line 
15, except that only eight groups 
of three spaces and eight com- 
mas will be typed. 

• Now repeat the procedure 
right through line 165— a 56- 
unit line followed by an eight- 
unit line. 

As you can see, each two pro- 
gram lines represent 64 charac- 
ters or one complete screen line, 
and there are 16 screen lines. 



Directions for Use 

With the program loaded, us- 
er entry is at line 1000, so run 
1000. A twinkling asterisk will 
appear at position zero (3C00H) 
on your screen. That's the cur- 
sor, which can be moved for- 
ward or backward by pressing 
the right or left arrow keys. To 
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DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIV 
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to • now only Jiyy.VS complete 
40-track, double/single density 

for 

Model I and III 
(with power supply and case) 



ORDER NOW 



SUPPLY IS LIMITED 



Diskettes (box of 10) 
2 Drive Cable 
4 Drive Cable 



$25.00 
$25.00 
$35.00 



617- 



Please charge to my 
Card # 



_Visa 



_MC 
Exp. Dale 



Name 



Enclosed is a chock for $ 

(Please allow 2 weeks for personal checks.) 

D Model I Drive 12 3 

D Model III Drive 2 3 

□ ? Di ive Cable □ 4 Drive Cable 



Address 



C';;tv 



State 



Zip 



Signature 



FOB Framingham 



Mass. residents add 5% sales tax 



WARE 



ONE STALKER LANE, FRAMINGHAM, MA 01 701 
(617)872-9090 
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'TRADEMARK TANDY CORPORATION 
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•See List of Advertisers on page 402 
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move the cursor more than one 
position at a time, type the re- 
quired number of spaces and 
press the arrow for the direction 
desired. 

As you enter a quantity for a 
move, you will see the numbers 
appearing at the lower right of 
the screen. Any value from one 
to 1023 may be entered. If you 
should overdo it and ask the cur- 
sor to go beyond the screen lim- 
its, it will simply move to the end 
of the screen. That holds for 
both forward and backward 
moves, with the cursor going to 
(Print®) positions 1023 or zero 
respectively. To move exactly 



complished by P and space. The 
spaces may be printed one at a 
time or in a series of up to 255. 
When you have patterned the 
screen with a magnificent 
graphics structure and are 
ready to record it, press the up- 
arrow. Now you will see each 
ASCII value appearing in the 
lower right of the screen show- 
ing you that the characters are 
being programmed into the 
blank data statements at the be- 
ginning of the program. It will 
take a few minutes to work. The 
screen will then be cleared and 
your graphics will roll back ex- 
actly as they were designed. 



'Spaces are always present by default 
since the screen is filled 

wuh them at the start," 



one line upordown, enter64and 
the appropriate arrow or 128 for 
a two line move, and so on. 

To print a keyboard character 
at the cursor position, enter P. 
The cursor will stop twinkling. 
Then enter the character and it 
will appear, with the cursor mov- 
ing over one space. 

To print a graphics character 
block, enter G. Again, the cursor 
will be motionless. Now enter 
the graphic block desired: 

• For graphics characters 129- 
154, press keys A-Z in alpha- 
betical order. 

• For characters 155-188, press 
A-Z with the shift key down. 

• For characters 181-189, press 
numbers 1-9. 

• For character 190 press 0, and 
for character 191 press the colon. 

Should you want to print a se- 
ries of the same character, enter 
the amount you want (just as 
you would to move the cursor), 
enter P or G and then the charac- 
ter. You may print up to 255 re- 
peated characters at one time. If 
you should inadvertently ask for 
more than 255, your request will 
be ignored. 

Spaces are always present by 
default, since the screen is filled 
with them at the start. The 
space bar, however, will cause a 
space to be printed at the cursor 
position, and so deletion is ac- 
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You may now delete all pro- 
gram lines from 300 to the end 
and be left with a program for 
printing your screen format. The 
program may be used as is or 
applied as needed for another 
program. If you have a disk sys- 
tem, the graphics program can 
be renumbered to fit into a host 
program, saved with the A op- 
tion (ASCII), and merged into the 
host. You can, of course, adapt 
the program to feed graphics to 
the screen one line at a time or 
in any other way that suits the 
need. Because of the easy-to- 
see structure of the data state- 
ments, it is relatively simple to 
vary the print to screen method. 

DOS Versus Level II 

Look at the program-creating 
segment (lines 300-410). At line 
310, S is initialized at one less 
than the first screen address, 
and PR is set at 27176 (6A28H). 
The 6A28H address is for disk 
systems, and the user must en- 
ter at the file's question. Level 
II Basic users must substitute 
17133 (42EDH) in place Of 27176. 

The program PEEKs the 
screen one location at a time at 
line 340. The value of P is the 
ASCII value of the character 
found but expressed as a binary 
(or hex) number. The value P is 
then printed at screen location 
1015. At Iine350, the numberdis- 
played at 1015 is PEEKed, digit 

7982 



Program continued 



105 
110 



115 
120 



125 
130 



135 
140 



145 
150 



155 
160 



DATA 
DATA 



DATA 
DATA 



DATA 
DATA 



DATA 
DATA 



DATA 
DATA 



DATA 
DATA 



165 DATA 

170 CLS 

180 FOR X=l TO 16 

190 FOR Y=l TO 64:READ A: PRINT CHR$(A) ; iNEXT V 

200 NEXT X 

210 GOTO 210 

300 REM *** END OF CREATED GRAPHICS PROGRAM ... BEGINNING OF CRE 

ATING PROGRAM *** 

310 S=15359:PR=17133 

320 FOR L=l TO 16 

330 FOR X=l TO 64:S=S+1 

340 P=PEEK(S) :PRINT91015," " ( :PRINTE'1P1S,P; 

350 P1=PEEK(16376) :P2=PEEK (16377) :P3-PESK I lt3 73) 

360 PR=PR+l:POKE PR, PI :PR=PR+1 : POKE PR,P2 :PR=PR+1 : POKE PR,P3:PR- 

PR+1 

373 IF X=56 THEN PR=PR+6:ELSE IF X=64 THEN PR=PR+6 

380 NEXT X 

390 NEXT L 

400 CLS 

410 GOTO 10 

1000 REM *** BEGINNING OF SCREEN WORKING PROGRAM *** 

1010 CLEAR 3000 

1020 CLS :C=0 

1030 C1$=STRING$(255,"" ") : C2$=STRING$(255 , ■ ■) : C3S=STRINGS(255, " 

■) :C4S=STRINGS(255,* ') 
104C PRINT@0,C1S;C2S;C3S;C4$;:C*C+A1:IF O1014 THEN C=1014:ELSE 
IF C<0 THEN C=0 
1050 P=PEEK(1536D+C) :A1=0 
1060 PRINT@C,"*"; 

1070 A$=INKEY$ :IF AS="" THEN FOR X=l TO 5:NEXT X:POKE 15360+C,P 
:FOR X=l TO 5:NEXT X:GOTO 1060 

1080 A0=ASC(AS) :IF A0O48 AND VAL(A$)*C THEN 1200 
1090 A=VAL(A$):IF A1---0 THEN A1=A:GOTO 1110 
1100 A1=(A1*10)+A 
1110 PRINT@1015,A1;:GOTO 1070 
1200 REM *** INSTRUCTION TO BE FOLLOWED «*• 
1210 IF A1=0 THEN Al=l 

1220 IF A0 = 9 THEN 1300 :ELSE IF A0 = 8 THEM 1260 : £\.V,t: IF A0 = 91 VII 
EN 310 

1230 IF Al>255 THEN PRINT01Q15 ," •; :A«BrAl»0:GOTO 1040 
1240 IF A0 = 80 THEN 1400 :ELSE IF A0=71 TFJRN 1500 
1250 A1=0:PRINT@1020," ";:GOTO 1040 
1260 IF C-AK0THEN Al-C 
1270 A1=-A1 

1300 PRINT81020," ";:GOTO 1040 
1400 REM *** PRINT KEYBOARD CHARACTER •** 
1410 A$=INKEY$ :IF A$=*" THEN 1410 :ELSt; A0*ASCiA$) 
1420 IF A0<32 OR A0>90 THEN 1410 
1430 C$=STRING$(A1,A$) 
1440 GOSUB 1600 :GOTO 1040 

1500 REM *** PRINT GRAPHICS CHARACTER *«* 
1510 A$=INKEY$:IF A$="" THEN 1510 :ELSr. AO-A^CIAS) 
1520 IF A0>64 AND A0<91 THEN A0=A0+64 
1530 IF A0>96 AND A0<123 THEN A0=A0+58 
1540 IF A0>48 AND A0<58 THEN A0=A0+132 
1550 IF A0=48 THEN A0=A0+142 
1560 IF A0=58 THEN A0=A0+133 
1570 IF A0<129 THEN 1510 
1580 C$=STRING$(A1,CHR$(A0)) 
1590 GOSUB 1600 sGOTO 1040 

1600 REM *** MANIPULATE STRINGS FOR SCREEN FORMAT *•• 
1610 IF C>254 THEN 1640 
1620 C0=C:IF C0+A1<=255 THEN C0S=Cl$:GCSUa 1710 : CI $-C2$: RETURN 

1630 

URN 

1640 

1650 

URN 

1660 

URN 

1670 

1680 

URN 

1690 

URN 

1695 

1700 

1710 



17 20 
1730 



C0$=C1$:GOSUB 1720 :C1S=C0$:C0$=C2S:GOSUB 1730 :C2$=C0S:RET 

IF O509 THEN 1670 

C0=C-255:IF C0+A1<=255 THEN C0$=C2$:GOSUB 1710 :C2$=C0$:RET 

C0$=C2$:GOSUB 1720 :C2$=C0$:C0$=C3$:GOSUB 1730 :C3$=C0S:RET 

IF C>764 THEN 1695 

C0=C-510:IF C0+A1<=255 THEN C0$=C3$:GOSUB 1710 :C3$=C0$:RET 

C0$=C3$:GOSUB 1720 : C3 $=C0 $: CO $«C4$: GOSUB 1730 :C4$=C0$:RET 

C0=C-765:IF C0+A1>255 THEN Al=255-C0 

C0=C-765:C0S=C4$:GOSUB 1710 :C4$=C0$: RETURN 

C0$=LEFT$ (C0S, CO) +LEFTS(CS,A1)+RIGHTS (COS, 255-C0-A1): RETURN 

C0$=LEFT$(C0$,C0)+LEFTS(C$,255-C0) : RETURN 
C0$=RIGHT$(C$,Al+C0-255)+RIGHT$(C0$,255-Al-C0+255) :RE TURN 



Now there's a revo- 
lutionary new data 

base manager 
and operating system 
with an easy to use 
conversational 
business language. 

This is the first truly 
relational system with 
full conversational 
JOIN capabilities so 
that you can inter- 
actively establish 
hierarchical or net- 
work structures. 

Available on the 
TRS/80 Model II or 
DEC 11/23. Data Ace 
includes its own 
operating system. 

EASY TO USE con 

versational commands 
to set up Data Relations 
and Fields which may 
be CHANGEd without 
altering application work. 

ENGLISH-LIKE 
LANGUAGE to ADD, 
CHANGE, DELETE, LIST, or 
JOIN relations or data 
on the fly generating 
analytical or exception 
reports immediately. 

AMAZING PER- 
FORMANCE and 
response because of 
the memory resident 
DATA DICTIONARY 
which provides rapid 
access to the Relations 
you want. 

COMPREHENSIVE 
ERROR TRAPPING with 
powerful HELP messages 



you may request accord- 
ing to the context of your 
commands resulting in a 
system which is virtually 
self- teaching. 

FULL TEXT 
PROCESSING EDITOR 
which helps you store, 
write, and change pro- 
grams (written in the 
specially provided Data 
Manipulation Lan- 
guage), helps you store 
or change those COM- 
MANDS you may wish 
to use later or simply 
store and correct text 
for letters or memos. 

USER VIEWS pro- 
vided by PROCEDURE 
with complete control 
at the EIELD level. 



MULTI TERMINAL USE 

supported on DEC 11/23 
with CONCURRENT use of 
records within a database 
and full INTERLOCK 
handling- warm restart with 
TRANSACTION LOGGING, 
control of synchronization 
points and PASSWORDS. 

BRING MAINFRAME 
POWER TO YOUR MICRO- 
PROCESSOR 

This is the first appli- 
cation development tool 
to be provided on 8 bit 
and 16 bit computers with 
a full range of ENGLISH-like 
conversational power 
normally only available 
on large mainframes 
which demand mega- 
bytes of memory. 






IW AGE 



YES! Show me how smart you are. 

:: Send me a FREE copy of the DATA ACE information 
leaflet. 

. Send me the DATA ACE User Manual covering the Rela- 
tional Data Base Manager, the Editor, the conversational 
data retrieval and command facilities and the interac- 
tive data definition language. My check for $75.00 is 
enclosed. Mail to: Aregon Systems, Inc. 1911 Wright Circle 
Anaheim, Ca. 92806, (714) 634-9012 



! 



i 



The SMART Data Base Management 
System 




Name 

Company 

Address 

City 



*> OFFICE \00y 

SYSTEMS ^* 



£V^ OFFICE 



COMPUTER INTERFACES 
& PERIPHERALS 



+ ANNOUNCING: POS 800/1 600 UNIVERSAL TAPE DRIVE CONTROLLER* 
This "black box" controller/formatter is designed as a standalone interface 
between industry-standard NR71 (800 BPI) and PF ( 1600 BPI) tape drives and a 
parallel or RS-232 serial port of an 8-bit ASCII computer. Serial interface emulates 
a terminal vis-a-vis your system software; parallel interface emulates a reader/punch 
and responds to CPM-style PIP commands from your computer. Tape speeds 12.5, 
25 and 37.5 ips. Interface is microprocessor-controlled, includes power supply and 
4K or 16K buffer memory. Prices and details available upon request. 

• POS-100 NRZ1 TAPE DRIVE CONTROLLER/FORMATTER - Now your 
micro can read and write IBM/ANSI compatible NRZ1 format 9-track magnetic 

tapes. The POS-100 consists of S -100 bus card, 6' ribbon cable, tape drive controller 
card, cable to Pertec-Standard NRZ1 Tape drive, plus documentation and Z-80 or 
8080 software (specifiy). Power is derived from tape drive and S-100 bus. Ship Wt.: 
10 lbs. Suggested Retail Price $995.00 

• POS DAISY WHEEL PRINTER INTERFACE for TRS-80 - Will drive Diablo 
HyType I, HyType II, and Qume Q and Sprint 3 printers. Includes IK user- 
available memory for custom print routines (such as graphics, bidirectional print- 
ing, etcj. Programmed to respond to print commands from BASIC ELECTRIC 
PENCIL'™, and SCRIPSIT™ software. Draws its power from printer. Ship wt.: 

5 lbs. Price $250.00 

Cables, each (Specify HyType I, HyType II, or Qume) $ 25.00 

• POS ASCII INTERFACE for IBM I/O SELECTRIC -- This Centronics-style 
parallel printer interface will drive an IBM Model 731 or 735 I/O typewriter 

(EBCD and Correspondence codes). No software needed. Features on-board EPROM 
which holds up to 8 ASCII-to-IBM code tables for different type spheres. Closed- 
loop operation runs at maximum printer speed; stops and starts on a single character 
without loss of data. Requires +12VDC and »SVDC power source. Ship wt : 

5 lbs. Price $249.95 

Power Supply (<5VDC, +12VDC, +24VDC for Solenoids on Printer) . . . .$ 49.95 

• CONVERT OFFICE SELECTRIC TO I/O TYPEWRITER Kit includes 
assembled solenoids, switches, wire harness, magnet driver PCB plus instructions 

for installation and mCPU interface. Price $ ISO. 00 

• "FORMALINER" Variable Width Forms Tractor for 15" Selectrics . . . $95.00 

• GTE Model 560 ASCII SELECTRIC I/O Terminal - With RS-232 Serial Interface 
and digital cassette deck for use as memory typewriter. Ship wt.: 100 lbs. 

Price, tested and adjusted $1,195.00 

• POS ASCII IBM SELECTRIC PRINTER - 15" Selectric from GTE terminal 
cleaned and adjusted with POS Centronics-style ASCII printer interface. UC/LC, 

carbon and fabric ribbons. Compatible with TRS-80, Apple, SOL and other CPU 
parallel printer ports. Ship wt.: 75 lbs. Price . . ■ $895.00 

PACIFIC OFFICt SYSTEMS -164 

2265 Old Middlefield Way • Mountain View, CA 94043 • (415)493-7455 



by digit. Finally, line 360 POKEs 
each digit into the program loca- 
tions set up by the blank data 
statements. In that way, the bi- 
nary-expressed ASCII is con- 
verted to ASCII-expressed 
ASCII, which is required by Ba- 
sic in data statements. 

In the created program, note 
line 190 reads DATA and prints it 
as a sequence of CHR$s. The 
printing is slow. You can revise 
line 190 as follows; 

DIM A$(16):FOR Y = 1 TO 64:READ 
A:A$(X) = A$(X) + CHR$(A):NEXT Y 

That will fill 16 strings, each 
representing a line on the 
screen. It takes time to initialize 

strings but once they have been, 
they are always available during 
a program run. To print the 
graphics, simply print the com- 
plete set of strings: 

(FOR X = 1 TO 16: PRINT A$(X);:NEXT X) 

print any string in any order. 
Printing previously evaluated 
strings is a faster procedure, as 



you will notice by experimenting 
with both the method in the pro- 
gram listing and this alternate 
one. 

The routine for creating the 
screen graphics is merely a 
string manipulation process. 
Four strings hold all the screen 
information (C1$,C2$,C3$,C4$). 
These strings are cut and past- 
ed as demanded by the user's 
cursor and printing orders. The 
programming is fairly ordinary 
and can be followed if you have 
some background in manipula- 
tion of string segments. Line 
1600 to the end performs the 
routines to keep track of the 
screen. The user instruction is 
checked to determine the make- 
up of the four C strings, and the 
appropriate strings are evalu- 
ated as needed. At 1500 through 
1590, the graphics ASCII value is 
created by adding the required 
amount to the keyboard ASCII. 

One final point: The last half 
of the last screen line is used as 
a work area, so you have to add 
any data values (ugh!) manual- 
ly. ■ 
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provides you with more information on your TRS-80* than any other single source 

gives you 20-30 new programs to use each month 

reviews equipment and software so you know what or what not to buy 

gives you the truth about the TRS-80 — its good points and its limitations 

(80 Microcomputing is not affiliated with Tandy) 

lets you save money— lots of it— by comparison shopping within the ad pages 

clues you in on how other TRS-80 owners are using and updating their systems 

lets you in on what is really happening in the industry 

brings you Wayne Green's outspoken 

and often controversial editorials every 

month 

and best of all it gives you a no risk 

subscription offer- 



Subscribe today— if you are not satisfied with 
the first issue— write "cancel" across your in- 
voice and send it back. The 80 Microcomputing 
is yours to keep. 




Canadian 1 year only/US funds $27.97 Foreign Surface 1 year only/US funds $44.97(Foreign Air, please inquire.) 

80 Microcomputing • PO Box 981 • Farmingdale, N.Y. 11737 

*TRS-80 is a trademark of Tandy 
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HARDWARE 



Expand your color machine's memory by doing-it-y our self. 



Smarten 




r Computer! 



Richard Esposito 
62 Meadow Road 
Frostburg, MD 21532 

Bertram A. Thiel 
159 West Main Street 
Frostburg, MD 21532 

The day I ordered my 16K Level II TRS-80 
Color Computer I also ordered eight 16K 
dynamic RAMs. The additional memory in- 
stallation was amazingly simple. 

Unplug the machine, turn it upside down 
and loosen the five screws holding the case 
together. The fifth screw is under the black 
warranty label. Place a piece of masking 
tape over each hole with the screw still in it, 
so they will not fall out. 

With the computer right-side-up, remove 
the top cover. Unplug the keyboard and put 
it aside to avoid damaging the cable con- 
necting it to the PC board. After clipping 
two plastic cable ties, remove the metal 
shield covering the section of the board that 
contains the Central Processing Unit (CPU), 
Synchronous Address Multiplexer (SAM), 
Peripheral Interface Adapters (PIA's) and 
memory. 

Place all parts on a sheet of aluminum 
foil to avoid static electricity damage. Make 
an electrical contact with the computer 
Radio Frequency (RF) shield and the solder- 
ing iron to ensure that no static electricity 



The Key Box 

Install additional 
16K RAM on a 
16K Level II TRS-80 
Color Computer 



causes a burnout (see Photo 2). Remove the 
RAMs, plug in the Godbout memory, and re- 
connect the keyboard and power connec- 
tions to test the chips (leave the shield off 
for this test only). With the top cover off, 
power up, and type ?MEM to receive the 
8487 OK message. 

Checking It Out 

At this point, I loaded and ran a large 
graphics program that uses all available 
memory. It worked fine; my new chips were 
probably all right. 

After removing the Godbout memory 
chips, carefully bend them (except pin 4) in- 
ward a little so they hug the Radio Shack 



memory chips. Bend pin 4 out at a 45 degree 
angle for later attachment. With all the 
memories now outside of the machine 
place the new memory chips piggyback 
over each of the Radio Shack memory chips 
(notched ends together) and solder them in 
place (except for pin 4). After all chips are 
soldered and carefully checked for solder 
bridges and cold solder joints, wire the 
eight pin 4s together in daisy-chain fashion, 
and solder them to ensure connection. 
Leave a wire loop between each one for 
easy installaton. Leave a 10-inch piece of 
wire on the last chip for later attachment to 
the SAM chip. 

Reinsert the modified memory chips into 
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Photo 1. Open TRS-80 Color Computer shows IC layout, original memory chips are re- 
moved, ready for piggyback operation. Aluminum foil prevents static electricity damage. 

Reader Service for lacing page s506— 
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JUNE 7-10 • ASTROHALL • HOUSTON; TEXAS 



^506 



/T 



ADVANCING PROFESSIONALISM 



)) 



Register now for the most prestigious 
computer conference in the world. 

* The; conference that has progressed in 
quality each year since its inception. 

* The conference that continues its dedication 
to Advancing Professionalism — through an 
intensified emphasis on excellence in: 

Plenaries and technical sessions 
Professional Development Seminars 
Services to international visitors 
Exhibits of the latest technological advances 



• The conference that this year honors the 
developers of FORTRAN, the pioneer computer 
language. 

To pro-register, just clip and mail this coupon. 
You'll save money on full conference registra- 
tion. And you'll avoid time-consuming registra- 
tion lines at the 1982 National Computer 
Conference. 

* The one computer conference you can't 
afford to miss. 



********+**********************lHt*********** ***••*•••*********•**** ***************** 



Yes, I want to pre-register for NCC '82. 
Please send me information. 



ivr^m*» 








TitiP mr" : -1^. 


f'nmp;|nv 






r ^ 


Address 






Mail to: i\CC 82 
AFIPS 


City 


State 


Zip 


Box 9658 
Arlington, VA ?,?.?,09 



F S J 

* 

* 
* 
* 
* 

* 
+ 



"The graphics program 

could now access 

three times as much memory. 

their sockets, making sure the notches are 
aligned properly (see Photo 2). Cut the 
10-inch wire to the proper length and solder 
it to pin 35 of the SAM chip (the number on 
the chip is 6883). 

The Final Connection 

Reconnect the keyboard, power and 
antenna and turn it on. In answer to the 
memory question the computer will print 
24871, an increase of 16K (16,384) over the 
original 8487. Reassemble the computer, 
making sure to replace the metal RF shield. 

I ran the graphics program as before, but 
now it could access three times as much 
memory. 

I was relieved that my machine contained 
a genuine Motorola 6809E; it was rumored 
that early versions of the TRS-80C had 
stripped-down Tandy chips. Some early 
models of the TRS-80C machines came 
without IC U16, and the 32K modification 
may not work unless this chip is installed. 
My machine, serial number 0000991, had 
the chip; make sure yours can support 32K 
before ordering extra memory 




Photo 2. 32K memory array installed and wire soldered to pin 
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Reader Service lor lacing page s9— 



BUSINESS 
COMPUTING 



TM 



THE NEW PUBLICATION 

FOR SERIOUS SMALL BUSINESS 

COMPUTER USERS 



LEARN HOW TO REALLY USE YOUR COMPUTER 



THE TRUTH ABOUT SOFTWARE 
b NEW COMPUTERS b RELATED PRODUCTS 



PUBLISHED BY ICQKIPlJTRDWXCSi 



NNCM JWM '■'-'• '•• : '■-•'- ' : - : 

ItlllllltlllllllllllllllHIIIIIIIIMIIIIM 

m ******* »«*«•*■ 

wrtkst* m ftftti mi <*etwww» w * ««» 
m mM^mmmimmmmmmmwnm 

maKm**********"*" 



TIRED OF GAMES?... Don't understand your computer?. 
Can't understand the difference between RAM and ROM?. 
Are Computer Magazines and Manuals over your head? 





Limted OHet 



SUBSCRIBE TO 



BUSINESS 
COMPUTING 



NOW! 



SUBSCRIBE TO 



BUSINESS 
COMPUTING 



Make your computer work for you in your business.. .Choose 
the right computer... Learn the limits of your computer.. .The 
truth about Business Software. 



And receive the next 12 Issues at less than half our regu- 
lar subscription price. 

1 YEAR (12 Issues) $48. 00 ($120 - Regular Price) 

2 YEARS (24 Issues) $72. 00 ($240 - Regular Price) 



•CQMPUTRQMCS 



50 N PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 



••• ADD S12/YEAR "** 
(Canada & Mexico) 

••• ADD $24/YEAR " - 

(To All other Countries) 



'•• ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE- 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N Y STATE) 

(800) 431-2818 



.£$, 24 



HOUR 

ORDER 

LINE 



(914) 425-1535 



THE OR 




SOFTWARE 

FOR TRS-80 " 

OWNERS 



* TRS-80'" IS A TRADEMARK OF TANDY CORP 

MONTHLY 

NEWSMAGAZINE 

FOR TRS-80" 

OWNERS 




Practic 



ort For Mod 



Hw' 



olor 



PRACTICAL APPLICATIONS 

NEW EXPANDED BUSINESS 
SECTION 

GAMBLING • GAMES 
EDUCATION 
PERSONAL FINANCE 
BEGINNER'S CORNER 
NEW PRODUCTS 
SOFTWARE EXCHANGE 
MARKET PLACE 
QUESTIONS AND ANSWERS 
SRAM PRINTOUTS 



ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE 



PROGRAMS AND ARTICLES PUBL ISHED IN RECENT ISSUES 
INCLUDE THE FOLLOWING: 

• FINCALC - A COMPLETE FINANCIAL APPLICATIONS PACKAGE 

• INFORMATION SYSTEM REVIEW 

• STATISTICAL COMBINATIONS 

• PASCAL'S TRIANGLE 

• ASSEMBLY LANGUAGE FOR BEGINNF.RS 

• DISK FILES 

• MOD III REVIEW 

• KEYBOARD THUNDER AND LIGHTING EXPLAINED 

• DOS COMMANDS IN LEVEL II 

• PROBABILITY CURVE GENERATOR 

• CALCULATOR SIMULATIONS 

• FHI MEGABYTE GAP 

• STOCKS AND BONDS 

• BUDGET ANALYSIS (FOR BUSINESS AND HOME) 

• NEWDOS 80 REVIEW 

• DUTCHING THE HORSE SYSTEM THAT CANT LOSE 

• A SIMULATED GOLF GAME 

• CONTINUOUS FORM SOURCES 

• TAX SAVER REVIEW 
AND MORE 




FIN 



*e 



A Complete Financial Analysis Package Used 

To Calculate Markup, Margin, Annuities, Compound Interest, Nominal 

And Effective Rates, Sinking Funds, Mortgage Calculations, Future Value, 

*tfS^^ Savings and Insurance, Percentage Difference Between Two Numbers, 

Amortization Schedule and More 



SEND FOR OUR NEW 64 PAGE SOFTWARE CATALOG (INCLUDING LISTINGS OF HUNDREDS OF TRS 80" PROGRAMS AVAILABLE ON 
CASSETTE AND DISKETTE). $2.00 OR FREE WITH EACH SUBSCRIPTIONS OR SAMPLE ISSUE 



* All programs are supplied on cassette (add $3 (or Diskette Version - add $5 (or modified Mod-II Version). 



•CQMPLITRI 






50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

ONE YEAR SUBSCRIPTION $24 

TWO YEAR SUBSCRIPTION S48 

SAMPLE OF LATEST ISSUE $ 4 

START MY SUBSCRIPTION WITH ISSUE 

(81 • July 1978 • 812 • June 1979 • 824 July 1980 • "30 - January 1981) 

NEW SUBSCRIPTION RENEWAL 



NEW TOLL-FREE 
ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 



NEW!!! 

MOD-II NEWSLETTER 

$1 8/year Cor 1Z issues) 



HOUR 

ORDER 

LINE 



,i l§M (914) 425-1535 





CREDIT CARD NUMBER 

SIGNATURE, 

ADDRESS 



EXP DATE 



NAME 



CITY. 



.STATE. 



_ ZIP 



ADD $12 YEAR (CANADA, MEXICO) - ADD $24 YEAR AIR MAIL - OUTSIDE OF U.S.A., CANADA & MEXICO *** ^9 
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jm ft m 4h Department of the Treasury — Internal Revenue Service „ ^-. f*aa 

1 040 U.S. Individual Income Tax Return POl 



FT Privacy Act Wotfca, SW page 3 Of Instructions | For the rear January 1-December 31. 1979, or othtr tax year beginning 



, 1979, ending 



. 19 



Use 
IRS 
label. 
Other- 
wise, 
please 
print 
or type. 



Your tint name and initial (if joint return, also give spouse's name and initial) 



Present home address (Number and street, including apartment number, or rural route) 



Your social security number 



Spouse's social security no. 



City, town or post office, State and ZIP code 



*&-M*k*mmui^amimmummmmimmmmmmmumKmmmmimBKmi 



Presidential 
Election 



i» 



Do you want $1 to go to this fund? 

If joint return, does your spouse want $1 to go to tr 



Your occupation ► 



Spouse's occupation ► 



Yes 



:% 



Yes 



No 



No 



Note: Checking "Yes" will 
not increase your tax or 
reduce your refund. 




MICROMATIC 

PROGRAMMING 

COMPANY 
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pert With TAX/ 

TRS-80 is i trademark of the Radio Shack Division ol Tandy Corp. • mi/' 



rCE MCDEI 
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TAX/SAVER'" — The tax help program for the layman, the professional accountant or tax preparer. 

New and expanded. TAX/SAVER" offers a different approach to preparing a tax return Like the original, the new version has the tax regulations programmed in so it is more than just a calculator 

Designed for non-accountants, TAX/SAVER™ asks you questions, just as an accountant does. Based on your answers it leads you through the tax maze to your lowest legal tax Then it tells you 

how to fill in your return, line by line, or it will output to a printer. 

TAX/SAVER'" also has speed features for those doing more than one return Optional program instruction and tax text make TAX/ 

SAVER'" the practical system for professional preparers as well TAX/SAVER™ has full disk storage of data files (with optional 

password protection). 

The manual includes information on special tax areas, lists of possible deductions and a tax glossary. 

TAX/SAVER'" compares itemized deductions to national averages: automatically computes certain limitations - for example, on 

medical deductions and contributions: checks for excess FICA: helps determine dependents Yet. TAX/SAVER'" ofters the privacy 

and convenience of home use 

The user-oriented design with special screen formatting makes data entry, verification and correction easy Yet you are always in 

control. You can skip any help features or parts ol the program that you don't need 

TAX/SAVER'" II completes long and short forms including 

• Itemized Deductions - Schedule A 

• Interest & Dividends - Schedule B 

• Tax Calculation - Tables. Rates 

• Tax Saving Methods - Income Averaging. Maximum Tax. Alternative Tax 

• Business Income - Schedules C 8 SE 

• Capital Gains - Schedule D 

• Allows you the privacy of your own home 

• Lets you help Inends and relatives with their taxes 

• Has built-in aids Answers specific questions like Is my father my dependent' and Are my deductions reasonable' 

• Tax deductible 

• Manual includes 1981 tax forms, information on special tax areas, lists of possible deductions, and glossary of tax terms 

• Completes long and short forms including itemized deductions, excess TICA earned income credit community property, 
tax calculation (comparing all possible filing statuses in one run) 

• Tax regulations are programmed in by our team of accountants. 
Just type in your figures and you've done your own tax return 

• Helps you find the lowest tax 

• Discount on yearly updates 

• Prints Out on standard IRS forms overlays or plain tractor feed paper 




TAX/SAVER '" is like having a personal accountant helping you do your own return! 




REVIEWS: 

.well designed and easy to use'' - D. Lubar. Creative Comput 
". TAX'SAVER'" may very well live up to its name ' - 

M Tannenbaum CPA 80 Microcomput 



ng 1 81 
ng 2-81 



FROM OUR CUSTOMERS: 

". best tax program for the layman I've seen 

"I would (and have) highly recommended it " 

Bravo 



TAX/FORECASTER'", the quick tax estimator [with printout) for both 1981 ana 1982 els you revise its estimate by merely Changing one or more lines Use it as a tax planner either together with 
TAX/SAVER™ Or by itself. TAX/FORECASTER" lets you quickly ask all of your WHAT IF' Questions and instantly recalculates your taxes A great tax preparation aid for both the layman and pro- 
fessional 

• Both TAX/SAVER" and TAX/FORECASTER'" are tax-deductible • Discounts are given on yearly updates • Free lax newsletter is issued annually 
With the combined package. TAX/SAVER™ and TAX/FORECASTER'", you can how have, at an affordable price, the power to predict control and reduce your tax liability 



•CQMPUrRQMCS 



50 N PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 

TO ORDER: 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDb OF NY STATE) 

(800) 431-2818 



Please enroll me in free member's service and send: 

a TAX/SAVER'" II @ $119.95 - Manual included. 

D TAX/FORECASTER'" @ $49.95 (with either TAX/SAVER'" $29.95) 

D Tax Form Over-ays @ $19.95 



D Check □ Master Charge □ Visa □ American Express 

Card No. 

Name . . 



Exp. Date 



Please check your model: 

□ TRS-80" Model I, 32K with 2 disk drives 

□ TRS-80" Model III. 32K with 2 disk drives 




■ HOUR _^. 

24 ORDER 35, 
LINE 

(914) 425-1535 



Address 



City. 



State 



Zip 



" ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE* 



* ADD S3.00 FOR SHIPPING IN UPS AREAS 

* ADD S4.00 FOR COD. OR NON-UPS AREAS ^9 

* ADD S5.00 TO CANADA AND MEXICO 

* ADD PROPER POSTAGE OUTSIDE U.S.. CANADA & MEXICO 



.- See List of Advertisers on page 402 
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EVERYTHING FOR YOUR TRS-80" • ATARI" • APPLE™ • PET™ • CP/M™ • XEROX" • IBM" • • 

TRS-80 is a trademark of the Radio Shack Division of Tandy Corp. - ' ATARI is a trademark of Atari Inc. - ' APPLE is a trademark of Apple Corp. - • PET is a trademark of Commodore 
* CP/M is a trademark <>l Digital Research - 'XEROX is a trademark of Xerox Corp. - • IBM is a trademark of IBM Corp. 





NESS PAC 1 00 



* 30-Day money oa 
Software 



100 Ready-To-Run 
Business Programs 



(ON CASSETTE OR DISKETTE) Includes 128 Page Users Manual 

Inventory Control Payroll Bookkeeping System Stock Calculations. 

Checkbook Maintenance Accounts Receivable Accounts Payable 



BUSINESS 100 PROGRAM LIST 



NAME DESCRIPTION 

1 RGLE78 Interest Apportionment by Rule of the 78's 

2 ANNU I Annuity computation program 

3 DATE Time between dates 

4 DAYYEAR Day of year a particular date falls on 

5 LEASEINT Interest rate on lease 

6 BREAKEVN Breakeven analysis 

7 DEPRSL Straightline depreciation 

8 DEPRSY Sum of the digits depreciation 

9 DEPRDB Declining balance depreciation 

1 DEPRDDB Double declining balance depreciation 

1 1 TAXDE P Cash flow vs. depreciation tables 

1 2 CHECK2 Prints NEBS checks along with dairy register 

13 CHECKBK1 Checkbook maintenance program 

14 MORTGAGE/A Mortgage amortization table 

1 5 MULTMON Computes time needed for money to double, triple. 

16 SALVAGE Determines salvage value of an investment 

17 RRVARIN Rate of return on investment with variable inflows 

18 RRCONST Rate of return on investment with constant inflows 

1 9 EFFECT Effective interest rate of a loan 

20 FVAL Future value of an investment (compound interest) 

21 PVAL Present value of a future amount 

22 LOANPAY Amount of payment on a ioan 

23 REGWITH Equal withdrawals from investment to leave over 

24 S1MPD1SK Simple discount analysis 

25 DATEVAL Equivalent & nonequivalent dated values for oblig. 

26 ANNUDEF Present value of deferred annuities 

27 MARKUP * .Markup analysis for items 

28 SINKFUND Sinking fund amortization program 

29 BONDVAL Value of a bond 

30 DEPLETE Depletion analysis 

31 BLACKSH Black Scholes options analysis 

32 STOCVAL1 Expected return on stock via discounts dividends 

33 WARVAL Value of a warrant 

34 BONDVAL2 Value of a bond 

35 EPSEST Estimate of future earnings per share for company 

36 BETAALPH Computes alpha and beta variables for stock 

37 SHARPE1 Portfolio selection model-i.e. what stocks to hold 

38 OFTWRITE Option writing computations 

39 RTVAL Value of a right 

40 EXPVAI Expected value analysis 

41 BAYES Bayesian decisions 

42 VALPRINF Value of perfect information 

43 VALADINF Value of additional information 

44 (JT1LTTY Derives utility function 

45 SIMPLEX Linear programming solution by simplex method 

46 TRANS Transportation method for linear programming 
4 ? LOG Economic order quantity inventory model 

48 QUEUE! Single server queueing (waiting line) model 

49 CVP Cost volume-profit analysis 

50 CONDPROF Conditional profit tables 

51 OPTLOSS Opportunity loss tables 

52 FQUOQ Fixed quantity economic order quantity model 

53 FQEOWSH As above but with shortages permitted 

54 FQEOQPB As above but with quantity price breaks 

55 QUEUECB Cost-benefit waiting line analysis 

56 NCFANAL Net cash-flow analysis for simple investment 

57 PROF1ND Profitability index of a project 

58 CAP! Cap. Asset Pr. Model analysis of project 
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59 WACC Weighted average cost of capital 

60 COMPBAL True rate on loan with compensating bal. required 

61 DISCBAL True rate on discounted loan 

62 MERGANAL Merger analysis computations 

63 I 'IN RAT Financial ratios for a firm 

64 NPV Net present value of project 

65 PR1NDLAS Laspeyres price index 

66 PRINDPA Paasche price index 

67 SEASIND Constructs seasonal quantity indices for company 

68 TIMETR Time series analysis linear trend 

69 TIMEMOV Time series analysis moving average trend 

70 FUPRINF Future price estimation with inflation 

71 MAILPAC Mailing list system 

72 LETWRT Letter writing system-links with MAI1.PAC 

73 SORT3 Sorts list of names 

74 LABEL1 Shipping label maker 

75 i ABEL 2 Name label maker 

76 BUSBUD DOME business bookkeeping system 

11 : IMECLCK Computes weeks total hours from timeclock info. 

78 ACCTPAY In memory accounts payable system-storage permitted 

79 INVOICE Generate invoice on screen and print on printer 

80 INVENT2 In memory inventory control system 

81 TEI DIR Computerized telephone directory 

82 flMUSAN Time use analysis 

83 ASSIGN Use of assignment algorithm for optimal job assign. 

84 ACCTREC In memory accounts receivable system-storage ok 

85 TERMSPAY Compares 3 methods of repayment of loans 

86 PAYNET Computes gross pay required for given net 

87 SELLPR Computes selling price for given after tax amount 

88 ARBCOMP Arbitrage computations 

89 DEPRSF Sinking fund depreciation 

90 UPSZONE Finds UPS zones from zip code 

91 ENVELOPE Types envelope including return address 

92 AUTOEXP Automobile expense analysis 

93 INSF1LE Insurance policy file 

94 PAYROLL2 In memory payroll system 

95 DILANAL Dilution analysis 

96 LOANAFFD Loan amount a borrower can afford 

97 RENTPRCH Purchase price (or rental property 

98 SALELEAS Sale-leaseback analysis 

99 RRCONVBD Investor's rate of return on convertible bond 
100 PORTVAL9 Stock market portfolio storage-valuation program 



□ CASSETTE VERSION $99.95 

□ DISKETTE VERSION $99.95 

D TRS-80* MODEL H VERSION $149.95 

ADD $3.00 FOR SHIPPING IN OPS AREAS 
ADD $4.00 FOR C.O.D. OR NON-OPS AREAS 
ADD $5.00 TO CANADA AND MEXICO 
ADD PROPER POSTAGE OGTSIDE OF G.S., 
CANADA AND MEXICO 
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50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



ASK FOR OUR 64-PAGE CATALOG 



OA orde* 

CH LINE 



^(914)425-1*35 



ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE*** 
I 




• THE ULTIMATE PERSONAL CHECK REGISTER 

• A PROFESSIONAL ACCOUNTING SYSTEM 

• A PERSONAL FINANCIAL MANAGER 

• A SMALL BUSINESS ACCOUNTING SYSTEM 

• A COMPLETE GENERAL LEDGER 



wmm • wig 



Jot 



)W IT WCCKS 

VERSALEDGER is a complete accounting system that grows as you or your business grows. To 
start, your VERSALEDGER acts as a simple method of keeping track of your checkbook. Just 
enter your check number, date and to whom the check is made out to. As you or your business 
grows, you may add more details to your transactions .... account number, detailed account 
explanations, etc. 



VERSALEDGER 



VERSALEDGER can give you an instant cash 
balance at anytime. (IF YOU WANT IT TO) 

VERSALEDGER can be used as a small per- 
sonal checkbook register. (IF YOU WANT IT 
TO) 



VERSALEDGER can be used to run your 
million dollar corporation. (IF YOU WANT IT 
TO) 

VERSALEDGER prints checks. (IF YOU WANT 
IT TO) 

VERSALEDGER stores all check information 
forever. (IF YOU WANT IT TO) 

VERSALEDGER can handle more than one 
checkbook. (IF YOU WANT IT TO) 

VERSALEDGER can be used to replace a t, 

general ledger. (IF YOU WANT IT TO) " 

VERSALEDGER HAS AN ALMOST UNLIMITED CAPACITY .... 

(300 checks per month on single density 5%" disk drives such as the TRS-80 Model-I) 

(500 checks per month on the Apple II) 

(2400 checks per month on the TRS-80 Model III) 

(6000 checks per month on the TRS-80 Model II) 

(3000 checks per month on single density 8" CP/M) 

VERSALEDGER will soon have an add-on payroll package. (IF YOU NEED IT) 

D WITH 1 or MORE DISK DRIVES - 




INTRODUCTORY PRICE 
$QQ 95 



— CAN BE 
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SO N. PASCACK ROAO 
SPRING VALLEY, NEW YORK 10977 

* ADD $3.00 FOR SHIPPING IN UPS AREAS 

* ADD $4.00 FOR C.O.D. OR NON-UPS AREAS 

* ADD $5.00 TO CANADA AND MEXICO 

* ADD PROPER POSTAGE OUTSIDE U.S., CANADA & MEXICO 




HOUR 

ORDER 

LINE 




(914) 425-1535 



NEW TOLL-FREE 
ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 



ALL PRICES & SPECIFICATIONS SUBJECT TO CHANGE *" ^9 



■ See List of Advertisers on page 402 
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CQMPLITRQNICS 



N 
C. 



• • EVERYTHING FOR YOUR TRS-80 MODEL I, II or III • • 
APPLE AND ALL COMPUTERS USING MICROSOFT BASIC 



• TRS-80 is a trademark ol Tandy Corp. 




SINESS/80 



presents 



< All orders processed within 24 Hours. 

• 30-Day money back guarantee 
• Add S3. 00 for shipping in UPS Areas 
• Add $4.00 for C.O D or NON-UPS Areas 
• Add $5 00 to Canada or Mexico 
• Add exact postage to all other countries 




Professional 
Business 
Systems ^ 




• Each Module Can Be Operated Individually Or As A Completely Coordinated System. 

• Turn-Key Error Catching Operation For Beginners. 

• Each Module Is Accompanied By More Than 100 Pages Of Step-By-Step Documentation. 

• Manuals Available Separately. ($50 each) • Complete Sample Report Listings ($10) 

$195 (Model I Or Model III TRSDOS Version) 

$250 Apple Version (From Peachtree Requires CP/M) 

$295 (Model II TRSDOS Version) 

$495 (Model II Peachtree CP/M Version) 

BUSINESS/80 ' BUSINESS/80 * BUSINESS/80 * BUSINESS/80 ' BUSINESS/80 ' BUSINESS/80 ' BUSINESS/80 ' BUSINESS/80 • BUSINESS/80 ' BUSINESS/80 



GENERAL LEDGER 

Processes 

* Flexible design allows system to be easily adapted to both small business- 
es and also to firms performing client writeup services 

* Add. change or delete records within the Chart of Accounts (Master) File 

* List the Chart of Accounts File 

* Key in transactions into the Transactions (Journal Entries) File 

* List the Transactions File. 

* If other Peachtree Software packages are present, pass summary trans- 
actions from these packages to the General Ledger at the end of the 
accounting period 

* At the end of an accounting period, print out the major reports 

(1) Trial Balance (Detail Report) 

(2) Transaction Registers 

(3) Balance Sheet 

(4) Prior Year Comparative Balance Sheet 

(5) Income Statement 

(6) Prior Year Comparative Income Statement 

(7) Department Income Statements 



File Information 

There are two main computer files maintained within the General Ledger 
System 

(1) The of Accounts File 

Account Number 

Description 

Account Type 

Balance Sheet Column Code 

Current Amount 

Year-To-Date Amount 

Budget Amount 

Prior Year Monthly Amounts 

(2) The Transactions File 

Account Number 
Description 

Source Code 
Reference 
Date 
Amount 



ACCOUNTS RECEIVABLE 

Processes 

* Add. change or delete records within the Customer File 

* List the entire Customer File, or any Customer within the File 

* Enter invoices, payments, credits and adjustments 

* Prepare invoices and statements 

* Produce the following reports 

(1) Aged Accounts Receivable 

(2) Invoice Register 

(3) Payment, Credit and Adjustment Register 

(4) Customer Account Status Report 

* At the end of a month, post the following items to the General Ledger: 

(1 ) Invoiced Sales 

(2) Freight Charges 

(3) Sales Tax 

(4) Service Charge Income 

(5) Cash Payments 

(6) Discounts Allowed 

(7) Returns/Credits 

(8) Income Adjustments 

(9) Accounts Receivable 

File Information 

There are three main computer files maintained within the Accounts Receiva- 
ble System, the Customer File, the Invoice File, and the Transaction File 
CUSTOMER FILE 

Customer Account Number 

Customer Name 

Address 

Phone 

Type of Account 

Credit Terms 

Credit Limit 

Tax Rate 

Discount Rate 

Date of Last Credit 

Date of Last Debit 

Amount of Last Credit 

Amount of Last Debit 

Current Balance 

High Balance 

Year-To-Date Sales 

Year-To-Date Payments 

Automatic Billing Amount 



INVOICE FILE 

Invoice Number 
Invoice Date 
Invoice Amount 
Credit Terms 

TRANSACTION FILE 
Transaction Type 
Transaction Date 
Transaction Amount 



^9 
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ACCOUNTS PAYABLE 

Processes 

* Add, change or delete records within the Vendor File 

* List the Vendor File 

* Enter vouchers 

* Automatically determine which vouchers to pay 

* Print checks and a Check Register 

* Produce the following reports: 

(1) Open Voucher Report 

(2) Accounts Payable Ageing Report. 

(3) Cash Requirements. 

* At the end of a month, prepare the General Ledger Transfer File, passing 
the following information for each debit or credit transaction: 

(1) Account Number 

(2) Description 

(3) Source Code 

(4) Date 

(5) Amount 

File Information 

There are two main computer files maintained within the Accounts Payable 
System, the Vendor File and the Voucher File 
VENDOR FILE 

Vendor Code 

Vendor Name 

Address 

Phone 

Year-To-Date Purchases 

Year-To-Date Payments 

Current Balance 

Last Payment 

Date of Last Payment 

Monthly Entry Flag 

Due Date of Month 

Debit Account Number 

Amount (Debit) 

Month Last Paid 
This file may also contain information to enable generation of automatic 
vouchers for those items such as rent or bank payments that are paid every month. 

VOUCHER FILE 

Voucher Code 
Voucher Date 
Amount Due 
Date Due 
Discount Percent 
Discount Amount 

Discount Date ^ 

Invoice Number 
Invoice Date 
Status 
Plus up to six account number-amount fields for General Ledger account 
numbers to which the amount due is to be distributed. 



PAYROLL 

Processes 

* Add, change or delete records within the Employee File 

* List the Employee File 

* Modify the Tax Information Files. 

* At the end of a pay period - 

(1) Calculate Pay 

(2) Print Checks 

(3) Print Payroll Register 

* At the end of a month - 

(1) Print the monthly summary 

(2) Print the Unemployment Tax Report 

(3) Prepare the General Ledger Transfer File, passing the following 
information: 

Net Pay (Cash) 

Employee FICA Withheld 

Federal Tax Withheld 

Insurance Deductions 

Miscellaneous Dedutions 

State Tax Withheld 

Local Tax Withheld 
The gross pay for up to twenty payroll departments may also be 
passed to the General Ledger 

* At the end of a quarter, print the 941A report information 

* At the end of a year, print the W-2 forms 

File Information 

There are two main computer files maintained within the Payroll System, the 
Employee Master File and the Tax File 
EMPLOYEE MASTER FILE 
Name 
Address 
Local Code 
State Code 
Marital Status 
Exemptions, Federal 
Exemptions, State 
Social Security Number 
Pay Period 
Pay Type 
Pay Rate 

Insurance Deduction 
Miscellaneous Deduction 
Date Employed 
Date Terminated 
Last Check Information 



Payroll (con't) 

And current, month-to-date, quarter-to-date and year-to-date totals for: 
Regular Earnings 
Overtime Hours/Earnings 
Other Hours Rate/Earnings 
Commission Earnings 
Miscellaneous Income 
FICA Deductions 
Federal Deductions 
State Deductions 
Local Deductions 
Insurance Deductions 
Miscellaneous Deductions 

TAX FILE 

(for single and married persons) 

Federal Tax Information Tables 

State Tax Information Tables 

Local Withholding Tax Information Tables 



An Overview of the Inventory System 

Inventory is probably the most speculative of all of a company's assets A true 
measure of the effectiveness of management is the ability with which it supervises 
the inventory control function 

The Peachtree Software'" Inventory Management System is designed to (1) 
give you better merchandise control, (2) allow you to lower your dollar investment 
in inventory, and (3) improve customer service and response. 

The System maintains detailed information on each inventory item including 
the part number, description, unit of measure, vendor and reorder data, item 
activity, and complete information on current item costs, pricing, and sales. 
Transactions effecting inventory (sales, receipts, adjustments) may be applied at 
any time to insure the inventory data is always up to date and accurate. 

As with all Peachtree products, the system is interactive, simple to operate, 
and provides reports that are up to date and comprehensive. 

Particular features of the Peachtree Software'" Inventory Management 
System include: 

• Interactive, menu-driven programs 

• Self-instructing user documentation 

• Long item number - up to 15 characters 

• Departmentalizing of items 

• Multiple pricing levels 

• Processes items on reserve (committed but still in stock) 

• Online item query at any time 

• Comprehensive management reporting 

• Automatic month end file backup 

• Recovery routines for hardware failures 

• Sample data for demonstration and training 

How the System is Designed 

The Inventory Management System operates with an Inventory Master File 
which allows for the creation of each inventory item and for the recording of 
transactions (sales, receipts, returns, reserves, and ad|ustments) to each inven- 
tory item 

The Inventory Master File contains the item number, description and various 
other data on item costs, prices, reorder levels, vendor refereence, and activity The 
items within the Master File are entered, changed, deleted, and queried through 
the Inventory Master File Maintenance program. All data on all items may be listed 
by using the Detail Inventory Report program 

Transactions may be applied at any time to the Master File through the Enter 
Inventory Transactions program An Update Report automatically prints during 
this entry process to provide an audit trail of all inventory acitivity. 

Several reports are available for the maintaining of stock, analysis, and fore- 
casting These reports include the Physical Inventory Worksheet, Inventory Price 
List, Departmental Summary Report, Inventory Status Report, the Reorder Report 
and the Period-to-Date and Year-to-Date reports. 

At the end of an accounting period (usually a month), and then again at the 
end of a year, the End of Period Processing program is run to update current 
balances and clear previous balances 
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THE TRS 




System Diagnostic i 0X operations 
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ROM: 

RAM: 

VIDEO DISPLAY: 

KEYBOARD: 

LINE PRINTER: 

CASSETTE RECORDER: 

RS-232-C INTERFACE: 

DISK DRIVES: 



ARE YOU SURE? 



checksum test 

four separate tests including every address and data value. 

character generator, video RAM, and video signal. 

every key contact tested. 

character test. 

read/write/verify data. 

connector fault, data transmission, framing, data loop, baud rate generator. 

disk controller, drive select and restore, track seek and verify data, read/write/verify all tracks and 
sectors with or without erasing, sector formatting, disk drive timer, disk head cleaner. 

Individual tests of each device with operator monitoring and intervention. 

Continuous sysem tests run continually for hours testing each component, with diagnostic reports optionally written on line printer. 

One program adapts to any system configuration and hardware. 

Complete instructions and documentation. 



MON-3 and MON-4 

The TRS-80 Monitor Programs #3 and #4 are powerful utility programs 
enabling you to interact directly with the TRS-80 in Machine Language. 
They are as useful for beginners as for advanced programmers. 

• BEGINNERS can learn to interact directly with the computer in 
Machine Language. 

• 40-PAGE MANUAL provided with each program. 

• SIMPLE commands, easy to use. 

The Features Of The Monitor Pro g rams Enable You To The Followin g 

• DISPLAY memory in different ways. 

• DISASSEMBLE memory to see Machine Language commands. 

• MOVE and COMPARE memory areas. 

• SEARCH through memory to find specific values. 

• MODIFY memory in various ways. 

• RELOCATE object programs. 

• PRINT output on video display or line printer. 

• READ and WRITE object tapes in SYSTEM Format. 

• UNLOAD programs using low RAM on disk. 

• SAVE and READ disk files (MON-4 Only). 

• INPUT and OUTPUT of disk sectors (MON-4 Only). 

• SEND and RECEIVE data over RS-232-C Interface (MON-4 Only). 

• Create SYMBOLIC Tapes (MON-3) or Files (MON-4) of Disassem- 
bled output for Editor/Assembler program. 

MON-3 (Tor Cassette Systems) $39.95 
MON-4 (For Disk Systems) $49.95 



SMART TERMINAL 

Enables your TRS-80 to be used as a remote terminal to a time sharing 
computer system. Supports upper/lower case and full range of control 
keys, including control key mapping into any ASCII character. Automatic 
transmission of files between TRS-80 and host computer. Files can be read 
from or written to cassette tape or disk. Incoming data can be printed on 
line printer or stored in memory for subsequent save to cassette or disk. 
Disk and tape files are fully compatible with the ELECTRIC PENCIL pro- 
gram. Baud rate and RS-232-C sense switches can be reset without open- 
ing Expansion Interface. Requires RS-232-C interface and modem. 

Cassette or Disk Version $69-95 



FASTSORT 

A series of machine-language subroutines (for 16K, 32K and 48K Sys- 
tems) to sort data from BASIC programs. Data may be alphabetic (string) 
or numeric (integer only). Works equally well with Level II or Disk Basic. 
Complete instructions and examples provided for interfacing with your 
BASIC programs. 

Cassette or Disk Version $9-95 



MAILING LIST 

Maintains mailing lists of over 1000 names. Commands allow adding, 
changing, deleting, and finding names. Sorting is done by machine lan- 
guage according to the information in any field (i.e., name, address, zip 
code). Labels printed in 1,2, or 3 columns, in master list on one line, or on 
video display. 

Disk Version Only $69.95 



HOME BUDGET 

Combines the maintenance of your checkbook with analysis of your 
income, expenses, and monthly bills. Handles data including bills, in- 
cluding bills, income, deposits, checks and debits to your checking ac- 
count, and cash expenses. Computes checkbook balance, list of unpaid 
bills, monthly and year-to-date summaries of income and expenses show- 
ing income tax deductions. Ail output printed on video display or line 
printer at user's option. Complete instructions for customizing to suit 
your own budget. 

Disk Version Only $49-95 



SMALL BUSINESS ACCOUNTING 

Based on Dome Bookkeeping Record #612, this program keeps track of 
income, expenditures, and payroll for a small business of up to 16 employ- 
ees. Income and expenditures can be entered on a daily, weekly, or 
monthly basis, and the program computes monthly, through last month, 
and year-to-date summaries. Payroll section keeps record of individual 
employees and their paychecks with up to six categories of payroll de- 
ductions. Employee payroll record and year-to-date payroll totals can be 
computed. Manual contains complete instructions for customizing to suit 
your business. 

Disk Version $49-95 
Cassette Version $29-95 
(Cassette Version does not contain payroll) 
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50 N. PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 
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LINE 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 




(914) 425-1535 



• All orders processed within 24 Hours 
• 30-Day money back guarantee 
• Add $3.00 for shipping in UPS Areas 
• Add $4.00 for COD. or NON-UPS Areas 
• Add $5.00 to Canada or Mexico 
• Add exact postage to all other countries 
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Microsoft BASIC Computers 
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Written For TRS--80 and All Computers Using MICROSOFT basic 

FINALLY IT IS HECE. At last someone wrote a book on disk random 
aooess and file handling. A book written for the non-programmer. 
Written for the businesman and professional who need to solve and 
write special programs for in house business problems. 

Written forthe hobbyist who wants to go beyond the cassette recorder and into disk storage and file 
manipulation. 

This book handles a subject of reasonable complexity, so simple and down to earth, that anyone 
with some Level II experience can cope with the material. 

This book is written using a simple program as a starting point. The programs grow in ability and 
complexity as the book progresses into the various aspects of file handling and record manipula- 
tion. Extensive effort has been made to keep the material coherent and every program line is 
explained in detail. 

The programming material presented in this 150 pageself-instruction tutorial will provideany non- 
programmer with the ability to writespecial programs for inventories, mailing list, work scheduling, 
record keeping, research project data manipulation, etc. The subjects covered in this edition areas 

follows 

(A) The writing of a Menu to summarize program functions. 

(B) The writing of a screen format to accept record data. 

(C) The creation of the basic record. 

(D) The Fielding and LSET routines for buffer preparation. 

(E) The writing of the record to disk in a Random Access mode. 

(F) The retrieval of a record from disk in a Random Access mode. 

(G) The ability to change or edit a record. 
(H) The LPRINT capability from disk using three different formats. 

(I) Deleting a record from a Random file. 
(J) Sorting the Random file. 

(K) Searching the Random file by name or other keyfield. 
(L) The ability to search in a "NEXT or PRIOR" fashion. 
(M) The ability to purge a disk file from deleted records. 
(N) The ability to calculate with data from a disk file 
(O) The provision for future expansion of the data fields. 
(P) The use of flags to prevent program crashes. 
(Q) Date setting, printer on-line, and many other routines that 
make a program run like a commercial written program. 

DSC, Publishing, Div of, DEALERS— CALL D.S.C. PUBLISHING DIRECTLY FOR DEALER PRICING— (203) 748-3231 or write to 
D S.C. INCORPORATED D.S.C. PUBLISHING. P.O. Box 769, Danbury, CT 06810-0769 
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50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

• ADD $3.00 FOR SHIPPING IN UPS AREAS 

* ADD S4.00 FOR C.O.D. OR NON-UPS AREAS 

* ADD $5.00 TO CANADA AND MEXICO 

• ADD PROPER POSTAGE OUTSIDE U.S.. CANADA & MEXICO 

**• ALL PRICES & SPECIFICATIONS SUBJECT TO CHANGE *** 




DOS RANDOM ACCESS 

& BASIC FILE HANDLING $29.95 



HOUR 
24 ORDER 
LINE 

(914) 425-1535 
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(OUTSIDE OF N Y STATE) 
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GRAPHICS 



LOAD 80 



Someday your 80 will design your new house. 



3-D Graphics 



Eric Fogelin 

42K South wood Apts. 

Amherst, MA 01002 




Fig. 1. 3-D View. 



Photo 1 
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Even the most serious people doodle 
cubes, pyramids and other geometrical 
figures on scraps of paper. With this short 
Basic program you can create universes 
of geometrical solids floating on your 
TRS-80's screen. The program will run in 
Level II 4K machines and up. With more 
memory you can display a greater number 
of objects, limited only by Basic's lack of 
speed compared to machine language. The 
program does not display objects instan- 
taneously but it will create them in a 
reasonably short time. The three objects in 
the photographs took 10 seconds to com- 
pute and 40 seconds to draw. If you have 
machine language programs to draw lines 
connecting two points use them instead of 
my slower Basic routine. This program does 
not produce real-time 3-D graphics, but it 
may provide a start for a machine language 
program. 

Low graphics resolution is another limita- 
tion. Square instead of rectangular pixels on 
the TRS-80 would improve the display. 

The Problem's Geometry 

The problem involves right triangles. Fig. 
1 shows the basic idea behind the problem: 




Xo.yo.Zo Observer's coordinate 

*v,yv. z v Viewing point 

Ks Distance of observer from screen 



} 



center screen coordinates 



Table 1. Knowns. 



The three axes in Fig. 1 are X, Y and Z. R is 
the origin of this system, while O, P and V 
are the observer's coordinates, a point in 
space and the point in the center of view, 
respectively. The point V along with O deter- 
mine the viewing vector, or the direction of 
sight. We will project point P with respect to 
our observing position. This point could be 
a vertex of a geometric figure. 

The program works with end points, draw- 
ing lines after calculating the projection ef- 
fect. When drawing railroad tracks, for exam- 
ple, you need notice just four points: two 
nearby and two on the horizon. Once you pro- 
ject these four points correctly, you can draw 
the lines connecting them. 

Points P and V are in the same plane in 




Photo 2 



The Key Box 

Basic Level II 
Model I or III 
4KRAM 



"This routine allows you to view 
objects at any angle in any quadrant" 



Fig. 1, but they need not be. OV is always 
perpendicular to the middle of the screen at 
point V. OP intersects the screen at P', 
whose screen's X,Y components we want to 
find. If the observing position is moved 
closer to point V, the distance between P' 
and V increases. This produces the projec- 
tion effect. 

Fig. 2 shows the projection of Fig. 1 on 
the X,Y plane. You see the same lines as in 
Fig. 1. Use this representation to calculate 
the various angles and distances. (Table 2 
shows the equations I use. Remember this 
problem involves right triangles.) Ourtask is 
to find the values of P , ©a and the distance 
AR. You can calculate A and P quickly be- 
cause you know the X,Y coordinates of P 
and V (see Table 1). Find the distance RP by 
using the Pythagorean theorem, and also 
the angle between A and P . Using these 
quantities it is possible to find distance AR. 

Fig. 3 shows a view perpendicular to the 
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Fig. 2.XY Plane. 



SCREEN 




plane ORV. The task is to find the values of 
H , y , S y and DS where S is in back of P'. 
First, calculate H : You can calculate the 
distance RV, and you know OR (the Y-com- 
ponent of point O). Find y using AR and 
OR. K s is the distance of the observer from 
the screen. You can now find S y , the 
screen's Y-component of point P'. Calculate 
S y by using K s and the angle between H 
and y . To calculate DS, first calculate OS 
using the Pythagorean theorem with sides 
K s and S y . Since you know 0y, use trigo- 
nometry to find DS. DS and OS are hard to 
see because Figs. 3 and 4 project points on 
top of one another. 

Finally, you can find the X component of 
P'. In Fig. 4 you are again looking per- 
pendicularto the X^Y plane with the screen 
surface, OV and OP projected against the 
plane. Since you have calculated DS, and 
you already know the angle between A and 
P , you can find S x . You now have the 
screen's X and Y components of P'. Use this 
same procedure for any other point. 

Program Description 

I declare certain variables integers to 
make the program run faster. The dimen- 
sioned variable holds the X,Y components 
of the projected figures. It can store fifty 



points, but you can raise this to your 
memory limit. 

The first statement (OUT254.1) speeds up 
computers with Dennis Kitsz's speed-up 
modification {80 Microcomputing, February 
1980). You can remove this but it should 
cause no problem if you do not have the mod. 

The next routine requires the observer's 
position and a point in the center of vision. 
This routine prints the old (X,Y,Z) com- 
ponents for O and V so you can enter new 
viewpoints. To enter new coordinates type 
over the old ones, separating components 
with commas. Enter leaves the old data 
alone. 

The routine in lines 160-220, the heart of 
the program, performs calculations. The pro- 
gram projects the vertices of the geometrical 
figures using data in lines 1000-1220. 

After all the points have been projected 
properly, they are connected using the sec- 
ond block of data (lines 2000-2120). This 
routine gives the X,Y coordinates of the be- 
ginning and ending of the line, and calls the 
line drawing routine. 

The next routine, called when computing 
the arc tangent, returns the angle in the cor- 
rect quadrant. This routine allows you to 
view objects at any angle in any quadrant. 

The line-drawing routine uses the equa- 
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Program Listing 

-_.......»_ ......____— - - ____—«.* 

THREE DIMENSIONAL GRAPHICS * 

WRITTEN BY - E. FOGELIN, 42K SOUTHWOOD APTS . , AMHERST, * 
MA. 01002. COPYRIGHTED MARCH 1981. * 

.___—_—————————— * 



INITIALIZATION OF VARIABLES. 



Fig. 3. ORV Plane. 



100 OUT254,1:CLEAR300:CLS:DEFINTC,I,J,S,B,X-Z:DIMC(100) :ONERRORG 

OTO510 

110 CX=63:CY=23zKS=500:PI=3. 1415927 :P2=PI/2:GOT0125 

115 ' 

INPUT OBSERVER'S POSITION AND POINT TO BE OBSERVED 
TO ESTABLISH THE VIEWING VECTOR. 

120 RESTORE:A$="":FORI=15424TO15550:A$=A$+CHR$(PEEK(I)) :NEXT 
125 PRINT@4,XOCHR$(8)YOCHR$(8)ZO;:PRINT@0,;:INPUT"O";XO,YO,ZO:PR 

INTLEFT$(A$,63) J 

130 PRINT@68,XVCHR$(8)YVCHR$(8)ZV;:PRINT@64, ;: INPUT" V" ; XV, YV,ZV 

140 PRINTRIGHT$(A$,63) ; z ID=1 : AX=XV-XO: AY=YV-YO:GOSUB300 :TA=AV 

150 AY=SQR(AX[2+AY[2) : AX=ZO-ZV:GOSUB300 : TH=AV 

155 ' 

ROUTINE THAT COMPUTES THE X-Y SCREEN COORDINATES 

WITH THE PROPER PROJECTION. 

160 READXP,YP,ZP:IFZP=-999CLS:GOTO230 

170 XP=XP-XO:YP=YP-YO:Z=ZO-ZP 

180 AY=YP:AX=XPzGOSUB300:Tl=TA-AV:AR=COS(Tl)*SQR(XP[2+YP[2) 

185 AX=ZzIFZ>0THENAY=ABS(AR) :GOSUB300: TX=AV*SGN( AR) ELSEAY=AR:GOS 

UB300zTX=AV 

190 T2-TH-TX:IFABS(T2) >=P2THENSX=936 :GOTO220 

200 SY»KS*TAN(T2) :DS=SIN(TX) *SQR(SY[2+KS[ 2) 

210 IFDSOBTHENSX=DS*TAN(T1)ELSESX-KS/COS(TH)*SQR(XP[2+YP[2)/Z*S 

GN ( Tl ) i IFABS ( Tl ) >P2THEHSX— 6X 

220 C ( ID) -SX+CX : C ( ID+1) -SY* . 41+CY : ID=ID+2 : GOTO160 

Program continues 
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"If you desire curves, approximate 

them with a number of smaller segments. 



Program continued 



225 



ROUTINE THAT DETERMINES WHICH POINTS SHOULD BE 
CONNECTED WITH LINES. 



230 READIP:IFIP=0THEN120 

240 I1=C(IP*2-1) :I2=C(IP*2) :READIN 

250 FORII=lTOIN:READJ:I3=C(J*2-l) :I4=C(J*2) : IFI10999ANDI30999G 

OSUB400 

260 NEXT:GOTO23 

290 ' 

ROUTINE TO PLACE ANGLES IN CORRECT QUADRANTS. 

300 IFAX=0THEN340 

310 AV=ATN (AY/AX) : IFAX>0ANDAY>=0RETURN 

320 IFAX>0ANDAY<0THENAV=AV+2*PI:RETURN 

330 AV=AV+PI: RETURN 

340 IFAY>-0THENAV=P2ELSEAV=3*P2 

350 RETURN 

390 • 

ROUTINE THAT CONNECTS TWO POINTS WITH A LINE. 

400 IF(I1<0ANDI3<0)OR(I1>127ANDI3>127)RETURN 

410 IF(I2<0ANDI4<0)OR(I2>47ANDI4>47)RETURN 

420 15=13-11: 16=14-12 :IFI5=0THEN470ELSEA=I6/I5:IFI6=0THEN4 80 

425 Bl=I2-A*Il:B2=A*127+Bl:IFA=0THEN440ELSEB3=-Bl/AjB4=(47-Bl)/A 

430 IF(BK0ORB1>47)AND(B2<0ORB2>47)AND(B3<0ORB3>127)AND<B4<0ORB4 

> 127) RETURN 

450 IFFIX(A)=0FORX=I1TOI3STEPSGN(I5) : Y= (X-Il) *A+I2+. 5: SET(X,Y) :N 

EXT: RETURN 

460 FORY=I2TOI4STEPSGN(I6) :X=(Y-I2)/A+I1+.5:SET(X,Y) jNEXT:RETURN 

470 F0RY=I2T0I4STEPSGN(I6) :SET(Il,Y) :NEXT:RETURN 
480 F0RX=I1T0I3STEPSGN(I5) :SET(X,I2) :NEXT:RETURN 
500 ' 

ERROR TRAP TO ALLOW SETTING POINTS OFF THE SCREEN. 

510 RESUMENEXT 
1000 ' 

X, Y AND Z COORDINATES OF POLYGON VERTICES. 



1010 


DATA 


10,40,0 


1020 


DATA 


30,40,0 


1030 


DATA 


20,49,0 


1040 


DATA 


20,31,0 


1050 


DATA 


20,40,40 


1060 


DATA 


20,10,0 


1070 


DATA 


2 0,30,0 


1080 


DATA 


4 0,10,0 


1090 


DATA 


40,30,0 


1100 


DATA 


20,10,20 


1110 


DATA 


20,30,20 


1120 


DATA 


40,10,20 


1130 


DATA 


40,30,20 


1140 


DATA 


0,0,0 


1150 


DATA 


0,10,0 


1160 


DATA 


10,0,0 


1170 


DATA 


10,10,0 


1180 


DATA 


0,0,30 


1190 


DATA 


0,10,30 


1200 


DATA 


10,0,30 


1210 


DATA 


10,10,30 


1220 


DATA 


-999,-999,-99 


2000 


' 






POINT TO POINT 


2010 


DATA 


1,2,3,4 


2020 


DATA 


2,2,3,4 


2030 


DATA 


5,4,1,3,2,4 


2040 


DATA 


6,3,7,8,10 


2050 


DATA 


9,3,7,8,13 


2060 


DATA 


12,3,8,10,13 


2070 


DATA 


11,3,7,13,10 


2080 


DATA 


14,3,15,16,18 


2090 


DATA 


3.?, 3, 15, 16, 21 


2100 


DATA 


20,3,16,18,21 


2110 


DATA 


19,3,15,21,18 


2120 


DATA 






tion y = mx + b to compute intercepts and 
slopes. The routine does not draw lines that 
do not intersect the screen area. However, 
the routine draws all lines that appear even 
partially on the screen. 

Because FC errors halt any program try- 
ing to set points off the screen, I used an On 
Error GOTO.. .Resume Next statement. The 
computer ignores the error arising from 
points set off-screen. 

The data statements in lines 1000-1220 
contain the vertices of the three geomet- 
rical figures in the photographs. Each point 
is on its own line. 

When drawing geometrical figures, one 
point can be connected to more than one 
other point. Lines 2000-2120 desert 
which point should be connected 
other points. The first data stater 
that point one (the vertex in line 1010) 
should be connected to 2 point;-: three and 
four (lines 1030 and 1040). The first number 
is the main point, the second is the numb- 




6a = tan- [ (y v - y y(x v - xo)J 
©p = tan- [ (y p - y V(x p - x )] 
•«^ = tan- [v(x v -xo) 2 + (y v -yo^fo -*/)] 
■Wfi = cos (Q. - Q P )^/l^Z^fT^^^ 

©y = tan- [AR/(zo - z p )J 

Sy = Ks tan (6H - 0y) + Cy 

DS = sin (e y h/"(Sy) 2 + (K s ) ! 

S x = OS tan (0a - 3p; i- C x 

Table 2. Equations. 




Photo 3 
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of points to be connected with lines, and 
the following numbers are the points to be 
connected. As with the first block of data 
statements, there should be one data state- 
ment for each group of line descriptions. 

The first block of data ends with -999, 
-999,-999 to signal the end of the vertices. 
The second block of data must end with a 
zero for the same reason. 

When you type in this program you can 
leave out the remark statements. Do not put 
the On Error GOTO statement in until you 
discover every typing error. 

Limitations 

Since the program draws an entire line 
even if the line has only a small section in 
the screen area, a lot of time is wasted 
drawing invisible lines. Alleviate this by 
breaking up long lines into smaller sec- 
tions. If you desire curves, approximate 
them with a number of smaller segments. 

Keep graph paper within arm's reach 
when you are placing objects in a de- 
veloping universe. Determining vertices and 
their connection is a snap. 

By increasing K s , you produce a tele- 
photo lens of any power. Experiment with 
this variable to yield interesting views. De- 
creasing K s produces severe projection as 
in fish-eye lens views. 

Remember you can observe objects from 
any position. All objects can be coplanar or 
floating in different areas of space. 

Where do we go from here? 3-D graphic 
representation is a fascinating area of com- 
puter science. More sophisticated pro- 
grams block objects behind others as the 
position of the observer changes. Real-time 
graphics make games exciting; engineers 
use them to study the design of buildings, 
airplanes and cars. ■ 

Eric Fogelin is an undergraduate at the 
University of Massachusetts where he ma- 
jors in Astronomy and Computer Science. 





Fig. 4.XY Plane. 



ULTIMATE SOFTWARE PLAN 



Well match any advertised price on any 
item that we carry. And if you find a lower 
price on what you bought within 30 days of 
buying it, just show us the ad and we'll 
refund the difference. 
It's that simple. 



DISK WITH , 
MANUAL/ 

ARTIFICIAL INTELLIGENCE' 

Medical(PAS-3) $849/$40 

Dental (PAS-3) $849/$40 

ASYST DESIGN* 
Prof Time Accounting. $549/540 
General Subroutine. $269/$40 
Application Utilities S439/S40 

COMPLETE BUS. SYSTEMS* 

Creator $269/$25 

Reporter S169/S20 

Both $399/$45 

COMPUTER CONTROL* 

Fabs(B-tree) $159/$20 

UltraSort II $159/$25 

COMPUTER PATHWAYS* 

Pearl (level 1) I 99/S25 

Pearl (level 2! $299/$40 

Pearl (level 3) $549/$ 50 

DIGITAL RESEARCH* 
CP/M 2.2 

NorthStar $149/$25 

TRS-80 Model II 
(P+T) $159/$35 

Micropolis S169/$25 

PL/l-80 $459/$35 

BT-80 $ 1 79/$30 

Mac $ 85/$15 

Sid $ 65/$15 

Z-Sid $ 90/$ 15 

Tex $ 90/$15 

DeSpool $ 50/$ 10 

CB-80 $459/$35 

CBasic-2 $ 98/$20 

DMA. 

Ascom 

Formula 

GRAHAM-DORIAN* 

General Ledger 

Acct Receivable 

Acct Payable $729/$40 

Job Costing $729/$40 

Payroll II $729/$40 

Inventory II $729/$40 

Payroll $493/$40 

Inventory $493/$40 

Cash Register $493/$40 

Apartment Mgt $493/$40 

MICRO-AP* 

S-Basic $269/$25 

Selector IV $295/$35 

Selector V $495/$50 

MICRO DATA BASE SYSTEMS* 

HDBS $269/$35 

MDBS $795/$40 

DRSorQRSorRTI $269/$10 

MDBS PKG $1295/$60 

MICROPRO* 

WordStar $319/$60 

Customization Notes. . $429/$na 

Mail-Merge $109/$25 

WordStar/Mail-Merge $419/$85 

DataStar $249/$60 

WordMaster $119/$40 



MANUAL 
ONLY 



Combine our price protection with the 
availability of full professional support and 
our automatic update service and you have 
the Ultimate Software Plan. 

It's a convenient, uncomplicated, logical 
way to get your software. 

\S (New items or new prices) 

CP/M users: 

specify disk systems and formats. Most formats available. 



DON T SAY UNCLE; 
SAY MICROTAX TODAY! 

Individual $ 250/$na 

Professional $1000/$na 

Partnership $ 750/$na 

Package $1500/$na 

ACRS, depreciation, batch 
computing/printing of over 
30 forms/schedules, and 
much more. 



.$149/$ 15 
$539/$45 



$729/$40 
$729/$40 



SuperSort I 

Spell Star 

CalcStar 

MICROSOFT* 

Basic-80 

Basic Compiler. . . 

Fortran-80 

Cobol-80 

M-Sort 

Macro-80 

Macro-86 

Edit-80 

MuSimp/MuMath. 

MuLisp-80 

Multi Plan. 



.$199/$40 
.$175/$40 
.$259/$na 

$298 
$329 
$349 
$629 
$124 
$144 
$259 
$ 84 
$224 
$174 
Call 



ORGANIC SOFTWARE" 

TextWriter III $111/$25 

DateBookll $269/$25 

Milestone $269/$30 

OSBORNE* 

General Ledger $ 59/$20 

Acct Rec/Acct Pay .... $ 59/$20 

Payroll w/Cost $ 59/$20 

All 3 $129/$60 

All 3 + CBASIC-2. . . $199/$75 
Enhanced Osborne... $269/$60 
PEACHTREE* 

General Ledger $399/$40 

Acct Receivable $399/$40 

Acct Payable $399/$40 

Payroll $399/$40 

Inventory $399/$40 

Surveyor $399/$40 

Property Mgt $799/$40 

CPA Client Write-up. $799/$40 

Mlg Address $349 

P5 Version Add $129 

^MagiCalc $269/$25 

^Other less 10% 

SOFTWARE WORKS* 

Adapt (CDOStoCP/M) .$ 69/$na 

Ratfor $ 86/$na 

SOHO GROUP* 

MatchMaker $ 97/$20 

Worksheet $177/$20 

STRUCTURED SYSTEMS* 
s Business Packages. 
Call for Price 
SORCIM* 

^ SuperCalc $269/$na 

x Trans 86 $115 

^Act $157 

TCS* 

GLorARorAPorPay..$ 79/$25 

All 4 $269/$99 

Compiled each $ 99/$25 

Inventory $ 99/$25 

SUPERSOFT* 

Diagnostic I $ 49/$20 

Diagnostic I! $ 84/$20 

Disk Doctor $ 84/$20 

Forth (8080 or Z80! .... $ 1 49/$30 

Fortran $219/$30 

Fortran w/Ratfor $289/$35 

C Compiler $174/$20 

Star Edit $189/$30 

Other less 10% 

UNICORN* 

Mince $149/$25 

Scribble $149/$25 

Both $249/$50 

WHITESMITHS* 

C" Compiler $600/$30 

Pascal (incl "C"! .. . $850/$45 

"PASCAL 

Pascal/MT+ Pkg $429/$30 

Compiler $315 

SpProg. $175 

Pascal/Z $349/$30 

•s Pascal/UCSD 4.0 . $670/$ 50 
Pascal/M $355/$20 



DATA BASE 




FMS-80 


$649/$45 


dBASEII 


$595/$ 50 


Condor II 


$899/$ 50 


Access 80 Level 1 . . 


$249 


Access 80 Level 2 


$429 


Access 80 Level 3. . . 


$679 


Optimum 


.$749/150 


WORD PROCESSING 


WordSearch 


$179/$ 50 


SpellGuard 


$229/$25 


VTS/80 


$2 59/$ 65 


Magic Wand 


$289/$45 


s Magic Spell 


$269/$25 


Spell Binder 


$349/$45 


Select 


$495/$na 


OTHER GOODIES 




Micro Plan 


.$419/$na 


Plan 80 


$269/$30 


Target 


$189/$30 


BSTAM 


$149/$na 


BSTMS 


$149/$na 




$ 89/$50 


Tiny "C" Compiler. . 


$229/$50 


s Nevada Cobol 


$179/325 




$224/$25 




$ 1 30/$ 1 5 


MiniModel 


$449/$50 


StatPak 


$449/$40 


Micro B+- 


$229/$20 



Raid 

String/80 

String/80 (source). 
ISIS CP/M Utility. . 
Lynx 



$224/$35 
.$ 84/$20 
.$279/$na 
$199/$ 50 
$199/$20 



INFO UNLIMITED* 

EasyWriter $199 

Datadex $249 

EasyMailer $128 

Other less 15% 

MICROSOFT* 

Softcard (Z-80 CP/M) $298 

Fortran $179 

Cobol $499 

Tasc $139 

MICROPRO* 

Wordstar $269 

MailMerge $99 

Wordstar/MailMerge . $349 

SuperSort I $159 

Spellstar $129 

PERSONAL SOFTWARE' 

Visicalc2.3 $159 

Desktop/Plan II $159 

Visiterm $129 

Visidex $159 

Visiplot $149 

Visitrend/Visiplot $229 

Visifile $199 

PEACHTREE* 
^-G/L.A/R, A/P, Payor 

Inventory (each) $224/$4C 

OTHER GOODIES' 
VU S3R 

(usew/Visicalc) $ 79 

Context Connector 

(usew/Visicalc) $129 

Micro Courier $219 

Super-Text II $127 

Data Factory $ 1 34 

DB Master $184 

Charles Mann less 15% 

STC less 15% 



IBM PC SOFTWARE 



Manager Series Call 

ORDERS ONLY-CALL TOLL FREE VISA 



' Busmess/Med/WP 
Call for Price 



MASTERCHARGE 



1-800-854-2003 ext. 823 • Calif. 1-800-522-1500 ext. 823 

Outside Continental U.S. — add $10 plus Air Parcel Post • Add $3.50 postage and handling per each item 
• California residents add 6% sales tax • Allow 2 weeks on checks, CO. D. $3.00 extra • Prices subject to change 
without notice. All items subject to availability • @ — Mfgs. Trademark. Blue Label $3.00 additional per item. 

THE DISCOUNT SOFTWARE GROUP 

6520 Selma Ave. Suite 309 • Los Angeles, Ca. 90028 • (213) 837-5141 ' 101 

Int'l TELEX 499-0446 DISCSOFT LSA • USA TELEX 194-634 (Attn: 499-0446) 
TWX 910-321-3597 {Attn: 499-0446) 
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GRAPHICS 



Advanced graphics translated for the Color Computer. 



Is a Rose i 




Roy Green 
Box 2248 
Athens, GA 30602 



I recently bought a Color Computer and 
have been busy translating graphics pro- 
grams. Bob Boothe's article "Advanced 



ii 



Program Listing 1 

CONVERSION FOR TRS-80 COLOR COMPUTER OF A SERIES OF GRAPHICS 
PROGRAMS FROM THE ARTICLE 'ADVANCED GRAPHICS TECHNIQUES — PART 

r 
WRITTEN BY BOB BOOTHE AND PUBLISHED IN THE MAY 1981 ISSUE OF 
80-MICROCOMPUTING, PP. 119-142. 
ARTICLE AND ORIGINAL PROGRAMS (C) 1981, 1001001 INC. 

COLOR COMPUTER VERSION (C) 19 81, ROY GREEN. 
(16K extended basic required) 



10 'initialize and present menu 

20 PI=3. 14159 

30 CLS 

40 PRINT"TRS-80 ARTIST" :PRINTSTRING$ (32, "-") ; 

50 PRINT" CHOOSE ONE OF THE FOLLOWING:" 

60 PRINTTAB(4) "1 — DIAG. OF N-SIDED POLYGON" 

70 PRINTTAB(4) "2 — THE EYE!" 

80 PRINTTAB(4) "3 — MOIRE INTERFERENCE" 

90 PRINTTAB(4) "4 — THE TUNNEL" 

100 PRINTTAB(4) "5— THE IRIS" 

110 PRINTTAB(4) "6 — THE ABYSS" 

120 PRINTTAB(4) "7 — FOUR LEAF ROSE" 

130 PRINTTAB(4) "8--THE PILLOW" 

140 PRINTTAB(4) "9 — EIGHT LEAF ROSE" 

150 PRINTTAB(3) "10 — ARCHEMEDES'S SPIRAL I" 

160 PRINTTAB(3) "11— ARCHIE'S SPIRAL II" 

170 INPUT"WHICH ONE"; A 

180 IFA<1 OR A>11 THEN170 

190 CLS:ON A GOTO1000 ,2000 ,3000 , 4000 ,5000 ,6000 ,7000 , 8000 , 9000 ,10 

000,11000 

200 ' 

210 'set up graphics screen 

220 PM0DE4,1:PCLS1:SCREEN1 ,0 

Program Listing 1 Continues 



Graphics Techniques— Part II" (80 Micro- 
computing, May 1981) quickly caught my 
eye. Program Listing 1 is the Color Com- 
puter conversion of the figures in his article 
combined in a menu program. Note that 
using RUN instead of GOT01 avoids a re- 
dimensioned array error with designs one 
and two. 

I also could not resist Part III of Bob 
Boothe's graphics articles (80 Microcom- 
puting, June 1981). Program Listing 2 pro- 
duces a hat with visor, rotated on demand. 

Program Listing 3 is a conversion of 
Howard Batie's "Supermaze" (80 Micro- 
computing, June 1981). This program, run 
on a 16K Extended Basic machine, comes 
within a few bytes of the stack area. To add 
new statements, remove remarks or com- 
bine lines. 

Some machines may have problems with 
the POKE 65495,0 statement. If yours does, 
remove the statement. 

I'd like to hear from people who have de- 
signed mazes or drawn new objects for the 
3-D program. ■ 



The Key Box 

Extended Color Basic 
Color Computer 
16K RAM 
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Program Listing 1 Continued 



23 RETURN 

300 ' 

310 'draw line 

320 LINE(Xl,Yl)-(X2 r Y2) , PRESET 

330 RETURN 

1000 ' 

1010 'design one 

10 20 INPUt"NUMBER OP POINTS" ;N 

1030 DIMA(N) ,B(N) 

1040 FORT=0TO2*PI-.001STEP2*PI/N 

J050 Z=Z+i 

1060 A(Z) =COS(T)*95+127:B(Z)=SIN(T) *95+96 

1070 NEXTT 

1080 GOSUB200 

1090 FORS=lTO N-l:FORD=S+lTO N 

1100 X1=FIX(A(S)) :Y1=FIX(B(S)) 

1110 X2=FIX(A(D) ) :Y2=E'IX{B(D)) 

1120 GOSUB300 

J 230 NEXTD,S 

1140 FORI=1TO4000:NEXTI:RUN 

2000 ' 

2010 'design two 

2020 INPUT"NUMBER OF POINTS";N 

2030 GOSUB200 

2040 DIMA(N) ,B(N) 

2050 FORQ=0TO191STEP6 

2060 X1=0:Y1=Q:X2=Q:Y2=191 

2070 GOSUB300 

2080 Xl«Q+3:Yl=0:X2*191:Y2=Q+3 

2090 GOSUB300 

2100 NEXTQ 

2110 FORT=0TO2*PX-.0 01STFP2*?I/N 

2120 Z=Z+i 

2130 A(Z)=COS{T)*50t96:B(Z)=SIN(T)*50+96 

2140 NEXTT-.GOTO1090 

3000 ' 

3010 'design three 

3020 GOSUB200 

3030 FORT=0TO PI/2 STEPPI/90 

3040 Xl=FIX(COS(T)*45) : Y1=FIX ( SIN(T) *45) 

3050 X2=FIX(COS(T)*191) : Y2=FIX ( SIN (T) *191 ) 

3060 GOSUB300 

3070 X1=191-X1:Y1=191-Y1 

3080 X2=191-X2:Y2=191-Y2 

3090 GOSUB300 

3100 NEXTT 

3110 FORI=1TO4000:NEXTI:RUN 

4000 ' 

4010 'design four 

4020 GOSUB200 

4030 X1=120:Y1=120 

4040 F0RQ=1T032 

4050 X2=X1+5*Q+3:Y2=Y1 

4060 GOSUB300 

4070 Xl=X2:Yl=Y2+5*Q+3 

4080 GOSUB300 

4090 X2=X1-5*Q-6:Y2=Y1 

4100 GOSUB300 

4110 Xl=X2:Yl=Y2-5*Q-6 

4120 GOSUB3 00 

4130 NEXTQ 

4140 FORI=1TO4000:NEXTI:RUN 

5000 ' 

5010 'design five 

5020 GOSUB200 

5030 FORT=0TO2*PI STEPPI/40 

5040 Xl=FIX(COS(T)*95+127) : Y1=FIX( SIN(T) *95+96) 

5050 A=T+3*PI/4 

5060 X2=FIX(COS(A)*95+127) : Y2=FIX (SIN(A) *95+96) 

5070 GOSUB300 

5080 NEXTT 

5090 FORI=1TO4000:NEXTI:RUN 

6000 ' 

6010 'design six 

6020 GOSUB200 

6030 FORT=0TO8.5*PI STEPPl/15 

Xl=FIX(COS(T) *4*T+127) : Y1=FIX ( SIN(T) *4*T+96) 



604( 



Program Listing 1 Continues 



Smartmod 




$249 

• Auto-Answer • Auto-Dial • Repeat 

• Programmable-Use Any Language 

• Touch-Tone and Pulse Dialing 

• Audio Monitor-Listen to Connection 

• FCC-Approved Direct-Connect 

• Full or Half Duplex, 0-300 Baud 

• RS-232C Interface • 7 Status LED's 

• Two Year Limited Warranty 

ACE SOFTWARE 
$39 with purchase 

FOR 32K/48K MODEL 1/111 COMPUTERS 

• Switch from HOST to TERMINAL mode 

• Dial another computer system 

• Redial if busy or no answer 

• When the computer answers log on 

• Send an ASCII file from your disk 

• Terminate from system when finished 

• Switch from TERMINAL to HOST mode 

• When a TERMINAL calls ask for a 
password 

• Receive an ASCII file to your disk 

• Terminate caller when finished 

• Wait for an incoming call and check 
time 

• At preset time make an outgoing call 

flC€ COMPUT€R PRODUCTS 
of Florida Inc. 

1640 N.W. 3rd St. 

DEERFIELD BEACH, FL 33441 

VOICE (305) 427-1257/DATA (305) 427-6300 

Master Charge and Visa accepted 



■■■TRS-80' Model III/ 1 

WOBOS™ 




Basic Operatino System 

Who needs tt? Everyone who writes or uses programs in BASIC. 
For Tape systems it'a like having a DOS without the hardware* 
For Disk systems tt provides the structure that DOS doesn't! 
When you CLOAD this magnificent System you g«t over 30 pow- 
erful programs, routines arid subroutines et your direct com 
mand or from a 9 -choice Menu that can very easily be dou- 
bled and customized to your needs. Designed to b* used as 
"stock" for ALL BASIC programs. 

Strrtpty edd your program to itl 



* It will add multi frequency SOUND lo your TRS 80 

* It will standardize your writing and save you many ho 
or debugging and rewriting utility functions. 

* It wtil help you structure YOUR OWN programs 



'Once you'v& used it, you'll neve 
anotti*? program without it!' 



write 



Model I 


Model III 


LEVEL II 


DISK 


MODEL III 


DISK 


CC1022A 


CD 1032 A 


CC 1021 B 


CD 1031 A 



ON QUALITY CASSETTE S MANUAL 

ofloes phone MBBB1 oklv 

;,., '-' "*? i,,i' "r- VISA 'MasleiCaia ._»»« 

csoaj e*»-*ssse •...• . »35 

SEND CHECK. MONEY ORDER OR NUMBER AND 
EXPIRATION DATE OF YOUR CREDIT CARD TO^ 

WliEMiN OffliMlO^S *** ,79 

6640 SW 173 AVENUE. BEAVERTON, OREGON 97007 

•IBS-Id is a I« g| Till) S«»P. ^^ 






sSee List of Advertisers on page 402 
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Program Listing 1 Continued 



6050 

6060 

6070 

6080 

6090 

7000 

7010 

7020 

7030 

7040 

7050 

7060 

7070 

7080 

7090 

7100 

7110 

7120 

8000 

8010 

8020 

8030 

9000 

9010 

9020 

9030 

10001 

10011 

10021 

1003C 

1004( 

10051 

1006E 

10076 

1100J 

11011 

1102C 

1103C 



A=T+2*PI/3 

X2=FIX(C0S(A) *4*A+127) :Y2=FIX(SIN(A) *4*A+96) 

GOSUB300 

NEXTT 

FORI=1TO4000:NEXTI:RUN 
i 

"design seven 

GOSUB200 

M=3:F«=2 

FORT=0TO2*PI STEPPI/60 

R=COS(F*T)*95 

Xl=FIX(COS(T)*R+127) : Y1=FIX (SIN(T) *R+96) 

A=T+PI/M 

R2=COS(F*A)*95 

X2=FIX(C0S(A) *R2+127) : Y2=FIX(SIN(A) *R2+96) 

GOSUB300 

NEXTT 

FORI=1TO4000:NEXTI:RUN 



'design eight 

GOSUB200 

M=2:F=2:GOTO7040 

'design nine 

GOSUB200 

M=4:F=4:GOTO7040 

I ' 

l 'design ten 

GOSUB200 

FORT=0TO2*PI STEPPI/15 

R=T*17 

GOSUB12000 

NEXTT 

FORI =1TO400 : NEXTI : RUN 
i 

'design eleven 

GOSUB200 

R=l 



11040 
11050 
11060 
11070 
11080 
12000 
12010 
12020 
12030 
12040 
12050 
12060 
12070 
12080 
12090 
12100 
12110 
12120 
13000 
13010 
13020 
13030 
13040 
13050 
13060 
13070 
13080 
13090 



FORT=0TO3 . 24STEPPI/28 

R=R*1. 17557 

GOSUB12000 

NEXTT 

FORI=1TO4000:NEXTI:RUN 
• 

'sub for ten and eleven 

Xl=FIX(COS(T)*R+127) : Y1=FIX (SIN(T) *R+96) 
X3=X1:Y3=Y1 
A=T+2*PI/3 

X2=FIX(COS(A)*R+127) :Y2=FIX(SIN(A) *R+96) 
GOSUB300 
B=T+4*PI/3 

X1=FIX(C0S(B) *R+127) : Y1=FIX(SIN(B) *R+96) 
GOSUB300 
X2=X3:Y2=Y3 
GOSUB300 
RETURN 

i 

'to add a touch of "color", 

•change line 220 to read 

' "220 SCREENl,l n 

• 

'to speed things up a bit, 

'type this before running 

'POKE 65495,0 

'to slow back down, type — 

'POKE 65494,0 



Program Listing 2 

5 CLS:POKE65495,0 

10 PRINT :PRINT"THREE DIMENSIONAL GRAPHICS FOR 



THE TRS-80 COLOR 

Program Listing 2 Continues 



PRINTERS 




EPSON MX70 CALL 

EPSON MX80 CALL 

EPSON MX80 F/T CALL 

EPSON MX 100 CALL 

NEC PC-8023A-C $555 

ANACOM ANC150P OR S $1195 

ANACOM ANC160P OR S $1465 

TALLY MT-1602 OR 5 $1495 

TALLY MT-1802 OR 5 $1795 

NEC 3510-1, 3515-1, 3530-1 .... $1795 
NEC 7710-1, 7715-1, 7730-1 .... $2495 

NEC 7720-1, 7725-1 $2995 

C.ITOH FP 1500 25PU, 

H, OR Q $1350 

C.ITOH FP 1500 25RU $1450 

C.ITOH FP 1500 45PU OR Q . . . $1795 

C.ITOH FP 1500 45RU $1995 

HP-PRINTERS $ CALL 




HEWLETT PACKARD 




• HP-125 Microcomputer $2995 

• HP-85A Microcomputer $2195 

• HP-83A Microcomputer $1595 

• HP 85/83 16K Memory Module . . $169 

• HP7225B Graphics Plotter $1959 

• HP-5 Va" Dual Disk Drive $1995 

• HP-5 Va Single Disk Drive $1249 

• HP 8" Dual Disk Drive $5395 

• HP-Other Mass Storage Units . . CALL 

• HP-9111 A Graphics Tablet $1595 

• HP Firmware CALL 

• HP Software Packages CALL 

• HP Interfaces CALL 

OTHER COMPUTERS 

• ALTOS MTU/Floppy/Harddisk . CALL 

• ADDS Computer Systems CALL 

• ATARI Computer and 
Accessories CALL 



■■■■■■■■■•■■■■Hi 



NEC COMPUTER 




• NEC Computer PC-8001A $795 

• NEC I/O Unit PC-801 2A $539 

• NEC I/O Port PC-8033A $152 

• NEC Disk Drive PC-8031A $795 

• NEC Disk Drive PC-8032A $695 

• NEC Dot Printer PC-8023A-C . . . $550 

• NEC GR Monitor JB-1201 $199 

• NEC COL Monitor JC-1202 $769 

• NEC Accessories & Software . . . CALL 

TELEVIDEO TERMINALS 

• 910C $595 

• 920C $750 

• 91 2C $705 

• 950C $959 

• ADDS Viewpoint WB2101 

or WB2102 $595 



Calif. (7I4) 545-22I6 (800) 854-8498 



P.O. BOX 743, ANAHEIM, CALIFORNIA 92805-0743 



fa»i ^r^aai^j*a«ji4Liffi!2s.ii2!}a6BS««aiaiaa 
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BASIC is not 
nearly as slow as most 
programmers think it is. BASIC Faster 
and Better shows you how to super- 
charge your BASIC, with 300 pages 
of fast, functions and subroutines. 

You won't find any trivial 'check- 
book-balancing' programs in this 
book - it' s packed with useful 
programs. 

Tutorial for the beginner, instruc- 
tive for the advanced, and invaluable 






BASIC FASTER M^H 
AND BETTER ^^^^ 

«fc OTHER MYSTERIES 





for the professional, this 
book doesn't just talk ... it 
shows how! All of the routines are 



»"*>«£ 




1260 W. Foothill Blvd. 
Upland, California 9 1786 

(714)946-5805 



also available on disk, so that you 
can save hours of keyboarding and 
debugging. 

BASIC Faster & Better and Other 

Mysteries is $29.95. and the two 
program disks are $19.95 each. The 
# 1 disk BFBDEM contains all the 
demonstration programs, and #2 
BFBLIB has all the library functions. 

Get the book and.' or disks from 
your local IJG dealer and B. Dalton 
bookstores. 




'■»-.»• ' : 






FiH this space with a GRAFTRAX graphic 
and win a trip to Japan. 

The Epson 
"Softwear" Sweepstakes. 



We're looking for the Picasso of programming. So we 
drew up an art contest for people who don't know a 

painting pallet from a PROM. 

If you've got an Epson printer, a computer and a little 
imagination, you could win a week-long trip for two to 
Japan. Or our top-of-the-line 136-column MX-100 
printer. Or his and hers Seiko Quartz Watches. Or a 
whole lot of honorable mention prizes. And you'll get a 
T-shirt with the winning graphic just for entering. 

All you have to do is program a GRAFTRAX graphic 
— abstract, landscape, still life, whatever — using an 
Epson MX-70, MX-80, MX-80 F/T or MX-100 printer. 
We'll not only put it on our T-shirts, we'll be displaying 
the winning entries for all to see in June at the National 
Computer Conference in Houston. 

Why, you may ask, are we being so generous? It's 
simply because GRAFTRAX is the most incredible 
graphics capability made for micros. And we want to 
see it used to its full potential. 



All entries will be judged on originality, creativity 
and best use of computer equipment. They must be 
postmarked no later than May 1, 1982, and be accom- 
panied by the software program, so we can recreate the 
winning entries for verification. Make sure the graphic 
is no larger than 8" x 10" and no smaller than 4" x 6". 
And remember, if you digitize art or a photograph, it 
must have been originally created by you. 

So get busy and enter. 
You might be a winner. 
And your software 
could be your "soft- 
wear." 




EPSON AMERICA, INC. 



3415 Kashiwa Street ■ Torrance, California 90505 







EPSON 

"SOFTWEAR" 

SWEEPSTAKES 

RULES 

1) Any computer equipment may be used to format the entry, 
but the graphics output must have been printed on an Epson 
MX-70, MX-80, MX-80 F/T or MX -100 printer with either 
built-in or optional GRAFTRAX. Winning entries will be re- 
created by Epson for verification. 

2) Each entry must be accompanied by the software program 
used to create it. All entries and software and the rights to use 
them become the property of Epson America, Inc. 

3) All entries must be at least 6"x 4" and no larger than 8"x 10" 
in size. 

4) Art or photographs, if used, must have been created by the 

entrant. 

5) All entries will be judged by an independent panel of 

judges on their creative merit, originality and best use of com- 
puter equipment. Decision of the judges is final. 

6) This contest is valid from January 1, 1982 until May 1, 1982. 
Entries must be postmarked no later than May 1, 1982. 

7) Participation in the Epson "Softwear" Sweepstakes is open 
to any except the following: employees of Epson America, 
Inc., its service agencies, or their families. 

8) Winners will be notified by mail no later than June 1, 1982. 
A list of winners will be made available by sending a stamped, 
self-addressed envelope to Epson America, Inc., 3415 Kashiwa 
Street, Torrance, CA 90505. 

9) Entries will be maintained on file at Epson America, Inc. 

until January ] 1983. 

10) Prizes are as follows: First prize includes round-trip 
economy air transportation for two to Tokyo, from the airport 
nearest the winner's place of residence, and six nights stan- 
dard hotel accommodations, double occupancy. Trip does not 
include airport departure taxes, hotel service charges, cost of 
transportation or other expenses incurred before leaving the 
airport of initial departure, returning to Tokyo airport and re- 
turning home from the airport of initial departure; nor does it 
include meals or gratuities. Second prize consists of one 
Epson MX-100 Printer. Third prize consists of his and hers 
Seiko Quartz Watches. Additional prizes include 25 Micro- 
Nine Printheads, 50 Epson Digital Watches, and 100 Epson 
Ribbon Cartridges 

11) You may enter more than once, but each entry must be 
accompanied by trie official entry coupon below. 

12} V,_,id where prohibited by law 



Attach this form firmly to the back of each graphic you enter. 



NAME . 
STREET 



CITY - 
STATE 



ZIP 



PHONE ( 



-) 



COMPUTER EQUIPMENT USED 



PRINTER MODEL AND SERIAL NUMBER 



S 



M 



T-SHIRT SIZE 

Mail entries to: 

"SOFTWEAR" SWEEPSTAKES 

Epson America, Inc. 

3415 Kashiwa Street 

Torrance, California 90505 ^97 



EPSON 

EPSON AMERICA, INC. 
sSee List of Advertisers on page 402 



XL 



ROTATE ";D:PRI NT "CALCUL 



Program Listing 2 Continued 

COMPUTER" : PRINTSTRING$ ( 32 , "-" ) ; 

15 PRINT :PRINT"ORIGINAL PROGRAM BY BOB BOOTHE" : PRINT : PRINT"COLOR 

COMPUTER VERSION BY ROY GREEN 1981" 
20 SCREEN0,1 
25 FORI=1TO2000:NEXT 

30 PRINT:PRINT"READING DATA" : SCREEN0 , 1 
40 PI=3. 1415926 

50 DIMX(100,2) ,Y(100,2) ,Z(100,2) 
60 N=l 

7 READX(N,1) ,Y(N,1),Z(N,1),X(N,2),Y(N,2),Z(N,2) 
80 IFX(N,1) <>1000THENN=N+1:GOTO70 
90 N=N-1 

100 CLS:PRINTN"DATA LINES WERE READ" 
110 PRINT:PRINTTAB(3) "1 — ROTATE AROUND X AXIS" 
120 PRINTTAB(3) "2 — ROTATE AROUND Y AXIS" 
130 PRINTTAB(3) "3 — ROTATE AROUND Z AXIS" 

140 PRINTTAB(3) "4 — STRETCH OR SHRINK" : PRINTTAB ( 3) " 5 — DISPLAY" 
150 PRINTTAB(3) "6 — END PROGRAM" 
160 PRINT: INPUT" ENTER FUNCTION NUMBER" ;F 
170 IFF<1 OR F>6THEN160 
180 ON F GOTO190,190,190,500,600,800 
190 INPUT"ENTER THE NUMBER OF DEGREES TO 
ATING. .." 

200 F0RQ=1T0N:F0RB=1T02:IFX(Q,B) =0OR Y(Q,B) =0ORZ(Q,B) =0THEN900:N 
EXT: NEXT 

210 ON F GOTO220,300,380 
220 F0RQ=1T0N:F0RB=1T02 
230 T=ATN(Z(Q,B)/Y(Q,B) )+D*PI/180 
240 IFY(Q,B)<0THENT=T+PI 
250 R=SQR(Z(Q,B) [2+Y(Q,B) [2) 
260 Y(Q,B)=COS(T)*R 
270 Z(Q,B)=SIN(T) *R 
280 NEXT:NEXT 
290 CLS:GOTO110 
300 FORQ=lTON:FORB=lT02 
310 T=ATN(Z(Q,B)/X(Q,B) )+D*PI/180 
320 IFX(Q,B)<0THENT=T+PI 
330 R=SQR{Z(Q,B) [2+X(Q,B) [2) 
340 X(Q,B)=COS(T)*R 
350 Z(Q,B)=SIN(T)*R 
360 NEXT:NEXT 
370 CLS:GOTO110 
3 80 F0RQ=1T0N:F0RB=1T02 
390 T=ATN(Y(Q,B)/X(Q,B) )+D*PI/180 
400 IFX(Q,B) <0THENT=T+PI 
410 R=SQR(Y(Q,B) [2+X(Q,B) [2) 
420 X(Q,B)=COS(T)*R 
430 Y(Q,B)=SIN(T)*R 
440 NEXT:NEXT 
450 CLS:GOTO110 

500 INPUT" (ENTER A FACTOR FOR X, Y, AND Z IN THAT ORDER" ; X ,Y , Z 
510 IFX=0ORY=0ORZ=0THENPRINT"ZERO IS INVALID. TRY AGAIN. "ELSEPRI 
NT"CALCULATING. . ." 
520 F0RQ=1T0N:F0RB=1T02 

530 X(Q,B)=X(Q,B) *X:Y(Q,B)=Y(Q,B) *Y: Z (Q,B) =Z (Q,B) *Z : NEXT: NEXT 
540 CLS:GOTO110 

600 CLS:PMODE4,1:PCLS1:SCREEN1,0 
610 HY=Y{1,1) :LY=HY:HZ=Z(1,1) :LZ=HZ 
620 F0RQ=1T0N:F0RB=1T02 
630 IFY(Q,B)>HY THENHY=Y(Q,B) 

IFY(Q,B)<LY THENLY=Y(Q,B) 

IFZ(Q,B)>HZ THENHZ=Z(Q,B) 

IFZ(Q,B)<LZ THENLZ=Z(Q,B) 



640 

650 

660 

670 NEXT:NEXT 

680 

690 

7 



W=HY-LY:IFHZ-LZ>W THENW=HZ-LZ 

SY=-(HY+LY)/2:SZ=-(HZ+LZ)/2 

F0RQ=1T0N 



710 X1=INT(127.5+(Y(Q,1)+SY)/W*209) : Y1=INT ( 95 . 5- ( Z (Q, 1) +SZ) /W*19 

0) 

720 X2=INT(127.5+(Y(Q,2)+SY)/W*209) : Y2=INT ( 95 . 5- ( Z (Q, 2) +SZ) /W*19 

0) 

730 LINE(X1,Y1)-(X2,Y2) , PRESET 

740 NEXT 

750 Z$=INKEY$:IFZ$=""THEN750 

76 IFZ$="M"THENCLS:GOTO110:ELSE750 

800 POKE65494,0:END 

90 S=.001:FORQ=1TON:FORB=1TO2:X(Q,B)=X(Q,B)+S:Y(Q,B)=Y(Q,B)+S:Z 

(Q, B) =Z (Q,B)+S: NEXT: NEXT :GOTO200 

3000 'data 

3010 DATA0, 100, 10, 0,0,0 

3020 DATA87,50,10,0,0,0 

3030 DATA87,-50,10,0,0,0 

3040 DATA0, -100, 10, 0,0,0 

3050 DATA-87,-50,10,0,0,0 

3060 DATA-87,50,10,0,0,0 

3070 DATA0, 100, 10, 0,125, 100 

3080 DATA87,50,10,108,63,100 

Program Listing 2 Continues 
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First in 

Its Class 

and 

Looking 

for 

Work. 



TRS-80 Model I, II, III 

Five multiple regression procedures 
(including stepwise, backward elimination, all 
subset, and ridge), 24 transformations, com- 
prehensive data base manager (with search 
and sort), descriptive statistics, hypothesis 
testing (7 tests), time series analysis (7 
models), random vanate generation, discrete 
probability distributions, sampling distribu- 
tions, nonparametrics (5 tests), and com- 
plete documentation. 

Complete package with manual — $125 

To order, send payment plus $2.00 shipping 
and handling to: 



Quant Systems 

P.O. Box 628 

Charleston, S.C. 29402 

803-571-2825 

S.C. residents add 4% sales tax 
Overseas orders add $7 for shipping 



194 



The 

Lawyer's 

Microcomputer 1 



A Newsletter for Lawyers 
Using the TRS-8(K 

• Articles for Lawyers 

• Law Office Applications 

• Lawyer Information 
Exchange 

• Software Reviews 

• Hardware Reviews 

• Advertisements Directed 
to Lawyer Users 

• Technical Tips 

• Letters and Suggestions 

• And Much More 

A New Monthly Newsletter 
For Lawyers 

Send $28 For A 
One Year Subscription 

The Lawyer's Microcomputer™ 

Post Office Box 1046A 
Lexington, S.C. 29072 

"191 *TM Tandy Coip 
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Program Listing 2 Continued 

3090 DATA87,-50,10,108,-63,100 3260 

3100 DATA0, -100, 10,0, -125, 100 3270 

3110 DATA-87,-50,10,-108,-63,100 3280 

3120 DATA-87,50,10,-108,63,100 3290 

3130 DATA0,100,10,87,50,10 3300 

3140 DATA87,50,10,87,-50,10 3310 

3150 DATA87,-50,10,0,-100,10 3320 

3160 DATA0,-100,10,-87,-50,10 3330 

3170 DATA-87,-50,10,-87,50,10 3340 

3180 DATA-87,50,10,0,100,10 3350 

3190 DATA0,125,100,108,63,100 3360 

3200 DATA108, 63, 100, 125, 0,100 3370 

3210 DATA125, 0,100, 108, -63, 100 3380 

3220 DATA108, -63, 100,0, -125, 100 3390 

3230 DATA0,-125,100,-108,-63,100 3400 

3240 DATA-108,-63,100,-108,63,100 3410 

3250 DATA-108, 63, 100, 0,125, 100 3999 



DATA5 9,9 4,100,200,6 3,115 

DATA20 0,6 3,115,225,0,110 

DATA225, 0,110, 200, -63, 115 

DATA200,-63,115,59,-94,10( 

DATA89,40,20,103,40,80 

DATA103,40,80,103,-40,80 

DATAl03,-40,80,89,-40,20 

DATA89 ,-40 ,20,89,40,20 

DATA92,30,30,92,10,30 

DATA92,10,30,101,3 0,70 

DATA101,30,70,101,10,70 

DATA101,10,70,92,30,30 

DATA92,-10,30,92,-30,30 

DATA92,-30,30,101,-30,70 

DATA101,-30,70,101,-10,70 

DATA101,-10,70,92,-10,30 

DATA1000,, 



Program Listing 3 

10 CLEAR100:CLS:PRINT"SUPERMAZE":PRINTSTRING$(32,"-") ; 

20 PRINT"COPYRIGHT 1980" 

30 PRINT n BY HOWARD BATIE" 

40 PRINT"HERNDON, VA" 

50 PRINT : PRINT "COLOR COMPUTER VERSION 

60 PRINT"COPYRIGHT 1981" 

70 PRINT"BY ROY GREEN" 

80 PRINT"ATHENS, GA" : SCREEN0 , 1 

90 FORI=1TO2000:NEXT 

100 CLEAR:DIMA(104) ,D(23) 

110 FORI=0TO23:READD(I) : NEXT 

120 CLS:PRINT"WHICH MAZE DO YOU WANT" 

130 LL=0:FORI=0TO5:PRINT@64+I*64,"MAZE #"D(4*I+LL) " IS"D ( 4* I+LL+1 

) "BY"D(4*I+LL+2) , "MINIMUM # OF MOVES IS "D ( 4*I+LL+3) 

140 LL=0:NEXT 

150 PRINT@22,""; : INPUTMN 

160 IFMN>60RMN<1THENPRINT@22," ";:GOTO150 

170 CLS:IFMN=1THEN190 

180 FORI=0TO(105*(MN-1) ) -1 : READAA: NEXT 

190 FORI=0TO104:READA(I) : NEXT 

200 E=0:X=A(100) :D=2 

210 CLS:PRINT@32,"YOU ARE IN A"A( 103) "BY"A( 104) "MAZE WITH" 

220 PRINT"ELECTRIFIED WALLS. FIND YOUR WAY OUT IN THE LEAST N 

UMBER OF MOVES." 

230 PRINT"MINIMUM NO. OF MOVES IS" A ( 102) "FOR" 

240 PRINT"THIS MAZE." 

250 PRINT: PRINT "MOVE FORWARD BY TYPING 'F'," 

260 PRINT"TURN RIGHT BY TYPING ' R ' " 

270 PRINT"OR TURN LEFT BY TYPING ' L ' . " 

280 PRINT :PRINT"TURNS TO THE RIGHT OR LEFT DO NOT COUNT AS MOV 

ES . " 

290 PRINT: INPUT"PRESS enter TO START" ; Z 

300 GOSUB1600 

310 CLS:PLAY"T50O5ABC" ' :PRINT@202, "MOVES : "Q; 

320 'FORI=1TO500:NEXT 

328 ' 

329 'set up graphics screen 
33 PMODE4,1:PCLS1:SCREEN1,0 

340 ON E+l GOTO 350,400,450,500,550 

348 ' 

349 'draw left wall or hall 

350 IFVAL(MID$(B$,4,1) )=0THEN390 
360 LINE(208, 5)-(208, 180) , PRESET 
370 LINE(208,5)-(215,0) , PRESET 

380 LINE(208,180)-(215,191) , PRESET: GOT06 90 

390 LINE(208,5)-(255,180) , PRESET, B :GOTO690 

40 IFVAL(MID$(B$,4,1) ) =0THEN440 

410 LINE(188,20)-(188,148) , PRESET 

420 LINE(188, 20)-(208, 5) , PRESET 

430 LINE(188,148)-(208,180) , PRESET : GOTO690 

440 LINE(188,20)-(208,148) , PRESET, B : GOTO690 

450 IFVAL(MID$(B$,4,1) ) =0THEN490 

460 LINE(171,32)-(171,121) , PRESET 

470 LINE(171, 32)-(188, 20) , PRESET 

480 LINE(171,121)-(188,148) , PRESET: GOTO690 

490 LINE(171,32)-(188,121) , PRESET, B :GOTO690 

500 IFVAL(MID$(B$,4,1) ) =0THEN540 

510 LINE(156, 43)-(156, 97) , PRESET 

520 LINE(156, 43)-(171, 32) , PRESET 

53 LINE (156,97) -(171,121) , PRESET : GOT06 90 

540 LINE(156,43)-(171,97) , PRESET, B :GOTO690 

550 IFVAL(MID$(B$,4,1) )=0THEN590 

560 LINE(145, 51)-(145, 80) , PRESET 

Program Listing 3 Continues 



(D=2))THEN1100 



Program Listing 3 Continued 

570 LINE(145, 51)-(156, 43) , PRESET 

580 LINE(145,80)-(156,97) , PRESET :G0T06 90 

590 LINE(145,51)-(156, 80) , PRESET, B 

688 ' 

689 'draw right wall or hall 

690 ON E+l GOTO700,750,800,850,900 
700 IFVAL(MID$(B$,6,1) )=0THEN740 
710 LINE(47, 5)-(47, 180) , PRESET 
720 LINE(47, 5) -(40,0) , PRESET 
730 LINE(47,180)-(40,191) ,PRESET:GOTO950 
740 LINE(47,5)-(0,180) , PRESET, B:GOTO950 
750 IFVAL(MID$(B$,6,1) )=0THEN790 
760 LINE(69,20)-(69, 148) , PRESET 
770 LINE(69, 20)-(47, 5) , PRESET 
780 LINE(69,148)-(47,180) ,PRESET:GOTO950 
790 LINE(69,20)-(47,148) , PRESET, B:GOTO950 
800 IFVAL(MID$(B$,6,1))=0THEN840 
810 LINE(87, 32)-(87, 121) , PRESET 
820 LINE(87, 32)-(69, 20) , PRESET 
830 LINE(87,121)-(69,148) ,PRESET:GOTO950 
840 LINE(87,32)-(69,121) , PRESET, B:GOTO950 
850 IFVAL(MID$(B$,6,1))=0THEN890 
860 LINE(103, 43)-(103, 97) , PRESET 
870 LINE(103, 43)-(87, 32) , PRESET 
880 LINE(103,97)-(87,121) ,PRESET:GOTO950 
890 LINE(103,43)-(87,97) , PRESET, B:GOTO950 
900 IFVAL(MID$(B$,6,1) )=0THEN940 
910 LINE(114, 51)-(114, 80) , PRESET 
920 LINE(114,51)-(103,43) , PRESET 
930 LINE(114,80)-(103,97) ,PRESET:GOTO950 
940 LINE(114,51)-(103,80) , PRESET, B:GOTO950 
950 IFQ=0THEN970 
960 IF( (X+(E*Y)=A(100) )*(D=4) ) + ( (X+ (E*Y) =A(101) 

968 ' 

969 'if wall ahead then draw and stop for move 

970 IFVAL(MID$(B$,3,1))=1THEN990 
980 GOTO1050 

990 ON E+l GOTO 1000,1010,1020,1030,1040 

1000 LINE(47,5)-(208,180) ,PRESET,B :GOTO1100 

1010 LINE(69,20)-(188,148) , PRESET, B:GOTO1100 

1020 LINE(87,32)-(171,121) , PRESET, B :GOTO1100 

1030 LINE(103,43)-(156,97) , PRESET, B:GOTO1100 

1040 LINE(114,51)-(145,80) , PRESET ,B : GOTO1100 

1050 E=E+1:IFE>4THEN1100 

1060 GOSUB1600 

1070 GOTO340 

1098 ' 

1099 'check for move or turn 

1100 M$=INKEY$:IFM$= n "THEN1100 
1110 E=0:IFM$="F"THEN1150 
1120 IFM$="R"THEN1220 

1130 IFM$= ,, L n THEN1260 

1140 GOTO1100 

1149 'move forward 

1150 IF(X=A(100) )*(D=4)THEN1300 
1160 IF(X=A(101) j *(D=2)THEN1350 
1170 GOSUB1640 

1180 IFVAL(MID$(B$,3,1))=1THEN1310 

1190 Q=Q+1:X=X+Y 

1200 GOSUB1600 

1210 GOTO310 

1219 'turn right 

1220 D=D+1:IFD<5THEN1240 
1230 D=l 

1240 GOSUB1600:PLAY n ADB" 

1250 GOTO330 

1259 'turn left 

1260 D=D-1:IFD>0THEN1280 
1270 D=4 

1280 GOSUB160 0:PLAY"DAC" 
1290 GOTO330 

1298 ' 

1299 'ending messages 

1300 CLS:PRINT@204,"YOU LOSE" : PLA""01GL2C" : PRINT@232 , "OUT AT ENT 
RANCEl":GOTO1360 

1310 SCREEN0,0:FORZ=1TO30:CLS:PRINT@201,"ZZZAAAPPP1 ! I " :PLAY"05T1 

50E n :CLS0:PLAY"C:NEXT 

1320 CLS:PRINT@201,"ZZZAAAPPP! 1 I" 

1330 PRINT"YOU JUST RAN INTO.... THE ELECTRIFIE 

D WALL ! ! II " 

1340 GOTO1360 

1350 CLS:PRINT@198,"YOU WIN IN"Q"MOVES" :PRINT@229 ,A( 102) "IS MINI 

MUM SCORE" :PLAY"T603L4CFAL4.04CL8.03AL104C" 

1360 PRINT:PRINT 

1370 PRINT M DO YOU WANT TO TRY AGAIN? (Y/N) " 

1380 M$=INKEY$:IFM$=""THEN1380 

1390 IFM$="Y"THENRESTORE:GOTO100 

Program Listing 3 Continues 



GET THE 

DOCUMENTER 

A MACRO UTILITY FOR YOUR MICRO 







Z 



> 



C 
C 



7 



c 
c 






< 



7 



Have your TRS-80" MOD I or III or an Apple II 
produce its own flowchart with the Documenter. 
Program logic is graphically displayed to your 
screen or printer. Uses include flowcharting basic 
level II. disk basic or Apple Soft programs, 
debugging programs and a learning aid. A branch 
map is also produced. TRS-80 version runs on 
16-48k system (disk-48k only). Apple version requires 
48k and 1 disk drive 

If documentation is a problem for you buy the 
Documenter. 

TRS-80 version$34.95 Apple II version-$49.95 

plus $1 05 postage & handling (Ga. res. add 4% tax) 
Specify Type: 



TRS-80-48k disk 
Apple II -48k disk 
Z 1 6 Sector 
Z 13 Sector 



Name: 
Address: 
City: 



: TRS-80- 16k Tape 
Z TRS-80-32k Tape 
"". TRS-80 -48k Tape 



□ Master Charge 
Account No. ... _.. 
Bank No. .. . 



ST. Zip.. 

□ Visa 



Expiration 
Date 



Signature 

P-80 Nut Software, P.O. Box 490 
Lilburn, Georgia 30247 (404) 469-0056 

^368 



^See List of Advertisers on page 402 
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I ^RS-80* 1 



*«# 




SfiVE fl BUNDLE 



|| When you buy your 

$| TRS-80™ equipment! 

j|§ Use our (oil free number to 

£j| check our price before you buy ^ 

5» a TRS-80™ . . . anywhere! 



lflS«0 is a uademai* of in* Radio S*»tfc Div 



B^Eu Do"' 1 dela y • • • CALL TODAY *1Bg! 




*rtf;J 



flg SALES COMPANY 

g£ 1412 WEST FAIRFIELD DR. 

|«? P.O BOX 8098 PENSACOLA FL 32505 

SJK 904/438-6507 Mff 

j58 nationwide 1 800 874 1551 «£* 



^ Creative Computer 

!^'^' : ;^li^HHHHBiSHHi^i^H 

1236 E. Colonial Dr., Orlando, FL 32803. USA 

(305)894-4744 - Micronet 71555.520 

3M Head Cleaning Diskettes — $22.95 

RIBBONS 

Radio Shack" 

Line Printers 1.2 & 4 4 pk ribbons al $18.95 

Line Printers 3 & 5 3 pk reloads at $13.95 

Line Printers 6 & 8 3 pk reloads at $1 1 .95 

Daisy Wheel Printer 

(black) 10 pk reloads at $24.95 

(brown, blue or red) 6 pk reloads at $24.95 

Line Printers 3 & 5 New ribbon & cartridge . 3 pk 24.95 
Epson MX-80/MX-80 F/T 3 pk reloads at $16.95 

LABELS 

1 Across (1 up) iabeis-5.000 in box-$l7.95 and down 

2 Across (2 up) labels-10.000 in box-$34.95 and down 

3 Across (3 up) labels-15.000 in box-$51.95 and down 

Index Cards (3x5 aftei pinleeds tear oil) 
3.000 in box ■ $29.95 

EPSON Printers - $ Call 

GAMES 
Model l/lll ■ 10-15% Off 

Big Five. Acorn. Adventure Intnat'l. 
Instant Software. Library 100 

Model II YAHTZEE 
Deluxe Micro-Yahtzee Up to 4 players 
Graphic Scoreboard - Graphic or numerical dice 
Bonus for multiple Yahtzee-Score printout option 
Model I or III disk $19.95 - Cassette $15.95 
Model II Diskette $24.95 ^ 190 

We ship daily - Anywhere in the World 
Stop by or write for complete price list! 

Quantity Discounts 

Free Freight lexcepl labels)' + $4 for overseas 
We Accept Master Card/VISA/Amencan Express 



Program Listing 3 Continued 



1400 IFM$="N"THEN1420 

1410 GOTO1380 

1420 CLS : PRINT"OK . COME BACK WHEN YOU'RE READY.": END 

1598 ' 

1599 'update direction 
16 IFD=1THENY=-10 
1610 IFD=2THENY=1 
1620 IFD=3THENY=10 
1630 IFD=4THENY=-1 

1640 B$=STR$(A(X+(Y*E) ) ) 

1650 IFD=1THEN1710 

1660 FORI=2TOD 

1670 B4=VAL(MID$(B$,4,1)) :B5=VAL (MID$ (B$,5 ,1) ) 

16 80 B6=VAL(MID$(B$,6,1) ) : B3=VAL (MID$ ( B$ , 3 , 1) ) 

16 90 P=10 000+B4*1000+B5*100+B6*10+B3 

1700 B$=STR$(P) :NEXT 

1710 RETURN 

2000 'array d 

2010 DATA1, 8, 7, 14, 2, 8, 8, 20, 3, 7, 10, 23, 4, 10, 8, 29, 5, 10, 10, 38, 6, 10,1 

0,45 

3 000 'array a 

3010 'maze one 

3020 DATA0,0,0, 0,0,0,0 ,0,0,0,0,0,0,0, 0,0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0 



3030 DATA11001, 11010, 1110 

11,11100,10111,110 01,1001 

11,10100,11101,11001,1011 

00,10101,11011,10110,0,0 

3040 DATA10111, 10101, 1001 

01,10010,11100,10101,1001 

10,10011,11110,10011,1001 

3050 'maze two 

3060 DATA0, 0,0, 0,0, 0,0,0, 

3070 DATA11101, 11011, 1100 

3080 DATA10011, 11010, 1000 

3090 DATA11001, 11100, 1000 

3100 DATA10101, 10101, 1011 

3110 DATA10000, 10000 ,1101 

3120 DATA10101, 10111, 1110 

3130 DATA10001, 11110, 1000 

3140 DATA10011, 11010, 1011 

77,20,8,8 

3150 'maze three 

3160 DATA11001, 11010, 1110 

3170 DATA10000, 11100, 1011 

3180 DATA10101, 10011, 1100 

3190 DATA10011, 11100, 1011 

3200 DATA11101, 10001, 1100 

3210 DATA10011, 10110,1010 

3220 DATA11001, 11000, 1011 

3230 DATA10101, 10101, 1110 

0010,1010 0,10001,11010,10 

,11110,10011,10110,0,0,0, 

3240 'maze four 

3250 DATA11011, 11010, 1100 

1100,11001,11110,10101,10 

,10101,11101,10011,11000, 

00,10011,11000,10110,1100 

3260 DATA10001, 11100, 1000 

110 0,10101,10111,10101,11 

,10001,11010,10110,11101, 

11,11010,11010,10110,1001 

3270 DATA0, 0,0, 0,0, 0,0,0, 

3280 'maze five 

3290 DATA11001, 11010, 1110 

1101,1010 0,11101,100 01,11 

,10101,10011,10110,10101, 

01,11010,11000,10010,1011 

3300 DATA10011, 11110, 1010 

0110,11001,11010,10100,10 

,10101,11011,10110,11101, 

01,11010,11000,10110,1001 

3310 DATA10101, 11101, 1010 

1110,10011,10110,10011,11 

,10,29,38,10,10 

3320 'maze six 

3330 DATA11001, 11000, 1101 

1100,10111,10101,11101,10 

,1100 0,10010,10110,10001, 

01,11011,1100 0,10110,1001 

3340 DATA10011, 11110, 1010 

0101,11001,11010,10000,11 

,10011,11110,10101,11001, 

01,11010,10100,10111,1000 

3350 DATA10011, 11100, 1001 

1010,11011,10010,11010,11 

,20,89,45,10,10 



0,11011,11100,11011,11000,11100,0,0,100 
0,11110,10101,10101,0,0,11101,10101,110 
0,10001,0,0,10000,10000,11100,10011,101 

1,11000,10000,10010,11010,11100,0,0,110 
1,11100,11101,10101,0,0,10011,11010,101 
0,10110,0,0,60,57,14,8,7 



0,0, 
0,11 

, 1 1 
11 
10 
10 
10 
10 
10 



010 
110 
100 
101 
000 
101 
100 
011 



,11 
,10 
,11 
,10 
,10 
,10 
,10 
, U 



000 
011 

001 
101 

100 
101 
011 
010 



101 
110 

001 
101 
0.1 
010 
011 



,0,0,0,0,0 

,11010,11100,11101,0,0 

,11010,10100,10101,0,0 

,11110,10001,10100,0,0 

,11001,10110,10111,0,0 

,10001,11010,11100,0,0 

,10011,11100,10011,0,0 

,11110,10101,11101,0,0 

,11110,10011,10110,0,0,60, 



,11000,11100,0,0 
,10101,10111,0,0 
,10101,11101,0,0 
,10010,10100,0,0 
,11011,10110,0,0 
,11110,11101,0,0 
,11110,10101,0,0 
,11000,10110,0,0 
,0,10111,11011,1 



0,10001,1 
110,10011 



.23,7,11 



0,11100,11001,11010,110 0,11110,11011,1 
111,10011,11100,10101,11011,11100,10101 

11010,10110,10101,11011,10100,10101,101 

1,11110,10001,1110 0,100 

1,11010,10100,11001,10100,10111,10001,1 

011,10110,10101,10101,11001,10110,10011 

11101,10101,10001,10110,11101,11101,100 

1,10110,10011,11010,100 

0,0,0,0,0,0,0,0,0,0,0,0,30,59,29,10,8 

0,11011,11100,11001,11110,11011,11100,1 

000,10110,10101,11001,11000,10010,10100 
11101,10011,10100,10111,11101,10001,100 
0,11101,10011,11000,101 

1,11001,11010,10100,11101,10101,11011,1 
111,11011,10 000,10110,10101,110 01,11100 
11101,10101,11011,10010,1010 0,10111,100 
1,100 0,11000,11110,100 

1,11011,11100,10101,10101,110 01,1000 0,1 
010,10 010,10110,10011,10110,10011,11110 



0,11100,11001,11100,11011,11100,11011,1 

101,10111,10101,11001,10000,11010,10100 

11000,10110,10101,10011,11110,10101,101 

1,11110,10011,11100,110 

1,11011,11000,11110,11101,10101,10111,1 

110,10101,11101,10011,10100,11101,10101 

10100,10011,11010,10000,10110,10101,110 

1,11010,11010,10100,110 

1,11110,10101,11101,11101,10101,10 011,1 

010,10010,10010,10110,10011,11010,11110 
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MX-80/100 OWNERS 

PRINTER STANDS 

End the mess of paper from your desktop 
printer. Paper is fed from under the printer 
and allowed to stack neatly behind your 

(machine. Made from the highest quality 
clear plexiglass, this is a handsome addi- 
tion to home or office. Available in two sizes 
- Regular for printers such as MX-80, 
Microline80, etc. or Large for printers such 
as MX-100, DataRoyal, DWII etc. Available 
with extra shelf for quick and easy forms 
change. 

Regular (300010) 29.95 

Regular w/shelf (30001 1 ) 44.95 

Large (300020) 34.95 

Large w/shelf (300021 ) 49.95 




MX-80 RELOADS 

Reload your own MX-80 & MX-100 Ribbon Cartridges, and save money. These endless loop Silver Dollar Ribbon packs load into your worn cartridge 
easily, saving you money. Now available in Blue and Red. 



Black (500000) $3.95 ea. 

Red (500010) 4.95ea. 

Blue (500020) 4.95 ea. 



Black (500001 ) $39.50 doz. 

Red (500011) 49. 95 doz. 

Blue (500021 ) 49.95 doz. 



MX-80 RIBBON CARTRIDGE 

Same as original cartridge, with the additional feature of "Mobis" loop which turns the ribbon 180° after each run through the cartridge extending rib- 
bon life. As you know MX-80 cartridges cost $15.00 from most sources, but these are only $10.95 each or save even more by buying 3 at $29.95. 



1 cartridge (500050) $10.95 



2 pack (500051 ) $29.95 



NEW — - We now carry the DIGIAC MULTIUSER COMPUTER. Call for details on 
MULTIUSER Processing!! 




171 Hawkins Road 
Centereach, New York 11720 




(516) 981-8568 (Voice) 
(516) 588-5806 (Data) 
MNET-70331, 105 



Dealer Inquiries Welcome 



Add $2.00 S (j H 
NYS res. odd oppr. fax 



'300 



,.-:>'e<j List ot advertisers on page 402 
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APPLICATION 



—- 



LOAD 80 



Use prime numbers to label the items in a DB. 



1 li 



A. JL fc™, 




Stuart F. Ring 
106 Marble Drive 
Rochester, NY 14615 



.id you ever wonder how 
much you spent in a given 
month on house maintenance? 
Would you like a list of tax 
deductable family medical ex- 
penses? Create data files and 
search through them quickly for 
information on any topic or com- 
bination of topics, using num- 
bers formed as the products of 
prime numbers with this routine. 
A prime number is a number 
having no factor except itself 
and one; 2. 3, 5, 7 and 21 1 are 
prime numbers. 

Theory 

A product of a set of prime 
numbers is unique; no other set 
of prime numbers can form that 



The Key Box 

Basic Level II 
Model I or III 
16K RAM 
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product. For example, 2x3x5 
= 30 cannot be formed by mul- 
tiplying any other combination 
of prime numbers. 

File Creation 

To create files for fast se- 
quential searches, label each 
file record with a number which 
is the product of a set of prime 
numbers. Let this number repre- 
sent the topics in that record. 

Let's create a filing system 
for monthly expenses (see Fig. 
1). We label the data (in this case 
the dollar amount for monthly 
expense) with the product of 
prime numbers representing a 
topic. For example, let the prime 
number 2 be used for house ex- 
pense; let 3 represent a modifier 
(adjective) such as mainte- 
nance; and let 5 represent 
another modifier such as the 
month of July. Label record data 
with products of these prime 
numbers. The label for an expen- 
diture of $10 for house paint in 
July would be 2 x3x 5 = 30 and 
the file record would be Record 
Number 0-30-S10 (as in Fig. 1). 

By being inventive in assign- 
ing prime numbers to topics and 
modifiers, a single number can 
closely resemble a sentence de- 
scription of the record data. This 
is a very concise way to store 
information about a record. This 
compactness is especially 

1982 



useful for the home microcom- 
puter system, using minimal 
memory. 

The Search 

Having successfully labeled 
and stored the information, use 
the uniqueness of the prime 
number product to retrieve it. 
Divide each record label by the 
prime number representing the 
topic we wish to retrieve. If the 
result is an integer, the record 
label had that number as one of 
its factors and we have a match, 
if the result is not an integer 
there is no match. 

To search for items pertaining 
to combinationsof topics, multi- 
ply the prime numbers for each 
search topic and its modifiers. 
Divide each label by the result- 
ing product; if an integer results 
we have a match for that combi- 
nation. If the result is not an in- 
teger there is no match and we 
continue our search through 
the file. 

Take our $10 expenditure for 
house paint with the prime 
number product 30 as an exam- 
ple. The prime number for hous- 
ing expenditures is 2; dividing 30 
by 2 gives the integer 15 and a 
match. If our search were for 
medical expenses with a topic 
prime number of 11, the result 
would not be an integer and we 
would not have a match. If our 



search were specifically hous- 
ing expenditures in July the 
search label would be 2 x 5 = 10 
and the search quotient (30 divid- 
ed by 10) would be the integer 3. 
Using the products of prime 
numbers to label data enables us 
to store all catagorizing in- 
formation in one double-preci- 
sion number, much more concise 
than word labels. Searches for 
combinations of topics are no 
more time-consuming than 
searching for data on a single 
topic. The accuracy of this pro- 
gram is limited by the accuracy 
of the search division. Round off 
or truncation errors will cause 
the process to fail. The Basic pro- 
gram in this article handles four- 
level description labels using 
TRS-80 Level II double-precision 
numbers. Be sure to test your ac- 
curacy before expanding this 
concept ad infinitum. Any cate- 
gorized information is a likely 
candidate for this approach. 

Program Operation 

The TRS-80 Level II Basic pro- 
gram included with this article is 
a data base of records of home 
expenses. As listed, it stores 500 
records consisting of a double- 
precision label, S#, and the data, 
S1. The program stores and re- 
trieves records from tape. When 
in use, all records are in memory. 

The program asks if you want 



to read the tape records, add 
new records to the file, search 
the file, or quit. 

The program requests up to 
four topics (prime numbers) and 
the dollar amount for the record 
to be added. To correct a record, 
call Fix; the program asks for 
the record number, prime num- 
ber product and dollar amount 
for the corrected record. This 
Fix routine assumes that you ar- 
rive at the Fix prime number pro- 
duct on your calculator, and that 
you use Fix because of a key- 
stroke error. If you expect to 
change records frequently, al- 
teration should be an element in 
the main menu. 

The Search portion of the pro- 
gram asks for up to four topics 
(prime numbers representing 
key-words). After the search is 
complete, a list of the results is 
displayed. This list includes the 
record number, product of the 
key-word prime numbers, the 
dollar amount, and a cumulative 
total of the dollar amounts. 

After adding records or 
searching your data base, Quit 
asks if you want to create a 
tape. The tape file is then com- 



pletely rewritten. It is good prac- 
tice to make one or more back- 
up copies. 

Table 1 lists the prime num- 
bers and their corresponding 
key-words. When a search is 
performed the topics, not the 
prime numbers, are listed. 
Change this table to suit your 
applications. 

The tape files created include 
a record count, and ten-record 
data blocks. This file structure 
reduces the number of relay ac- 
tuations and compresses the 
tape length. 

The multiple line calculation 
of the prime number product is 
necessary to prevent loss of sig- 
nificant digits during multiplica- 
tion. Check the accuracy of this 
product (and the division in the 
search process) if you change 
the number of search levels or 
expand the prime number (key- 
word) table. 

Do not overlook the power of 
the multi-level searches. Be cre- 
ative selecting topics and modi- 
fiers for your key-word list. It will 
take some experience to devel- 
op the most useful key-words for 
your application. ■ 



Record Number 

1 

2 
3 



Topic(s)/Label Data 

PN1 xPN2xPN3xPN3 $ 

PN4 $ 

PN2xPN5 $ 

PN1xPN7xPN5 $ 



Fig. 1. Monthly Expense File. 



2 


Sue 


97 




3 


Stu 


101 




5 


Matt 


103 




7 


Andy 


107 




11 


House 


109 




13 


Car 


113 




17 


Medical 


1 27 




19 


Dental 


131 




23 


Gasoline 


137 




29 


Gas 


1 39 




31 


Electricity 


149 


January 


37 


Water 


151 


February 


41 


Entertainment 


157 


March 


43 


Clothes 


163 April 


47 


Medicine 


167 


May 


53 


Garbage 


1 73 


June 


59 


Telephone 


179 


July 


61 


Insurance 


181 


August 


67 


Maintenance 


191 


September 


71 


Toys 


193 


October 


73 


Donations 


197 


November 


79 




199 


December 


83 




1 


Null 


89 








Table 1. Prime Numb 


ers and Key Words. 



10 CLEAR: 

20 'PRIME NUMBER PRODUCT SEARCH ROUTINE BY S.F. RING 

30 CLS:PRINT "HOME DATA BASE":PRINT 

40 DIM S*(500) ,S1(500) ,PN(50) ,PAS(50) :DEFINT I-N 

50 PN(0)=2:PN(1)=3:PN(2)=5:PN(3)=7:PN(4)=11:PN(5)=13:PN(6)=17:PN 

(7)=19:PN(8)=23:PN(9)=29:PN(10)=31:PN(11)=37:PN(12)=41:PN(13)=43 

:PN(14)=47:PN(15)=53:PN(16)=59:PN(17)=61:PN(18)=67:PN(19)=71:PN( 

20)=73:PN(21)=79:PN(22)=83:PN(23)=89:PN(24)=97: 

60 PN(25)=101:PN(26)=103:PN(27)=107:PN(28)=109:PN(29)=113:PN(30) 

=127:PN(31)=131:PN(32)=137:PN(33)=139:PN(34)=149:PN(35)=151:PN(3 

6)=157:PN(37)=163:PN(38)=167:PN(39)=173:PN(40)=179:PN(41)=181:PN 

(42)=191:PN(43)=193:PN(44)=197:PN(45)=199:PN(46)=1 

7 PAS(0)="SUE":PAS(1)="STU":PA$(2)="MATT":PAS(3)="ANDY":PAS(4)= 

"HOUSE":PA$(5)="CAR":PA$(6)="MEDICAL":PA$(7)="DENTAL":PA$(8)="GA 

SOLINE":PAS(9)="GAS":PAS(10)="ELECTRICITY":PAS(11)="WATER":PAS(1 

2)=" ENTERTAINMENT": PAS (13)= "CLOTHES": 

80 PAS ( 14 )="MEDICINE":PA$( 15 )="GARBAGE": PAS (16)= "TELEPHONE": PAS ( 

17 )=" INSURANCE": PAS ( 18) ="MAINTAINANCE" : PAS ( 34) =" JANUARY": PAS (35) 

="FEBUARY":PAS(36) ="MARCH" : PA$(37) = " APRIL" : PAS (3 8) ="MAY" : PAS ( 3 9) 

= " JUNE": PAS (40)=" JULY": PAS (41)=" AUGUST" 

90 PAS(42)="SEPTEMBER":PAS(43)="OCTOBER":PAS(44)="NOVEMBER":PAS( 

45 )= "DECEMBER" : PAS (46)= "NULL": PAS ( 19) ="TOYS": PAS ( 20 )="DONATIONS" 

100 INPUT "DO YOU WISH TO READ IN DATA? YES OR NO";DS 

110 IF DS="NO" GOTO 170 

120 INPUT "HIT ENTER WHEN RECORDER IS READY", -DS 

130 INPUT #-l,N 

140 FOR 1=0 TO N STEP 10 

150 INPUT S-1,S9(I) ,S1(I) ,S#(I+1) ,S1(I + 1) ,S#(I + 2) , SI (1 + 2) ,S#(I+3 

) , SI (1+3) ,S#(I+4) , SI (1+4) ,S#(I+5) , SI (1+5) ,S#(I+6) , SI (1+6) ,S#(I+7 

) , SI (1+7) , SO (1 + 8) ,Sl(I + 8) ,S#(I+9) ,Sl(I+9) 

16 NEXT I 

170 CLS: INPUT "DO YOU WISH TO ADD DATA, SEARCH, OR QUIT? 

ENTER 'ADD', 'SEARCH 1 , OR 'QUIT'", -AS 
180 IF AS="ADD" GOTO 470 
190 IF AS="SEARCH" GOTO 230 

200 IF A$="QUIT" GOTO 650 

210 GOTO 170 

220 'SEARCH ROUTINE 

23 CLS: PRINT "SEARCH" : PRINT 

240 RESTORE:DS="NO" 

250 DATA 1,1,1,1: READ N1,N2,N3,N4 

260 INPUT "ENTER UP TO FOUR TOPICS" J Nl ,N2 ,N3 ,N4 

270 P1#=N1*N2 

280 P2S=N3*N4 

290 PS=P1#»P2S 

300 NR=0: SM=0: CLS: 

310 GOSUB 840 

320 PRINT "SEARCH TOPICS ": PRINT: PRINT Q1S,Q2S ,Q3 S,Q4$ : PRINT 

330 PRINT "RECORD"," PRODUCT ","S AMOUNT", "S SUM" 

340 FOR 1=0 TO 499 

350 IF S1(I)=0 GOTO 430 

360 RS#=S#(I)/PS 

370 IF (RS*-FIX(RS*)) <> THEN NEXT I 

3 80 NR=NR+1 

390 SM=SM+S1(I) 

400 PRINT I,SJ(I) ,S1(I) ,SM 
NEXT I 
GOTO 440 

PRINT "THAT'S ALL" 

INPUT "ENTER 'EXIT' IF YOU ARE FINISED ELSE HIT 'ENTER' ";DS 
IF DSO'EXIT" GOTO 230 ELSE GOTO 170 
'ROUTINE TO ADD MORE FILE DATA 
CLS: PRINT "ADD DATA": PRINT 
DS="NO" 

FOR 1=0 TO 499 :'FIND LAST RECORD 
IF S1(I)=0 THEN 11=1 ELSE NEXT I 
READ N1,N2,N3,N4:DATA 1,1,1,1 
RESTORE 

PRINT:INPUT "ENTER UP TO FOUR TOPICS FOR EACH RECORD" ; Nl ,N2, 
M 
INPUT "ENTER DOLLAR AMOUNT" ; SI ( 11 ) 
P1S=N1*N2 
P2#=N3*N4 
S#(I1)=P1**P2# 

PRINT "THIS IS RECORD NUMBER ";I1 
11=11+1 

PRINT "ENTER 'FIX' IF YOU NEED TO CORRECT A RECORD" 

INPUT "ENTER 'EXIT' IF FINISHED ELSE HIT 'ENTER' ";D$ 

IF D$="FIX" GOSUB 770 

IF DSO"EXIT" GOTO 510 ELSE GOTO 170 

'QUIT ROUTINE - SAVE THE DATA 

CLS: INPUT "DO YOU WANT TO SAVE THE DATA"; XI $ 

IF X1$="YES" THEN GOTO 670 ELSE END 

FOR 1-0 TO 499:'FIND LAST RECORD 

IF S1(I)=0 THEN B=I ELSE NEXT I 

N=FIX(B/10)*10 + 10 



4 i 

4 21! 
430 
440 
453 
460 
47 
480 
490 
500 
510 
520 
530 
N3 , 
540 
550 

5 8 
57 
580 
59;: 



610 
620 
630 
6 40 
630 
660 
670 
680 

6 90 

70S 
710 

7 20 
730 
> -•> 
) ,S 

7 4a 

7 50 
76 
770 
7 80 

7 90 
300 
610 
620 

8 3 
640 
65 
360 
87 3 



INPUT "SAVE DATA - HIT ENTER WHEN THE TAPE IS READY", -DS 

PRINT #-l,N 

FOR 1-0 TO N STEP 10 

PRINT #-l,S#(I) ,S1(I) ,S#(I + 1) ,S1(I + 1) ,S#(I+2) ,.31(1 + 2) ,S#(I + 3 
1(1 + 3) ,SS( 1 + 4) , SI (1 + 4) , Sit (1 + 5) , SI (1 + 5) ,S#( 1 + 6) ,51(1 + 6) ,S#( 1 + 7 
1(1+7) ,S#(I + 8) , SI (1 + 8) , Sit (1+9) , SI (1 + 9) 

NEXT I 

END 

'ROUTINE TO REPAIR A RECORD 

CLS: PRINT "FIX ROUTINE" 

INPUT "ENTER RECORD NUMBER" J IK 

PRINT "NUMBER" , "PRODUCT" , "AMOUNT" 

PRINT IK,S#(IK) ,S1(IK) 

INPUT "ENTER NEW PRODUCT, AMOUNT" ; Sit ( IK) , SI ( IK) 

DS="GO" 

RETURN 

FOR K=0 TO 50 

IF N1=PN(K) THEN Q1S=PAS(K) 

IF N2=PN(K) THEN Q2S=PAS(K) 

IF N3=PN(K) THEN Q3S=PAS(K) 

IF N4=PN(K) THEN Q4S=PAS(K) 

NEXT K 

RETURN 



Program Listing 
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GAME 



Cm **•> 



LOAD 80 



Author Boothe is up to his graphic tricks again. 



Save All Humans 



The Key Box 

Basic Level II 
Model I or III 
16K RAM 



Bob Boothe 

4651 Browndeer Lane 

R.H.E., CA 90274 



I first saw a game similar to this 
on a Wang computer at a com- 
puter show. The animation was 
very well done, so I decided to 
experiment with the TRS-80's 
block graphics. 

The program takes about 
twenty seconds to initialize the 
strings representing the running 
men, the ship and the enemy 
saucer. 



The game uses your skill level 
(from to 100) to compute the 
number of ships, the number of 
enemies and the size of the 
enemy ships. You get one to 
seven ships to fight 10 to 30 
enemies in six different enemy 
vessels. 

Your object is to protect the 
humans from the attacking fly- 
ing saucers. Move your ship 
with the left and right arrows, 
and fire with the spacebar. 

Four figures make up each 
step of the runner. Either pause 
the game while the men are run- 
ning or break the program and 
Print G$(1), G$(2), G$(3), G$(4) to 



see each figure. Lines 420 to 590 
contain graphics data for the 
figures. Lines 610 to 700 con- 
catenate the data into string 
variables and lines 720 to 820 
display the running figures. 

Control characters 24, 25, 26, 
27 move the cursor without de- 
stroying characters. Three se- 
quences of four graphics char- 
acters, a CHR$(26) (moving the 
cursor vertically down one line) 
and four CHR$(24)'s (back- 
spaces) make up each figure. 

Lines 320 to 360 combine ran- 
dom graphics blocks into a rec- 
tangle and repeat several rec- 
tangles on top of each other to 



produce the explosion. Prob- 
lems arise when the strings print 
over any edge of the screen; I 
treated the human at the right 
edge separately. 

When all of the humans are 
killed the program clears the 
string space and packs strings 
into circle patterns. Wait about 
forty seconds and the program 
will display its work, or press 
Enter to play another game. 

I used integer Basic, variables 
instead of constants and made 
multi-statement lines, but the 
game still moves rather slowly. 
A compiled version of the pro- 
gram might be challenging. ■ 



Program Listing 



100 ' THIS PROGRAM WAS WRITTEN BY BOB BOOTHE 

110 ' 4651 3R0WNDEER LANE 

120 ' DATE = JULY 25, 1981 R. H. E., CA 90274 

130 REMBRANDT WAS A PAINTER 

140 CLEAR 2000:CLS 

150 DEFINT A-Z:F3=15360:TT=2000:T2=32 

160 INPUT-WHAT IS YOUR RATING (0=REALLY BAD, 100=ACE)";R 

170 IFR<0ORR>100THENR=50 

180 PRINT@128,"YOUR DUTY IS TO PROTECT THE POPULATION OF THIS PL 

ANET FROM AN" 

190 PRINT" INVASION FROM OUTER SPACE. YOU WILL BE GIVEN A SMALL 

FLEET OF" 

200 PRINT"FLYING SAUCERS WITH WHICH YOU MUST DESTROY THE LARGER 

ENEMY" 

210 PRINT"FLEET. THE ENEMIES ARE RANDOMLY BOMBINC THE PLAJET PR 

OM ABOVE." 

220 PRINT'YOUR SHIP WILL BE AT BOTTOM. TO MOVE YOUR SHIP, HOLD 

DOWN THE" 

230 PRINT"ARROW KEYS. THE SPACE BAR IS USED TO FIRE. REMEMBER, 

YOUR JOB" 

240 PRINT"IS TO PROTECT THE HUMANS BELOW YOUR SHIP. — GOOD LUCK 

250 TS=INT;(100-R)/15)+1:TE=INT(R/5)+10 

260 IFR<40THENE?=" "+CHR$(184)+CHRS(190!+CHR$(191)+CHR$(188)+CHR 

$(144)+" ":GOTO290 

270 IFR<70THENE$=" "+CHR$(184) +CHR$(190) +CHRS(189) +CHRS(180) +" " 

:CO m O>:9l! 

280 irRND(4)=lTHENES=" "+CHRS(181)+CHRS(191> +CHR$(186) +" ":ELSE 

IFRND(3)=1THENE$=" "+CHRS (i57) +CHR$(140) +CHRS (174) +" ":ELSEIFRN 

D(2)=1THEHE$=" "+CHR$(153)+CHR${140)+CHR$(166)+" "sELSEE$=" "4 
CHR$(187)+CHR$(140)+CHR$(183)+" " 

290 PRINT@0, "HUMANS REMAINING = YOUR SHIPS = ENEMY SHIP 

S = 0" 

300 TH=13 

310 PRINT@36,TS;:PRINT@54,TE; 

320 FORQ=lT06 : RESTORE : FORE=lT04 : FORW= 1T04 : READG : X S=X S+CHRS (G) : NE 

XT:X$=X$+STRING$(4,24) : NEXT: NEXT :XS=" "+X$+" 

330 DATA 145,137,32,145, 160,129,150,144, 134,134,160,164, 136,1 

76,137,138 

340 A=4:FORQ=1TO8:GOSUB1710:HX$=HX$+A$+CHR$(26) :GOSUB1710 : HXS=HX 

$+A$+CHB$(26) :GOSUB1710:HXS=HXS+A$+STRING$(2,27) :NEXT 

350 «X$=HX$+" "+STRING${4,24)+CHR$(26)+" '+STRINGS ( 4 ,24) +C 

HR$(26)+STRING$(4,176) 



360 A=3:FORQ=lTO10:GOSUB1710:SH$=SH$+A$-<-CHR$(26) :GOSUB1710 : SH$=S 

H$+A$+CHR$(26) :GOSUB1710:SH$=SH$+A$+STRING$(2,27) :N EXT 

370 SH$=SH$+" n +STRING$(3,24)+CHR$(26)+" "+STRINGS ( 3 , 24) +CHR 

$(26)+STRINGS(3,176) 



MIll)=63:MI(2)=191:MI(3) =319 
3 90 MA ( 1 ) =12 2 : KA ( 2) =25 : MA ( 3 ) =37 I 
400 S(l) =TT:S(2)=TT:S(3)=TT 
410 EL(1)=TT:EL(2) =TT:EL(3)=TT 
420 DATA 32, 32, 32, 32 
430 DATA 32, 32, 32, 32 
440 DATA 176,176,176,176 
450 DATA 32, 32,136,156 
460 DATA 32,160,186,191 
470 DATA 178,179,184,190 
480 DATA 22, 32,172,132 
490 DATA 32, 32,191,149 
500 DATA 184,190,184,190 
510 DATA 32,136,156, 32 
520 DATA 32,174,191,132 
530 DATA 184,190,186,177 
540 DATA 32,172,132, 32 
550 DATA 32,191,149, 32 
560 DATA 187,191,176,176 
570 DATA 32,172,132, 32 
580 DATA 135,191,151,133 
590 DATA 184,181,189,176 
600 DIM G$(5) 
610 FOR F=0TO5 
620 FOR L=0TO2 
630 FOR B=1T04 
640 READ C 

650 G$(F)=GS(F) +CHR$(C) 
660 NEXT 

670 IFF=1ANDL<>2THENGS(F) =G$(F)+" 
90 

680 IF L<>2THENG$(F) =GS (F) +CHRS ( 26) +STRING5 ( 4 , 24) 
690 NEXT 
700 NEXT 

710 PRINT@960,STRING$(63,176) ; : SET (126, 47) : SET (127 ,47) 
720 FOR M=1T012 
730 PRINTgl8,M; 
740 FL=827+M*5 
750 SL=890:IFINT(M/2)=M/2THENSL=SL-1 



"+CHR$(26) +STRING$(5,24) :GOT06 



Program continues 
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Program continued 

760 FOR- P-StTOFLSTEP-2 

770 FOR F=1T04 

780 PRINT&P,GS(F) ; 

790 NEXT 

800 NEXT 

810 PRINT@FL,G$(5) ; 

820 NEXT 

830 PRINT@18,13; 

840 PRINT@892,LEFT$(G$(5) ,4) ; 

850 PRINT@956,MID$(G$(5) ,10,4) ; 

860 PRINTei020,MID$(G$(5) ,19,3) ; 

870 PRINTg64, B ": F0RQ=1T07 : PRINT: NEXT 

880 SL=796:SS = " "+CHRS (156) +CHRS ( 156) +CHRS ( 1 91 ) +CHRS ( 172) +CHRS ( 1 

72)+" " 

890 FOR ES-1T03 

90 IFSL=0THENPC=PC+1:PRINT@36,TS-1; : IFPC<12THEN970ELSEPC=0 :TS=T 

S-l :SL=7 96 : IFTS=0THEN1520 

910 K=PEEK(15168) : IFKANDT2THENSL=SL-1 

920 IFKAND64THENSL=SL+1 

930 IFSL>826THENSL=826 

940 IFSL<767THENSL=767 

950 PRINT@SL,S$; 

960 Z$ = INKEY$:IFZS = " "TKENIFB = <64THENB=SI,-61 : IFPEEK (B+F3) OT2THE 

N1150ELSEPOKEB+F3,191:GOTO980 

97 IFB>63THENPOKEB+F3,T2:B=B-64:IFB>63THENIFPEEK(B+F3)OT2THEN1 

170ELSEPOKEB+F3.191 

980 IF TE<3THENIFEL(ES)=TTTHEN1050ELSE1000 

990 IFEL(ES)=TTTHENEL(ES)=RND(2) * 1000-10 00 :GOT01 010 

1000 EL(ES)=EL(ES)+D(ES) 

1010 IFEL(ES)<HI(ES)THENEL(ES)=HI(ES) :D(ES)=1 

1020 IFEL(ES) >HA(ES)THENEL(ES)=MA(ES) :D(ES)=-1 

1030 IFRND(30)=1THEND(ES)=-D(ES) 

1040 PRINT@EL(ES) ,E$; 

1050 SW=SW+1:IFSW<3THEN1140 

1060 F0RQ=1T03:IF(S(Q) >959) AND ( S (Q) <1024) THENPOKES (Q) +F3 , 176 

1070 NEXT 

1080 IFS(1)>959THENIF(EL(2)<EL(1)+1220REL(2)>EL(1)+134)AND(EL(3) 

<EL(1)+2460REI J (3)>EL(1)+266)THENS(1)=EL(1)+67:IFPEEK(S(1)+F3) <>T 

2THENS(1)=TT:GOTO1100ELSEPOKES(1)+F3,191:GOTO1100 

1090 IFS(1)<960THENPOKEF3+S(1) ,T2 : S ( 1) =S ( 1) +64 : IFPEEK (F3+S ( 1) )<> 

T2THEN1200ELSEPOKESU) +F3,191 

1100 1FS(2)>959THENIF(EL(3) <EL ( 2) +1220REL (3) >EL( 2) +13 4) THENS ( 2) = 

EL( 2) +67 : IFPEEK ( S ( 2) +F3) < >T2THENS (2) =TT:GOTO1120ELSEPOKES ( 2) +F3 , 

191:GOTO1120 

1110 IFS(2)<960THENPOKEF3+S(2) ,T2 : S ( 2) =S ( 2) +64 : IFPEEK (F3+S ( 2) ) <> 

T2THEN1230ELSEPOKES(2) +F3,191 

1120 IFS(3)>959THENS(3)=EL(3)+67:IFPEEK(S(3)+F3)OT2THENS(3)=TT: 

GOTO1140ELSEPOKES(3)+F3,191:GOTO1140 

1130 IFS(3)<960THENPOKEF3+S(3) ,T2 : S ( 3) =S (3) +64 : IFPEEK ( F3+S ( 3) ) <> 

T2THEN1260ELSEPOKES(3)+F3,191 

1140 NEXT:GOTO890 

1150 POKEB+F3 ,T2 : IFS ( 1) =BTHENS ( 1) =TTELSEIFS ( 2) =BTHENS (2) =TTELSEI 

FS(3)=BTI1ENS(3) =TT 

1160 B=0:GOTO980 

1170 POKEB+F3,T2:IFS(1)=BTHENS(1)=TT:GOTO1160ELSEIFS(2)=BTHENS(2 

) =TT:GOTO1160ELSEIFS(3) =BTHENS ( 3) =TT:GOTO1160 

1180 TE=TE-1:PRINT@5 4,TE;:PRINT@EL(INT( ( B+10 0) /128) ) ,X$;:IFTE=0T 

HEN1340 

1190 EL(INT( (B+100) /l 28) ) =TT:B=0 :GOTO980 

1200 POKES (D+F3, 191 : IFS (1) =BTHENPOKES (1) +F3 ,T2:S (1) =TT:B=0 :GOTO 

1100 

1210 IFS(l) >767ANDS(1)<832THENPRINT@SL,X$;:S(1)=TT:SL=0:GOTO1120 

1220 BN=1:GOSUB1290:GOTO1100 

1230 POKES(2)+F3,191:IFS(2)=BTIiENPOKES(2)+F3,T2:S(2)=TT:B=0:GOTO 

1120 

1240 IFS (2) >767ANDS(2)<83 2THENPRINT@SL,XS;:S(2)=TT:SL=0:GOTO1140 

1250 BN=2:GOSUB1290:GOTO1120 

1260 POKES(3)+F3,191:IFS(3)=BTHENPOKES(3)+F3,T2:S(3)=TT:B=0:GOTO 

1120 

127 IFS (3) >767ANDS(3) <83 2THENPRINT€SL ,XS; : S ( 3) =TT: SL=0 : GOTO1140 



"+CHRS(26) +STRIKGS(4,24) +GS(5) 



1280 BN=3:GOSUB1290:GOTO1140 

1290 DL=S(BN) :IFDL>959THENRETURN 

1300 TH=TH-l:PRINTgl8,TH; 

1310 S(BN)=TT:IFDL>895THKNDL=DI,-64 

1320 DL=DL-832:Dr, = INT(Dr,/5)«5 + 83 2:IFDL<892THENPRINT@DL,HX$;:IFTH 

=0THEN17 20ELSERETURN 

1330 POKE16319,T2:PRINT@DL,SH$; : IFTH = 0THEN1720ELSERETUK.N 

1340 F0RQ*=1T03:IFS(Q) >0ANDS (QX960THENPOKES (Q) +F3 ,T2 

1350 NEXT 

1360 PRINTfjSL," 

1370 PRINT@257," * * * * YOU HAVE SAVED THE WORLD FROM DESTRUC 

TION * * * *"; 

1380 PRINT@404,"THE HUMANS JUMP FOR JOY"; 

1390 R=R+TH*3-3iTS*TS:IFR>100THENR=100 

1400 PRINT@516,"Y0UR NEW RATING IS";R;" PRESS <ENTER> TO PLAY A 

GAIN" 

1410 S=896:F0RL=1T0TH 

1420 IFPEEK(S + F3) =135THENJ(L) =S-128 : S = S + 5EI,SES = S + 5 : GOTOl 420 

1430 NEXT 

1440 JS=' "+CHR$(176)+CHRS(144)+CHR5(26)+STRING${3,24)+CHR$(141) 

+CHKS(190)+CHR$(156)+C1IR$(133)+CHR$(26)+STRING$(4,24)+C11R$(152) + 

CHRS(131)+CHR$(137) +CHRS (144) +CHRS ( 26) +STRING5 ( 4 , 24) +STRINGS(4,1 

76) 

1450 G$(5)=" 

1460 J=RND(TH) 

1470 PRINT@J(J) ,J$; 

1480 F0RQ=1T014 5:NEXT 

1490 PRINT@J(J) ,G3(5) ; 

1500 ZS=INKEY$:IFZS<>CHRS(13)THEN146 

1510 RUN 

1520 FORQ=1TC3:IFS(Q)>0ANDS(Q)<960THENPOKES(Q)+F3,T2 

1530 NEXTsPRINT@263,"Y0UR ENTIRE FLEET OF SHIPS HAS BEEN DESTROY 

ED" 

1540 PRINT@399,"THE SURVIVORS RUN FOR SHELTER" ; 

1550 R=INT(R*.9) -TE: IFR<0THENR=0 

1560 PRINT@523,"Y0U HAVE BEEN DEMOTED TO A RANK OF";Rf 

1570 PRINT@590, "PRESS <ENTER> TO REDEEM YOURSELF" 

1580 F0RM=1T013 

1590 IFPEEK(16251+M*5) O135THEN1690 

1600 SL=826+M*5:IFM=13THENSL=SL-1 

1610 FL=833:IFM=1THEN1690 

1620 FORP=SLTOFLSTEP-2 

1630 F0RF=1T04 

1640 PRINT@P,G$(F) ; 

1650 NEXT 

1660 NEXT 

1670 PRINT@FL,G$(0) ; 

1680 TH=TH-1:PRINT@18,TH;:NEXT 

16 90 NEXT 

1700 Z$=INKEY$:IFZ$=CHR$(13)THEKRUNELSE1700 

1710 AS=" n :FORW-lTOA:A$=A$+CHRS(128+RND(63)) :NEXT: A$=A$+STRING$( 

A, 24! : RETURN 

1720 PRINT@268,"THE ENTIRE POPULATION HAS BEEN DECIMATED"; 

1730 PRINT@396,"tHE PLANET WILL BE DESTROYED IN 40 SECONDS"; 

17 40 R^INT(R*.9)-TE:IFR<OTHENR=0 

1750 PRINT@528,"YOUR RANK HAS BEEN LOWERED TO";R; 

1760 PRINT §5 91, "PRESS <ENTER> TO PLAY ANOTHER GAME"; 

1770 CLEAR:DIMC$(6) 

17 80 F0RR=1T06 

1790 SX = 0:SY=R:LX=0:LY=0. 

1800 FORT=.1T06.4STEP1/R 

1810 IFLX<SXTHENC$(R)=C$(R)+CHR$(25) :LX=LX+1 :GOTO1810 

1820 IFLX>SXTHENCS(R) =CS(R) +CUR$(24) : LX=LX-1 : GOTOl 820 

1830 IFLY<SYTHENC?(R)=C$(R)+CHR$(26) :LY=LY+1 : GOTOl 830 

1840 IFLY>SYTHENCS(R)=C$(R)+CHK$(27) : LY-LY-1 : GOTOl 840 

1850 C$(R)=C$(R)+CHRS(128+RND(63) )+CHR$(24) :SY=INT(COS(T) *R) sSX= 

1NT(SIN(T) *R*5) :NEX'f 

1860 Z$=INKEYS:IFZ$=CHR?(13)THENRUN 

1870 NEXT 

1880 CLS:FORR=1TO6:PRINT@4 80,C$(R) ; : NEXT 

1890 Z$=INKEY$:IFZ$=CHR$(13)THENRUN 

1900 GOTO1880 



O KIPATAMicroline 82A 

Serial Dot Matrix Printer 




120cps Bidirectional 
80 Column 



Microdot c^ntets are setting the quaiiiy sunc dfris 'or :>•■(• 
entire Industry BurH on a cast aluminum base and driver, 
by two motors, these rugged units w«i run alt day with no 
duty cycle Iknrtattons. The head warranty, equwatent to 
200,000,000 characters is unmatched in the industry 



Starxiard Features 
» Operates with TRS-60'". APPLE' . others • Pia-n paper— up to 4 parts 
t 132 columns with condensed characters 
I Graphics 

i Uj.jI mlftCfCOs 



> Full 96 character ASCII s 
' 6 and 8 lines per inch 



HIGH TECHNOLOGY AT AFFORDABLE PRICES 



TOORPH 
CALL TOLL FRIE 
1-I00-2M WOO 



L-Shi 



.-302 



MODELS I & III 
DISK BASIC PROGRAMS 2 
RANDOM ACCESS PAYROLL VER. 1.1 



• No complicated initialization 

• EDIT I LIST 

• NO SPECIAL CHECKS 

• USES NEB 9020 checks 

• PAY any employee anytime 



• SALARIED or hourly 

• SPECIAL PAY -special hours 

• TWO SAVINGS— including RIA 

• CLASSED by occupation 01 der. 

• PAYSTUB shows Year to-Date 



• STATE-FICA-FED TAXES-SAVINGS 

SEND YOUR STATE TAX SCHEDULE- 
FREE — customized to your state tax 

Documentatior $10 0C 
Disk & Documentation $95 00 

RANDOM ACCESS DEPRECIATION 

• LISTS any one year's depreciation 

• OR complete list of all property 

• PRINTOUT shows — I. D. Number-description — 

• Yr purchased — lite— method — 
1st yr. additional depreciation — 

• Reg. deprec— deprec prior yrs— balance 

• SUMMARY — total value prop —additional 1st yr 

• REGULAR deprec —deprec prior yrs 

• PERMANENT records tor your taxes 

Documentation $15.00 

Drsk & Documentation $195.00 

MIN: 32K— 1 DISK — PRINTER/132 CP1 

TERMS: Personal checks require 3 weeks to clear. 

USE-VISA-MASTER CHARGE -MONEY ORDERS 

TEL 7 PM-9:30 PM EASTERN-(617) 369-2364/6370 

SEND: SASE lor additional information 

MEDFIELD COMPUTER SOFTWARE 

39 GREEN ST., MEDHELD, MA 02052 ^215 




FILE FORCE 

A Disk File Program Designed lor the Small Businessman 

File Force is designed to readily keep track ol all your business tiles 
and programs by utilizing all the power of your TRS-80 and Disc 
Basic. This program is specially designed to combine the power of a. 
disk utility, the speed of random access, and the ease of use of a 
general database manager. 

File Force will automatically read the information on your disks and 
allow you to search the masterfile ■— 

the name of the disk 
Ihe name of a program 
the name of a business 
any extension, such as a i 

Other special features include easy i 

houses have protected their disks to 

Force will let you assign a disk hai 

names. It will also create a master printout of all business tiles and 

records on your disks, for safe keeping and better management of 

your resources. 

System Requirements: TRS-80 Model I. 48K; One Disk Drive: - 

TRS-DOS Version 2.3. S19.95. Please add S2 for handling and 

postage: $5 overseas: for your convenience you may phone in VISA 

or M/C orders. 

SOFTWAREHOUSE INTERNATIONAL 

We Ve Moved.' P.O. Box 1383 v Tandy Corp 

Clovis. CA 93613; (209) 251-7877 
In Australia: Computer Campus: Kent Town, S.A.. 5067 
Phone: n«< 



^See List of Advertisers on page 402 
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HARDWARE 



64K of RAM for the Color Computer. 




Vars 



Shawn A. McClenahan 
11347 Emelita Street #4 
North Hollywood, C A 91601 



The TRS-80 Color Computer 
has a major shortcom- 
ing—a limited amount of RAM 
memory. With piggy backing 
RAM chips or inserting Spectral 
Associates' innovative Ram- 
charger board you can expand 
the memory from a dismal 4K to 
a comfortable 32K bytes. How- 
ever, piggy backing takes care- 
ful soldering skills, perhaps the 
ingenious use of single pin 
sockets fashioned from 16 pin 
IC sockets for the Row Address 
Strobe (RAS) line connections, 
and a muffin fan atop the case 
to forestall overheating. Instal- 
ling Spectral's excellent board 
depends on how carefully Tandy 
put the IC sockets on the main 
board. I went through four Tan- 
dy boards, and the sockets were 
not properly aligned on any. If 
you have successfully imple- 
mented one of the above modifi- 
cations, the efficient code and 
memory handling of the 6809 
MPU allows your 32K to ap- 
proach the 48K of some other 
machines. But, considering the 
derision of some 48/56/64K ma- 
chine users, many Color users 



The Key Box 

Color Computer 



seek ever more RAM. Some are 
never satisfied. Thus the "RAM 
Wars" began. 

Fearlessly I answered the call 
to battle and took a Spectral As- 
sociates 8K Eprom board, 

MC688J SAM 



1u\ JUMPER FROM 

PIN 35 ■•;■ OLD RAW 
♦ 5V LINE 



changed eprom pin 21 to the 
R/W* line and mounted four 200 
nanosecond (nsec) TMM2016, 
2K by 8 static RAM chips, 
mapped from &HC000 to 
&HDFFF. This is for an adapta- 



JUMPER FROM OLD -5V TO 
♦ 5V FROM PIA's (MAY BE 
ELIMINATED IF USING 
MCM6665 OR 4l64's) 



tion of TSC's FLEX 9.0 DOS and 
is mounted on my 12 slot expan- 
sion board. I used the fast static 
chips to allow faster, address 
dependent, clock speed (POKE 
65495,0 or LDX #$FFD7; STA, X), 



n 




REMOVE THE ABOVE CAPACITORS FROM THE 



CU" +5V LINE JUST BEFORE OLD CG 
CONNECTION AND RJN JUMPER c ROM 
+5V POWER LINE TO OLD +I2V LINE 



Fig. 1A 



MC6885SAM 



MC682I PIA's 
U4U/0) U8IKYBR0) 



H 'I 1"_,0 



/ 



U2I U22 

16 f^ll CH5 p-q 

! ! ' ! 



U20 T U23 



C70 pq C48 pn C6T PI C35 ri C64 p' 




SAM PIN OUTS 



-'\ i ;stt note : 



BUMP 
-5V 



Fig. IB 
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and a minimum of hardware. I 
have heard of some putting 8K 
RAM in the Extended Basic 
ROM memory area and using 
the address decoder disable bus 
pin (SLENB* pin 40) to switch 
between RAM and ROM. With 
32K below that you have 40K of 
contiguous memory. 

If you put another 16K RAM 
on the external bus, you can 
have 56K. This large amount of 
external hardware places an 
added load on the Color Com- 
puter's none too massive power 
supply. The solution is to add an 
external power supply. 

Enter into the battle the avail- 
able-for-free-just-for-the-asking 
Motorola MC6883 SAM informa- 
tion sheet. Ever since I read 
those two 32K byte pages of 
RAM were possible in lower 32K 
memory I have lusted for the 
answer. It was obvious that 64K 
RAM chips were necessary (use 
dynamic chips in the Color Com- 
puter). Change a few traces (the 
64K chips use only + 5V and 
need one more address line) and 
remove the capacitors from 



what used to be the + 5V line (it 
becomes the new address line 
MA7). See Fig. 1. If you modified 
the video display for dual 32K 
RAS, return it to the original con- 
figuration as you are back to 
just one RAS line again. This 
means you can put a video 
display anywhere in the 64K 
RAM area. Plus, the 64K chips 
use less power than the 16K. 
Trace changes are for the A-B 
series of boards. The E series 
has three jumpers that can be 
changed easily for 64K chips. 
But it is not that simple. Ac- 



cording to a Motorola warning 
the MC6883 must be set for the 
RAM size chips you are using 
before you write to any RAM. 
Since the Color Computer writes 
to lower RAM as part of the ini- 
tialization process, it seems 
prudent to ensure it knows it has 
64K RAM chips buried within. If 
you do not, it is unlikely the 
chips will be destroyed, but 
refresh will not be proper and 
you will lose data on reset. 

You cannot change the Basic 
ROM but you can fool the ma- 
chine into seeing something it 



thinks came from the ROM. In 
the Color Computer the ROM on 
powerup or reset configures the 
two MC6821s (PIAs), clears 
&HFF22 and then steps through 
the even MC6883 SAM control 
registers (STA ,X+ +) clearing 
them as an added precaution on 
powerup and to reinitialize the 
system on reset. After this the X 
register contains &HFFEO. Next 
it ANDs the contents of &HFF22 
(ANDA#4, the A register contain- 
ing the contents of &HFF22 
from a previous LDA 2,X). If the 
memory size jumper is grounded 



• Remove the motherboard from the case and detach the ground shield. 

• Cut the + 5V trace just under chip U27 (arrow). 

• Cut the + 12V trace where it crosses over the right side of the keyboard connectors. 

• Cut the - 5V line just after the bump, or disable entirely by removing R67 (1 2K ohms) at the far lower left side of the board. 

• Remove capacitors C45, 70, 48, 67, 35, 64, and 31 from the top of the board. C61 may be left in place. 
There may be two holes in this area that you can use. 

• Scrape the green film from the area indicated by the up arrow, and then solder a jumper from the +5V line to the old + 12V line. 

• Drill a hole just large enough to pass a 33 ohm resistor lead through (#58 drill— .042") right below the screwhole to the left (from 
the bottom) of the MC6883 SAM. Check to make sure no traces are cut and that you clear the plastic post underneath the board. 
Solder one end of the 33 ohm resistor into the hole formerly occupied by C48 on the old + 5V line. Pass the other end through the 
hole and solder an insulated wire from that end to the pin 35 pad of the SAM. Make sure the lead will not interfere with the reinstalla- 
tion of the RF ground shield. 

• With the most commonly available 64K RAMs pin 1 need not be connected to anything. However, some chips need + 5V. If after 
checking the specifications for your chips you find you need +5Von pin 1, solder a jumper from the old -5V line to + 5V line at dou- 
ble arrows. 

• Re-install ground shield and motherboard in case. 

Fig. 1 
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NVERT YOUR SERIAL PRINTER 



RALLE 



NEW MODEL UPI-3 SERIAL PRINTER INTERFACE MAKEb IT 
POSSIBLE TO CONNECT AN ASCII SERIAL PRINTFR TO THE 
PARALLEL PRINTER PORT ON THE TRS-80. 

Software compatibility problems are totally eliminated because 
the TRS-80 "THINKS" that it has a parallel printer attached. 
NO MACHINE LANGUAGE DRIVER NEEDS TO BE LOADED 
INTO HIGH MEMORY BECAUSE THE DRIVER ROUTINE FOR 
THE UPI-3 IS ALREADY IN THE TRS80 ROM! SCRIPSIT, PENCIL, 
RSM 2, ST80D, NEWDOS, FORTRAN, BASIC etc. all work as it a 
parallel printer was in use. 

The UPI-3 is completely self contained and ready to use. A 34 
conductor edge card connector plugs onto the parallel printer 
port of the model I Expansion Interface or onto the parallel 
printer port on the TRS-80 III. A DB25 socket mates with the 
cable from your serial printer. The UPI-3 converts the parallel 
output of the TRS-80 printer port into serial data in both the 
RS232-C and 20 MA. loop formats. 



bd 



SPEEDWAY ELECTRONICS 

Division ot Binary Devices 

1 1560 IIMBERLAKE LANE 
NOBLESVILLE, IN 46060 
(317)842-5020 

TRS 80 is a trademark ot Tandy 



VISA MasterCard 




i>»*;«'^ 



Switch selectable options include: 

• Linefeed afte r Carriage Return 

• Handshake polarity (RS232-C) 

• Nulls after Carriage Return 

• 7 or 8 Data Bits per word 

• 1 or 2 Stop Bits per Word 

• Parity or No parity 

• ODD or EVEN Parity 

UPI-2 for TRS80 Model II 

UPI-3 for TRS8G Model I or 3 

UPI-4 for use with Model 1 and RS Printer 

Interface Cable (no expansion interface required) 

Manual only (may be applied to order) 

Ten day return privilege — 90 day warranty 

Shipping and Handling on all orders 

Specify BAUD rate 50-9600 BAUD 



NOW 
AVAILABLE 
FOR 
MODEL II 



$149.95 
$149.95 

$159.95 

$ 5.00 

$ 4.00 



mmmmsmmfommm 



80 Microcomputing, March 1982 • 157 



(4K) the result iszeroand it skips 
one instruction (BEQ A06C). If 
the jumper is to + 5V (16K), the 
result is not zero, the next in- 
struction is executed (STA -5,X), 
the X register is backed up five 
places from &HFFEO resulting 
in the A register being loaded in- 
to &HFFDB. The MC6883 SAM is 
now set for 16K dynamic RAM. If 
you change the last instruction 
to STA -3,X (A71 D) the MC 6883 
would be set for 64K dynamic 
RAM. All you need change is one 
byte at &HA06B so the CPU 
sees byte 1 D on the data bus in- 
stead of 1B. 

One external solution is to de- 
code the address bus so that at 
&HA06B you deselect the inter- 
nal ROM, using the SLENB* bus 
line, and put byte 1 D on the data 
bus. You can mount a device like 
that shown in Fig. 2 externally 
on the expansion bus but it re- 
quires another edgeboard con- 
nector to replace the one taken 
to allow further system expan- 
sion. The easy solution, short of 
a double-sided printed circuit 
board with plated holes, is to 



wire wrap the circuit on a Vector 
4609 proto-board. I used this 
method on the buffered card to 
my expansion unit. If you try to 
mount this unit internally, be 
prepared for any number of 
placement/mounting/location 
problems — not to mention 
soldering about 20 jumpers to 
the motherboard. Since the data 
does not have to be stable until 
90 nsec before the E clock falls 
you have plenty of time for de- 
coding and will be online with 
byte 1D even before E rises. Fur- 
ther, this solution allows the use 
of either the slow or fast clock 
speeds (&HA06B will be ad- 
dressed only at the slow speed). 
The second solution is to 
mount a board into the ROM 
socket itself but instead of put- 
ting a whole byte on the bus it 
swaps the D1 and D2 lines from 
the ROM (thus 1B, 0001 1011 
becomes 1D, 0001 1101). This 
solution uses three Chios, a dou- 
ble sided PC board (preferably 
with plated holes), and does not 
need jumpers. (See Fig. 3.) A four 
chip solution would put a whole 



byte on the data bus like Fig. ? 
but the extra chip would be 
needed to deselect the ROM or 
its output. The immediate prob- 
lem with four chips is that there 
is nowhere to put all of them — 
three is tight enough, i have not 
worked out this design or PC 
layout because it does not offer 
any advantage over solution 
Two. If I add up the worst case 
propagation delays for the de- 



coder and multiplexor versus 
the maximum access time of the 
MC68A364 ROM chip there is a 
strong possibility that, at the 
fast clock speed, there will be a 
loss of data coming from the 
ROM. At the slow (normal) clock 
speed there is no problem with 
timing but since the ROM D1 
and D2 lines must always go 
through the 74LS257 multiplex- 
or there can be timing problems 



SLENB PIN 40 




^ GROUND (33 OR 34) 

NUMBERS IN PARENTHESES ARE CARTRIDGE 
EDGECARD CONNECTOR PINOUTS 



74LS260 
DUAL 5-INPUT 
NOR GATES 



74LSI33 
I3-INPUT 
NAND GATE 



74LS244 

OCTAL 

BUFFER 



Fig. 2 



IlieDATV-TKANSlWK) 



A completely refurbished ^0 
IBM Selectric Terminal with 
built-in ASCII Interface. 

*FOR YOUR TRS-80 WITH OR WITHOUT 
EXPANSION INTERFACE. AVAILABLE WITH 
CENTRONICS TYPE PARALLEL PORT. 



Features: 



300 Baud Serial 
14.9 characters per second 
printout 

Reliable heavy duty Selectric 
mechanism 
RS-232C Interface 
Documentation included 
60 day warranty — parts and 
labor 

High quality Selectric print- 
ing Off-line use as typewriter 
Optional tractor feed 
available 
15 inch carriage width 



Also works with Exa- 
tron's Stringy floppy, 
for fast loading of pro- 
grams. (Has RS232 
built in stringy) 

HOW TO ORDER 
DATA-TRAIVSIOOO B 

1. We accept Visa, Master - 
Charge. Make cashiers checks or 
personal check payable to: 

DATA-TRANS 

2. All orders are shipped 
EO.B. San Jose, CA 

3. Deliveries are immediate 




Desk and table top models also available. 
For orders and information 

DATA-TRANS 

45277 Fremont Blvd., #7 ^ios 
Fremont CA 94538 

Phone: (408) 263-9246 
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WE ARE NOW NUMBER 1 

OUR MASSIVE VOLUME HAS ALLOWED US TO REDUCE OUR 

PRICE TO JUST 





REDUCED FROM 16902 



FOR THE POWERFUL 
LDOS 5.1 OPERATING SYSTEM. 



The Ultimate In 
Operating Systems 
For Model I & III 



* Model I LDOS provided on 35 track single density media. 

* Model III LDOS provided on 40 track double density media. 

* LDOS can be provided on special media configurations at an 
additional charge. 

* Prices & Specifications are subject to change without notice. 
-I- Although not required, LSI recommends two or more drives 

when using LDOS. 



For Further Information Contact The Distributor Or Dealer Nearest You: 



(West) 

LOBO DRIVES INTL 

354 S. Fairview Ave. 

Goleta,CA93117 

(805) 683-1576 



(Central) 

GALACTIC SOFTWARE LTD. 

11520 N. Port Washington Rd. 

Mequon, Wl 53092 

(414) 241-8030 



(East) 

MISOSYS 

5904 Edgehill Dr. 

Alexandria, VA 22303 

(703) 960-2998 



(The Common Market) 
MOLIMERX LTD. 

1 Buckhurst Rd., Bexhill 
Sussex. England 
(0424)-220391 



DEALER INQUIRIES WELCOME. LDOS is a product of LSI. TRS-80 & Radio Shack are trademarks 



A 

//A 
Lr- 



OGICAL 
SYSTEMS 
INC. 

Mequon, Wl 53092 
(414)241-3066 



isSee List of Advertisers on page 402 



80 Microcomputing, March 1982 • 159 




DOUGH FLO. The Most Useful Program a Home or 
Business Manager Can Have! ** 112 



Designed For The Decision Nleker, Doughfio is an interacting system of 
programs for cash flow analysts, budget planning, and bookkeeping. 
In The Home, Doughfio becomes a key tool in solving the puzzte of balancing ex- 
penses vs. income. Doughfio shows you where the money goes. 
Rre Your Bookkeeper I You, the new bookkeeper, wi have easy access to 
all expense records. Rapidly find and display any number of entries by description, 
type, amount, date, or number. 

Simple To Use, Doughfio is quick and efficient, carefully guiding you from data 
entry to report generation. 

User Friendly input screens and single keystroke commands allow ouek and 
easy data entry and computer interact on 
Amazingly Versatile! Indispensable m home or business *or 



• Budget Planning 

• Tax Preparation 

• Bookkeeping 

• Financial Analyaia 



Gain Valuable Insight. Doughfio s ready to save you time 8no ~oney 
Requires 32K and one or more disk r.r-ves. specify Model or II $93 95 postpaid 
to continental North America. For more information check reader service 
number 




in September October 1 980 Elementary Electronics Reprints available upon request 



^-113 



At last there is a cure for TRS-BO tape cioading blues! For over 
three years, Alphanetics has been selling the TRS-80 Tape Digitizer, a proven 
hardware solution for your software problems. No longer need you juggle the 
recorder's volume control endlessly, trying for a perfect cload of a pre-recorded 
program Just pop the tape into the cassette recorder, process the signal 
through our digitizer, and you're ready to RUN a perfect load! 
Just check out the Tape Digitizer's features 



• Makes taps program loading virtually Independent of 
volume control aatting. 

• Allow* copying ayatem and normal tapes without using 
computer. 

• Makee a perfect digital copy of any tape without ueirtg com- 
puter, removing hum, noise, and our** minor dropout*. 

• Caaaette awitch allows manual control of caaeatte 
recorder, Independent of computer co n t rol . 

• "GOOD DATA" indicator easily enables aatting proper 
volume . . . double* a* a tap* monitor. 

• A.C. powered — no b a tt erie s to replace. 

• Housed in a sturdy, attractive metal case. 

• Completely compatible with Level I B II, alec LOW apsed 
(500 baud) Modal III. 



Feed your cassette to the AlphBnetics Tape Digitizer and feed your computer the 
exact digital waveform the TRS-BO gave your tape. Get rid of your tape bugs 
today — $64.95 postpaid to continental North America, or return within 10 
days for a full refund! 



at the fast clock speed (1.8MHz). 

However, if you foresee using 
the Color Computer only at the 
normal clock speed, construct- 
ing the ROM satellite board is 
straightforward. Use a regular, 
low profile 24 pin socket for the 
ROM and use the thinnest diam- 
eter pins you can find (try the GC 
Electronics line of PC connec- 
tors) for easier and safer inser- 
tion into the onboard ROM sock- 
et. Solder the pins so that they 
do not interfere with mounting 
the ROM on the satellite board 
and so that they come down far 
enough out of the board. Since 
most of us do not have facilities 
for plating holes, be ready to 
solder connections on both 
sides of the board. You may 
want to use Molex IC pins for re- 
mounting the ROM as these 
would be easier to get to for 
soldering on top of the board. To 
conserve space solder the 74LS 
chips directly to the board. Use 
a capacitor for decoupling the 
power line. Fig. 4 is a suggested 
printed circuit layout. 

You could apply the above de- 
selection principle for changing 
other ROM functions. You may 
like the Color Computer to jump 
to another location when you in- 
sert a cartridge. If so, change 
&HA10B from CO to anything 
from 00 to FF. At this new loca- 
tion (or even still at &HC000) you 
may insert another initialization 
routine to set the Color Com- 
puter for 64K static RAM (re- 
quires two different registers 
set, and therefore another ROM) 
and to always run at the fast 
clock speed. To get back try 
JMP A10D. You may even try a 
circuit that executes this jump 
to a different location only on 
powerup or reset. 

Now that you have your Color 
Computer's traces all set and 
the auto-initializer constructed 



and inserted it is simple to bank 
select between the upper and 
lower 32K banks of RAM. In Ba- 
sic POKE &HFFD5,0 to get to 
the upper page and POKE 
&HFFD4 to get back to the lower 
page. In assembly language 
LDX #$FFD5:STA ,X for the up- 
per and LDX #$FFD4:STA ,X for 
the lower (it does not matter 
what the contents of register A 
are). Keep in mind that on pow- 
erup or after reset you will al- 
ways be in the lower page (#0) 
and will then have to jump to the 
upper page (#1). Since the Color 
Computer will not find the prop- 
er pointers in the upper page of 
RAM it is not presently usable 
for Basic. At the present time 
proper utilization depends on 
having a driver routine in exter- 
nal RAM or ROM even for ma- 
chine language use. 

It appears I have answered 
my own question about whether 
future Color Computer Basic 
ROMs will support 64K. While at 
the Glendale Computer Center I 
saw a 32K RAM machine that 
had a 1.1 Basic ROM. When I 
PEEKed &HA06B I got 2 back. 
Radio Shack changed the ini- 
tialization routine. When I got 
back to North Hollywood my 
Radio Shack Computer Store 
representative read me a bulle- 
tin about the new 32K upgrade 
kit using a different ROM. The 
clincher was that this ROM (part 
number AXX3052), which also 
corrects the multiple keypress 
problem, sends eight bit words 
out on the serial port (and 
hopefully corrects the DLOADM 
command). It would only be sold 
with the 32K upgrade kit. 

I ordered this ROM, inserted 
it, powered up and disassem- 
bled it. This ROM initializes for 
4K, 16K and 32K/64K. The rou- 
tine steps through the SAM reg- 
isters as before and then stores 



R0Mf(2O) OHIO) 02(11) »5V(24) 




Fig. 3 
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hex F8 in the keyboard PIA out- 
put register (&HFF03). It then 
checks &HFF22s bit 2. If this bit 

is zero, the Computer initializes 
for 4K; if not, it goes to the next 
instruction. &HFF03 is then 
cleared and &HFF22 bit 2 is 
again checked. If not zero, it 
goes to the next instruction 
which decrements the U register 
by two. With the next instruction 
storing the A register another 
three bytes below, making the 
back up total five, &FFDB is set 
and the CPU initializes for 16K 
RAMs. If the result of the second 
test is zero, it branches over the 
minus 2 decrement, executes 
the STA -3,U, backing up only 
three bytes, setting &HFFDD 
and we have 64K auto-initial- 
ization. 

The ROM checks &HFF03 to 
see if 30K/64K is in the machine 
and so you must run a jumper 
from PIA U8 to PIA U4. The byte 
stored at &HFF03 for the test 
had a value of &HF8 with a bit 
pattern of 1111 1000. Therefore 
run thai jumper from pin 12 of U4 
to any one of pins 13, 14, 15. 16. 
or 17 of U8. 

However, since future pro- 
grams will probably have sub- 
routines to see what size RAM 
you have and since I do not 
know for sure which of the 
above U8 pins is the right one I 
suggest the following. Remove 
the 4K/16K jumper, wire wrap 
the center post, cut the wire with 
enough room to go to any of the 
above pins going directly over 



U8, strip the insulation off the 
end and push it into the socket 
next to U8 pin 17. This may 
change in the future if Tandy 
goes to 64K chips. You can easi- 
ly make the correct selection 
with the above method. 

A memory management oper- 
ating system is not available 
yet. When 64K prices drop 
enough Tandy may offer to pull 
your 4/16/32Ks and plug in 64Ks 
(plus installation charges and a 
new ROM). There is a monitor 
available from Sound Center 
Radio Shack, NM, that provides 
some functions for using 64K. 

No, the other designs are not 
now obsolete. Tandy may yet 
implement the "no sale" provi- 
sion, forcing you to a satellite or 
outboard arrangement for your 
auto-initialization. The prin- 
ciples are still quite useful. 

Warning! You take full re- 
sponsibility for any modifi- 
cations to your machine. Since 
Radio Shack refuses to repair 
any Color Computer with cut 
traces invest in a service manual 
and a supply of spare chips. 
When you have the Tandy part 
numbers from the service manu- 
al you can order them from Na- 
tional Parts (1-817-870-5662). 
The courteous people there are 
just another reason Tandy is the 
biggest name in little comput- 
ers. This is an exceptional ser- 
vice. Do not abuse it with small 
orders or try to order whole com- 
puters. Be moderate or they will 
be forced to close down.B 




/"4LS257 



COMPONENT (TOP) SIDE 
(ROM FITS IN ROW MARKED 
BY ARROWS- SHIFT LEFT) 



BOTTOM SIDE - DON'T 
FORGET, YOU MAY HAVE TO 
SOLDER ON BOTH SIDES. 



Fig. 4. Use a very fine-tipped iron, thin solder, and the smallest diam- 
eter drill bit. Boards are 1:1 full scale. To avoid connecting spare in- 
puts, cut Bridge B and run a jumper from X to X (see top board). 

>-See List of Advertisers on page 402 



PRACTICAL • ORIGINAL • SINGULAR • SUPERB • UNUSUAL 
REFWARE THESAURUS . 

INNOVATIVE READY-REFERENCE PROGRAMS 
WHAT'S THE BEST WORD??? 

How many limes have you racked your brain for just the right word 
when writing an important letter, report, or article? How many times have 
your ideas been misunderstood because the words you used didn't express 
your thoughts clearly and accurately? 

Now, by using the remarkable new REFWARE THESAURUS programs, 
your computer can speedily find those words that are on the tip of your 
tongue but that you can't quite remember at the moment. And it tells you 
how to spell them! 

.Just slip a REFWARE THESAURUS disk into your disk drive. Then type 
in your sentences or paragraphs. The computer will quickly offer a variety 
of alternatives, retyping your sentences or paragraphs with substitute 
possibilities chosen from its multi-thousand word vocabulary. It displays 
the revised sentences on your monitor or types them on your printer as you 
choose, so that you can mull them over and choose the one that most ac- 
curately expresses what you REALLY mean to say. 

Having helped thousands of writers learn to express themselves with 
clarity as editor of such publications as the World Book Encyclopedia the 
Encyclopedia Americana, and the Reader's Digest Almanac and Yearbook, 
David C. Whitney has drawn on decades of editorial experience to prepare 
the revolutionary REFWARE THESAURUS programs, bringing the speed 
and power of the computer to the aid of anyone who wishes to improve his 
writing or speaking. 

In addition to the specific programs capable of substituting suggested 
alternate words for nouns and adjectives, REFWARE THESAURUS Builder 
enables engineers, physicians, lawyers, educators, business, physicists, 
chemists, and other professionals and specialists to develop their own in- 
dividually tailored vocabularies of hard-to-remember technical words. 

REFWARE THESAURUS Adjectives 1.0 

6,200 adjectives assist you in choosing the most accurate modifiers 
in your ads, letters, reports, and speeches. 

REFWARE THESAURUS Nouns 1.0 

6,200 nouns suggest alternates for the names of persons, places, things, 
and ideas that you use in your writing and speaking. 

REFWARE THESAURUS Builder 1.0 

Series of eight utility programs enables the user to develop specialized 
computer thesaurus disk programs of hard-to-remember technical words 
and their alternates for personal use. Functions independently of Adiec- 
tives and Nouns programs. 

REFWARE THESAURUS User's Manuals: Complete descriptions of use of 
each of the above programs. Included at no additional charge with each of 
program disks listed above. If ordered separately, price of documentation 
is refundable upon receipt of order and payment for program disk. 



MINIMUM System Required TRS 80* Mod 

• A Trademark of Tandy Corporation 



or Mod III 48K with two disk drives. 
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PROFILE 



Swinging from rock music to computers. 



Jake's 




by John P. Mello Jr. 



This is the first in a series of articles featur- 
ing personalities in the realm of the TRS-80. 
The people featured will be well-known or 
unusual, but all will have made a mark in the 
field that affects the state of the art. We 
welcome comments from you, and would 
like to hear who you'd like to see 
featured— Eds. 

There's a wacky irony in Jake Com- 
mander's life that reminds one of 



Bokonism, a fictitious religion created by 
Kurt Vonnegut, Jr. in his novel Cat's Cradle. 
Bokonism says there are pivots in a 
person's life called wampeters, one waning, 
one waxing, at any point in time. Jake Com- 
mander's wampeters have been rock music 
and computers. 

Born in Birmingham, England, Jake, at 
15, began playing in a band called the Andy- 
caps, after the famous British working- 
class comic strip character. But the seed of 
his interest in computers may have been 
planted in him long before that— at age two 
and a half: 




Jake Commander and friends. 
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"I remember a doll's house with a key- 
board in it. I remember that really well. It 
was one of my first recollections." 

His grandfather had made the dollhouse 
for Jake's mother. It had eight chimneys. 
Each room in the house had a ceiling light 
and fireplace fronted with red cellophane. 
When a chimney was pressed, the light in a 
room's ceiling and fireplace would glow. 

"My first keyboard," Jake said. When an 
interviewer suggested today's tykes need 
no silicon surrogates, 80 Micro's tech- 
nical consultant quipped, "Yeah, but they 
don't have as much fun as I had with that 
doll house." 

Jake's father had an engineering back- 
ground. "That definitely influenced my out- 
look," he said. And by the time he was eight, 
he was dabbling in electronics, building 
things and wondering why they didn't work. 

"It was all tubes back then so you'd just 
get electrocuted," he recollected. "Some of 
the shocks were unbelievable. I'm almost 
immune to electricity now." Asked if the 
shocks discouraged his experimentation, 
he replied: "No. It was part of the fun. Los- 
ing count of how many electric shocks you 
had was like getting a medal or something." 

While undergoing homebrewed shock 
therapy, Jake was also teaching himself to 
play the guitar. "Anything that I've ever 
learned that's been worthwhile." he ob- 
served, "I've taught myself." 

Although 11 year-old Jake passed a now 
defunct exam called "The 11-plus," aimed 
at separating the wheat from the chaff in 
the intelligence department, he found dubi- 
ous benefits in formal measures of intelli- 
gence: "The only kid in my class that didn't 
pass the 11-plus is now the guiding light of 
the Electric Light Orchestra and a multi- 
millionaire." 

Jake couldn't wait to leave school and at 
16, a year after joining the Andycaps, he 
landed a job in Britain's General Post Office 



"We started building all this 
stuff in my dad's shed. . . 
It was like the Houston space center." 



which, in addition to its postal chores, 
handles telecommunications in the coun- 
try. During this period, Jake and his friends 
built an outlaw radio station. 

They got 100 feet of scrap wire from the 
local telephone exchange where Jake 
worked, tied an old sneaker on the end of it, 
threw it over the roof of Jake's house and 
began transmitting their band over it. "The 
transmitter had so many harmonics in it," 
Jake said, "you could hear us all the way 
down the medium wave." 

The GPO prepared to capture the culprits 
responsible for the outlaw transmissions. 
"They sent out a detector van with a scan- 
ning unit looking for us," Jake explained, 
"but we had so many contacts in the field, 
we knew when they were in range. We'd just 
pull the sneaker back over the roof and 
wouldn't transmit until they were out of the 
way again." Finally, in a last ditch attempt 
to deceive the GPO, Jake said he and his 
friends started broadcasting in French. 

Jake tired of public service after a year 
and left the GPO to become a rock star. The 
time was 1966 and lots of lads Jake's age 
thought the road to success lay in emulat- 
ing four rockers from Liverpool. "We played 
Germany when I turned 18," Jake said. 
"That was like a really important thing as 
far as bands went. You know, follow the 
Beatles, go to Hamburg and come back a 
star." 

"It was a grueling experience," he re- 
called. "We were supposed to play a num- 
ber of clubs in the Hamburg area but ended 
up playing one. We couldn't stand it after 
two weeks. 

"On the weekend, you played until the 
last customer went. And the last customer 
went when the hell he felt like it. 

"You could see what it did to bands. It 
really gelled them. I remember one Satur- 
day night. The last customer left at six in the 
morning. We'd played six sets— an hour on, 
an hour off— 12 hours. 

"We were paid $50 a week. We thought 
we were rich. When I was 18, that was pretty 
good money." 

Back in England, the Andycaps contin- 
ued doing their gigs in "proper night clubs," 
places where it was either amateur night — 
someone from the audience trying to crash 
the stage and sing with the band— or Friday 
Night at the Fights or both. However, Jake's 
worst encounter didn't come in a club: 

"We were playing at a school hop when 
the local Hells Angels came in. 

"I was going through my tough period at 
the time— going through a 'Jake Command- 
er is going to be tough guy' type of thing. So 



I was ready to defend the band's honor and 
all that. 

"There wasn't any stage. We were play- 
ing on the floor and there was nothing be- 
tween us and the audience. 

"One of the bikers came up and says, 
'Play a Stones number.' We only knew 
one— 'Lady Jane'— not exactly a raunchy 
one. We started playing that but that was 
not their idea of what they wanted to hear. 

"One of them began wobbling the micro- 
phone in front of the rhythm player's nose 
so he couldn't Sing into it. So the bass play- 
er came up and stopped it. 

"That was it. 

"A couple of them grabbed the bass play- 
er. I thought: These swines are going to get 
it now. And I took my real nice semi- 
acoustic guitar and went bolting over there 
at the speed of light and just cracked this 
kid over the head with my guitar. 

"There was this terrible splintering 
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crunch and this kid flew— like he was run- 
ning backwards— because of the momen- 
tum with which I hit him. His gang parted 
like the Red Sea and the kid went flying 
through them landing in the seats. 

"Then the chairs started flying. 

"And I'm standing there wondering what 
the hell's going to happen next when this 
great big kid comes up to me. He looked 
about eight foot tall. He picked up a micro- 
phone stand with a heavy metal base. 

"I put my guitar down as he threw the 
things at me and I caught it and the momen- 
tum of that just threw me backwards 
straight over the drums and I landed, just 
like the best of slapstick, with my head in- 
side the bass drum. 

"I thought: I'm staying here. This is the 
place to be. I could hear the place erupting. 
Then there was a lull and I got up and as I 
did I met a chair coming through the air end 
over end and it bounced off my head and I 
went straight back down into the drum. 

"Then somebody had the good sense to 
yell the word police. That was all it took. The 
place cleared." 



When it became apparent immediate 
rock stardom was not in the cards for the 
Andycapps, Jake got another job earning 
$30 a week as a cost clerk in an office. At 
that time, Jake and a friend decided to be 
space vandals. 

"All our buddies," Jake explained, "were 
going around doing things like throwing 
stones through windows. What we were go- 
ing to do was throw the biggest radio signal 
we could muster at the moon and bounce 
the thing back. It would be like throwing a 
brick at the moon." 

He added, "People bounce signals off the 
moon all the time now, but at that time it 
wasn't common at all to say the least." 

"We started building all this stuff in my 
dad's shed," he continued. "It was like the 
Houston space center. There were all these 
oscilloscopes; converted tvs doing strange 
things; monitoring gear." 

The pair planned to cap the project with a 
giant dish antenna on the shed's roof and 
use a computer to track the moon's posi- 
tion. Jake enrolled in a $50 course he be- 
lieved would teach him how to build a com- 
puter, but when he received the course ma- 
terials, they dealt with only programming. 
He was disappointed about that and upset 
about shelling out $50 for it, so he persuad- 
ed his office manager he'd started the 
course to improve his job performance. 
The company paid for part of the course 
until Jake later left the firm to work in a tv 
repair shop. 

When it dawned on his father his son was 
serious about constructing a dish antenna 
on the roof of a building the family didn't 
own, he clamped down on the project, so 
Jake and his buddy planned to let the city 
of Birmingham become an accessory in 
the act. 

The duo obtained from the city an allot- 
ment—public land rented to indigents for 
gardening. "We put up a hut," Jake said, 
"so we could have our own little lab on this 
allotment and nobody would know. They'd 
think we were gardening when really we 
were bouncing signals off the moon." 

Once again hearing the siren's lure of 
rock stardom, Jake quit his office job. Rela- 
tions between him and his parents wors- 
ened and young Commander moved into 
the allotment hut. "I felt like a vagrant living 
in this hut," he remembered. "I started doing 
the computer course as a means of telling 
myself I wasn't a tramp or a vagrant. It was 
kind of a psychological safety net for me." 

Then one night, after a good gig with the 
Andycaps, it became apparent in what di- 
rection fate was poking Jake: 

80 Microcomputing, March 1982 • 163 



"Now [the computer programming course] 

was the only thing 

I had left, so I carried on with it." 



"I walked up the hill to the hut and the 
door was ajar. I got in there and vandals had 
been in and just completely wrecked the 
place. I found food everywhere and burned 
things and ripped up things. That's a horri- 
ble thing to get back to. 

"I just stood in the doorway, trying to 
take it all in, trying to make it real and not 
matter too much. And all I've got in there is 
a battery— no light bulb— and they tore that 
to pieces, so there wasn't even light to see 
how bad it really was." 

The next day Jake got a mattress and 
started living in the band's van, but two 
weeks later he returned to the hut to gather 
up all his worldly goods: 

"We went there and the door was ajar 
again. Everything was gone. They'd taken 
my clothes, everything. All the little things I 
owned were stolen. 

"That was a real weird experience, stand- 
ing in the doorway for a second time realiz- 
ing that everything you owned you were 
wearing. 

"They did messy things like burn ball 
point pens. There'd be half burned ballpoint 
pens stuck on something with blue ink ev- 
erywhere. It was really messy. It made my 
life feel the same way. 

"There were all these pieces of paper 
scattered everywhere, some of them 
soaked in kerosene because I'd had a 
kerosene stove. When I collected them 
together, they were the computer program- 



ming course completely intact. 

"That was a real trick of fate. If that'd 
gone, there would have been no way I could 
have carried on with it. Now it was the only 
thing I had left, so I carried on with it." 

Eventually, Jake left the Andycaps and 
joined "Ochre Daydream," and left the tv re- 
pair job to work in a paint factory on electro- 
phoretic paint. Then he "met" D.D. 
McCracken. 

McCracken's book, Digital Computer 
Programming, was the final stage of Jake's 
course. "The great thing about the book," 
Jake observed, "was it didn't teach you how 
to program a particular computer. . .you 
were learning a computer McCracken made 
up in his head that displayed all the general 
characteristics of a computer. 

"That book taught me everything I 
needed to know about programming until 
this day. 

"About halfway through the book, it start- 
ed pulling me in. I started getting a kick out 
of it. I started to find it was really getting to 
my blood. 

"It was like the ultimate game. People 
talk about what's the best game— Star 
Raiders or this, that or the other— but to me, 
the Basic programming language itself is a 
game people enjoy playing." 

By the time he received his diploma, Jake 
was hot to be a programmer, but he was in 
for a rude discovery: 

"At the time, programming was a real 



cliquey type of job. It was one of those 
Catch-22 things: If you wanted to be a pro- 
grammer, you had to be a programmer. 

"There was a bit of a scam happening at 
the time. Because programming was sup- 
posed to be this glamorous job, people were 
offering programming courses for $400. 
You could spend a month at a programming 
school and get a diploma that was worth 
nothing more than the paper it was written 
on. My degree was like that, except it only 
cost me $50, not $400." 

After unsuccessfully trying to find a pro- 
gramming job, Jake went to the Labor Ex- 
change—the British version of the unem- 
ployment office. There he was advised to 
become a computer operator and use that 
job as an "entree" into programming. Jake 
was skeptical of that suggestion. "The one 
thing that stuck in my mind from the Mc- 
Cracken book," he recalled, "was this im- 
age of computer operators as nothing more 
than someone who picks up a pack of 
punch cards, puts them into a reader, and 
presses a button." 

Shelving his doubts, he accepted their 
advice and they made a referral. When he 
arrived at the factory gate, Jake had to take 
a double dose of nasty medicine. Not only 
did he have to start as an operator, but he 
had to work for a company making items 
not bandied about the pub— sanitary 
napkins. 

But then Jake looked at the firm's main- 
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"He wanted to be a 
machine language programmer, 
'a programmer's programmer. ' " 



frame: "I was in love with it. There was all 
this electronic gear and tapes clicking and 
whirring and printers going and paper tapes 
being read and punch cards read and 
punched." 

Jake also discovered another asset to the 
job: "It was the upper echelon of the place. 
Everybody looked up to it like everybody in 
there was really strange. It was nice to have 
that. So, you see, I was going to be a star 
again." 

Although hired as an operator, Jake 
didn't start as one. "When you joined a 
computer installation such as that," Jake 
remembered, "you get the bum job and the 
bum job there was loading tapes, but even 
that was taken with great pride by these 
guys. 

"You had to get those tapes up there fast 
because an operator's standing there ready 
to start the whole ballgame. At the moment, 
the computer's doing nothing and idle time 
was like an anathema. 

"As tape loader, you had to make sure 
that as soon as a tape finished and was dis- 
mounted by a program, you would have the 
next tape on the tape deck and in position. 
You'd whirl around. It took two of us. It 
became an art. You stuck something up, 
then took something down; meanwhile you 
started to know which program would dis- 
mount which tape when, you'd get really 
good at it. You'd get a real team going and 
get programs going back to back. Some- 



times you could almost overlap the pro- 
grams. It was amazing. 

"The first day of doing that, it was such 
an alien job to me, my head was spinning. I 
came out of that job and I couldn't believe it. 
It was like I'd been to a fairground or 
something. I was totally fascinated again. I 
was really sucked into it all." 

Jake's enthusiasm endeared him to the 
engineers in the computer room and they 
let him play with the mainframe during rare 
idle moments. "I could make things hap- 
pen," he said. "I could put in a small pro- 
gram—maybe 20 words; there was no such 
thing as bytes, just 24-bit words— and make 
a printer print a line of A's or something or 
make a tape block read one block of tape 
and see all the lights go on. I really did get a 
kick of power out of that." 

Jake married three months after landing 
the computer job and began climbing the 
ladder in the computer room. His sights 
were clear now: He wanted to be a machine- 
language programmer, "a programmer's 
programmer." 

But when he reached his goal after two 
years, "the wind suddenly went out of my 
sails because I suddenly got to my destina- 
tion." Then the music bug and a new 
itch— an urge to see America— got into his 
blood. 

Jake was ripe for a change. Not only had 
he become a machine-language program- 
mer, but he was bitter about being victim- 








The ill-fated Reliant Scimitar. 



ized by a software pirate in the computer 
room. "Someone with a little more savvy 
than I had about the rights of a program 
took a program I'd written and sold it," he 
said, "got 2,000 pounds for it." 

"It was about 11 o'clock at night and I 
was ready to go to bed," Jake recalled, 
"when my friend from the Electric Light Or- 
chestra calls up. He only had half a band to 
appear on a tv show the next day and he 
wanted to know if I wanted to stand in as a 
cello player. 

"I'm a guitarist, right? I haven't a clue 
what to do with a bow and a thing with no 
frets on it. 

"Nevertheless, I went down to the BBC 
studios and we tanked up on whiskey and 
Coke. Then I put on an ape mask and vicar's 
collar and we faced the cameras and did it." 

Jake became the sound engineer for the 
band, but that sent shock waves through 
his marriage, a marriage already veined 
with faults from the hours he had been put- 
ting in on the computer. "I did everything I 
possibly could to keep the marriage togeth- 
er," Jake observed, "including going back 
into computing for three months just to try 
and be a steady guy again, show my wife 
everything was hunky-dory and I'm-really-a- 
nine-to-fiver-darling-why-don't-you-realize- 
that?" 

But his marriage cracked up anyway and 
Jake went back to music, becoming a 
sound engineer in a recording studio for 
two years, all the time his yen for the States 
growing. Then he bought a sports car that 
became a fateful part of his first trip to the 
"colonies." 

The car was a Reliant Scimitar, the make 
Princess Anne currently motors in, with a 
three-liter, V engine. Jake remembered: 
"The only reason I could afford one was to 
buy a second-hand one. It was the only lux- 
ury I'd ever had in my life. 

"Dad spent ages on the engine and it 
purred; it really purred. We could get the 
RPM on takeover so low it was untrue. 

"A couple of days after we'd done the 
final work on the car, I wanted to see what 
the performance was going to be 
like— naught to 50, naught to 60. 1 got to the 
end of this motorway, came to a complete 
halt, waited until there were no cars around 
and just floored it. The thing literally took 
off like a rocket. 

"It was beautiful. It shot off. I was sitting 
behind the wheel feeling good, zapping 
down there at 65 miles an hour about one- 
tenth of a second after I'd floored it. Then it 
lost power. 

"I thought: overheating. The thing's over- 
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"For $400, the TRS-80 
Model I, Level I, 4K, was 
the best bargain in the book. 



heating already. I couldn't believe it. I took 
my foot off the gas pedal and tried it again. 
Nothing. The thing just wasn't responding. 

"Suddenly, smoke starts pouring out of 
the dashboard, coming out of the air vents 
in the side. 

"I thought: electrical short, turn off the ig- 
nition. Nothing. 

"I put my foot on the brake. Nothing. 

"I flipped the hood latch, thinking: If it's 
hot under there I'd better get some cold air 
down there quick. I flipped it. It came up half 
an inch, stayed on its latch and flames 
came out the side just like a Trans Am— on- 
ly for real. 

"I see this slip road coming up and I just 
pulled the hand brake like mad. It worked. I 
pulled over, got out of the car, lifted the 
hood up and there were these flames trick- 
ling out. 

"I go into panic mode. 

"I will do anything to stop these flames. I 
try to flag drivers down and they're doing 
what anybody does when they see some- 
body in distress: They pull into the fast lane 
and go zooming past you. 

"A guy in the other lane coming the other 
way saw what was happening. He worked 
for a road repair firm and by law in England, 
they have to carry a fire extinguisher. He 
came bounding across the road with this 
great big fire extinguisher. It looked great. 
He tipped the thing upside down, hit the 
knob underneath, and nothing happened. 

"Meanwhile, the flames in my car get a 
bit taller. It's looking a bit hot in there now. 

"Then another guy runs up. He's got this 
tiny 50-cent fire extinguisher that you hit 
and shaving cream comes out. He starts 
spraying that from about eight feet away. I 
grabbed it off him and plunged in there try- 
ing to get it over the flames. They'd die 
down and just come back up again. It was 
hopeless. 

"A guy gave me a lift to call for help and 
as we're going in one direction, a cop car 
goes the other way with its light going. 
Great, someone's called them, I thought, 
but it's going to look fabulous because it 
looks like I abandoned my car. 

"When I got there, the police said stand 
back because they thought the tank was go- 
ing to blow. It never did and the car burned. 
It burned beautiful with a thick black plume 
that went half a mile into the air." 

A couple of those cars did the same thing 
to their owners his car did to him, Jake not- 
ed. He explained there was a design defect 
in the roadster. Engine vibration, he said, 
could work the pipe, running from the gas 
pump to the carburetor, loose. 
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After someone stole the car's wreckage, 
Jake's insurance company settled with him 
and he decided to give in to a desire he'd 
had for awhile— to go to the United States. 

He planned to spend three weeks in Los 
Angeles looking for a job as a record pro- 
ducer. But Electric Light Orchestra contact- 
ed him and asked him to be their monitor 
engineer for their latest American tour. 
"Suddenly," Jake observed, "a three week 
vacation to look for work turned into a three 
and a half month tour of the whole States." 

When Jake returned to England, he found 
he had a yearning for the States that 
wouldn't quit, so he joined ELO on theirtour 
of the world. 

While in Australia, he picked up an issue 
of Popular Electronics dedicated to the new 
microcomputer craze. For $400, the TRS-80 
Model I, Level I, 4K, was the best bargain in 
the book, Jake maintained. And when the 
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band began their U.S. leg of the tour in Los 
Angeles, he immediately bought one. 

"Me and the bass player, between gigs 
for the rest of the American tour, would be 
up in our hotel room with the tv undone in 
the back, programming away. 

"The bass player wrote a few good pro- 
grams. He turned out to have a real flair for 
programming." 

Before the end of the tour, Jake had up- 
graded his Model I to Level II. The bass play- 
er wanted some of Jake's Level II programs 
to run on his Level I machine. Jake wrote a 
disassembler program to help accomplish 
that and by the end of the tour, he'd been 
bitten by the computer bug again. 

By the time Jake got back to England, he 
was ready to move to the United States, but 
once again he was strapped for money. He 
realized microcomputers were going to be 
a boom industry, but he didn't realize they'd 
play a part in a scheme to get the capital 



he needed to return to "the land of 
opportunity." 

"I went back to see some of my buddies 
on the mainframe," he recalled. "I said, You 
guys had better look out because why 
should anyone buy a computer terminal and 
rent time off you for $80 an hour when 
they can get a micro and do exactly the 
same thing? 

"I thought it was going to hurt them. And 
within six months, the place had closed 
down." 

That meant a lot of computer terminals 
could be had for a song and Jake capital- 
ized on it. He developed a hardware inter- 
face allowing the terminals to be used as 
printers. He bought 20 terminals, modified 
them, and sold them for 250 pounds each. 
The only competition at the time was a Cen- 
tronics printer selling for 600 pounds. 

With the money from that scheme, Jake 
hopped a plane to L.A., again intending to 
be a record producer. But the record busi- 
ness was in the doldrums at the time, so he 
brought his disassembler program to a 
friend who was a Radio Shack dealer in 
Santa Monica. The dealer suggested Jake 
send the program to Tandy. 

Months dragged on and Jake still didn't 
hear from Tandy. As his financial resources 
dwindled, he found an ad in Microcomput- 
ing for Instant Software in Peterborough, 
NH. Jake sent 20 programs there; eight of 
them returned immediately because they 
were games. But by September 1979, In- 
stant Software had accepted the rest of 
Jake's programs. 

January 1980 rolled around. Jake's pro- 
grams still hadn't been released by Instant 
Software. With the dogs of destitution nip- 
ping at his heels, Jake decided to take a 
stab at landing a job with the Peterborough 
concern. After contacting Instant Software, 
he was offered a job interview. With his last 
$50 in his pocket, Jake boarded a Freddie 
Laker Airlines jet on a one-way ticket to 
New York City. There he met two Instant 
Software employees who brought him to 
the converted motel housing the firm. 

Instant Software liked what they saw and 
hired Jake immediately. But soon Jim Perry, 
then managing editor of 80 Micro, pirated 
Jake away from Wayne Green's software 
sister and since that time, the affable 
Englishman has been gracing the maga- 
zine's staff and its pages with his wizard's 
knowledge of microcomputers. 

However, there are signs of the polarity in 
Jake's wampeters may be changing again. 
Rumor has it he is dusting off the cobwebs 
on his electric guitar and. . . ■ 
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Since introducing QWERTY 3.0 in September, people 
have been calling to ask if we were making 
ludicrous claims. The answer is NO! QWERTY 3.0 
does all we claim it does and more! No other 
software of this type can match QWERTY 3.0. 
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It is the best. Period. We guarantee you will 
agree! If for some reason you find that this 
program does not meet your needs, return the 
entire package within 14 days for a prompt and 
cheerful refund. 

(Actual QWERTY text above) 
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SOME FEATURES OF QWERTY 3.0 

1 . Automatically prints in proportional print, with a suitable format Transitions between the 
three print styles are easy, including all expanded print modes. 2. QWERTY 3.0 adds 75 new 
symbols, including upper and lower case Greek letters, mathematical symbols such as 
integrals and summations, arrows, brackets, and probability symbols. 3. Any character can 
be used as a subscript or superscript, even simultaneously Carats, bars, and tildes can be 
placed over any character, with precise position control. 4. Underlining, with or without 
underlining of spaces, including long ratios and mathematical expressions. 5. FOOT- 
MOTES can be placed on any page so that they remain on the desired page, even if text is 
inserted later. 6. TABLE commands enable positioning of the print head anywhere on a line. 
Invaluable in printing neat mathematical layouts, tables, columnar material, etc.. in propor- 
tional print 7. PRETTY commands allow printing of repetitions of a chosen character. When 
combined with TABLE, decorative borders can be produced with ease. 8. FOLIO format 
produces output in two or three columns per page, in either proportional or 1 6.7 cpi mode. 
Ideal for newsletters. 9. Supplies a third output mode, in which only SCRIPSfT commands 
are obeyed. Allows printing of special QWERTY commands for future reference. 1 0. PAGE 
END indicates where pages will end. and the page number, without printing the text One can 
prepare an almost error-free document without ever using paper. 1 1 . Correction of 
SCRIPSIT's errors and inconveniences, extensive documentation, and much more! 

QWERTY 3.0 requires a TRS80 Model I or Model III. at least one disk drive, a copy of 
SCRIPSIT. and one of the printers specified below. When ordering, please specify which 
model computer, number of drives, and printer you use. For cautious buyers, we offer the 
manual ( over 70 pages) for S 1 0. When you decide to buy QWERTY we will credit the full 
manual price. 

QWERTY 3.0 
(for Lineprinter IV. Centronics 737. or Centronics 739) complete package . $74.95 

DAISY (for Radio Shack Daisy Wheel II) complete package S74.95 

QWERTY 3.0 Manual (specify printer) SI 0.00 
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P.O. BOX 3558 CHAPEL HILL, NC 27514 
TO ORDER, C\LL 1-800-334-5470 ffl s 



GENERAL 



The Model II wins when compared to the IBM 5150. 



Radio Shack vs IBM 



Roger Van Ghent 
125 Woodhull Road 
Huntington, NY 11743 



Comparisons of small business micro- 
computer systems help make the deci- 
sion about which system to buy. This article 
compares IBM's 5150 Model 824 and Radio 
Shack's TRS-80 Model II. 

Most computer systems are made up 
of the following major components: pro- 
cessor, memory, disk, tape, console, print- 
er, communications, and software. My 
analysis covers each of these components 
in turn. 

The Basic System 

Table 1 shows the small business config- 
uration plus display and printer options of 
the IBM 5150 Model 824. Table 2 shows the 
64K small business configuration plus 
printer option of the Radio Shack TRS-80 
Model II. Both models have power-up diag- 
nostics, user manuals and 90-day warran- 
ties. Both vendors provide field service at 
special service centers and optional main- 



IBM 5150 Model 824 


1 


System unit with 40K bytes of Read Only 




Memory and 64K bytes of user memory 


1 


Keyboard 


1 


5 V*" disk expansion drive adapter 


2 


5 v." 160K byte disk drives (total 320K bytes on 


1 


Asynchronous communications adapter 


2 


Additional expansion slots 


1 


Cassette attachment jack 


1 


Tone speaker 


1 


Monochrome display and printer adapter 


1 


Monochrome display 


1 


80 character per second dot matrix printer 


1 


Printer cable 


1 


Disk Operating System and advanced level 




Basic language software 


1 


Asynchronous communications support 




software 




Total cost $4615.00 




Table 1. IBM System. 


- 





tenance contracts. Radio Shack provides 
an on-site maintenance service option. 

The IBM system is less expensive than 
Radio Shack's by $483.00. If you substitute 
word processing quality printers for the 
matrix printers (a NEC Spinwriter 3530 
33cps on the IBM system, and a Daisy 
Wheel II 43cps on the Radio Shack system) 
the prices are: IBM $6410, Radio Shack 
$5898, a difference of $515 in Radio 
Shack's favor. 

Processor 

Comparison criteria for processors are 
speed (in cycles per second), word size (in 
bits), addressing capacity and instruction 
set. One character can be stored in eight 
bits. An instruction takes 4-20 machine 
cycles and 1-6 words. Roughly 10 instruc- 
tions execute one line of Basic code. 

The IBM's processor is an Intel 8088 eight 
bit chip, which runs at 4.77 million cycles 
per second. It can perform a 16 bit multipli- 
cation or division and address one million 
bytes of memory. 

The Model ll's processor is a Zilog Z80A 
eight bit chip which runs at four million 
cycles per second. It can address up to 64K 
bytes of memory, the full capacity of 
the package. 

IBM's chip is 20 percent faster and has 
substantially more addressing and compu- 
tational capability. You cannot use the full 
addressing capability in IBM's package, 
however. Radio Shack's widely used micro- 
processor has high reliability and is com- 
patible with virtually every program written 
for microprocessors. 

Memory 

Computer memory is measured in bytes 
(a byte is computerese for a character such 
as A-Z, 0-9, and other special marks or 
symbols). Not all of a computer's memory is 
available to an application program. 

Starting with 64K bytes, IBM's disk oper- 
ating system uses 12K. The advanced disk 
Basic programming language required for 
communications uses 30.5K and allows 
33.5K bytes for user programs and data. 



Starting with 64K, Radio Shack's oper- 
ating system uses 10.25K bytes. Basic 
uses 18K and allows 35K bytes of us- 
able memory. 

Both systems have enough memory for 
approximately a 1000 line Basic program; 
IBM's operating sytem is slightly larger. 

Disk 

Both machines have floppy disk storage. 
The significant characteristics of disks are 
capacity and transfer rate. 

The IBM system has two 5V* " disk drives, 
using removable minifloppy disks. Each 
disk holds 160,000 characters, a total of 
320,000 characters of online storage. After 
the space required by the Disk Operating 
System and Basic is subtracted, available 
storage for programs and data is at most 
277,500 characters (probably less due to 
disk overhead such as directory tracks). The 
IBM drive transfers data at 20,480 char- 
acters per second. 

The Model II has one 8" double density 
disk drive, using removable floppy disk stor- 
ing up to 509,184 characters each. When 
the directory tracks, operating system and 
Basic storage is subtracted, available 
space is 416,000 characters. The Radio 
Shack disk drive transfers data at 62,500 
characters per second. 

Radio Shack's disk holds at least 50 
percent more information than both of 
IBM's and transfers that information 300 
percent faster. Radio Shack's disk stor- 
age can be increased to a total of 35,000,000 
characters. 

Tape 

The IBM 5150 supports cassette tape 
storage (the user supplies the tape deck), 
but this is not a practical option for a busi- 
ness computer. The Radio Shack Model II 
does not support tape. 

Console 

Both systems have similar keyboards, 
with calculator pads, a tilt (IBM's is adjust- 
able), and user-defined function keys (IBM 
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"Much more software has been written for 
Radio Shack's small system than for IBM's." 



has 10, Radio Shack has 2). IBM' keys re- 
peat when held down; Radio Shack has a 

Repeat key. 
The display units are both 80-character 

columns and 24 or 25 rows. Both allow 
double-size character display, line graph- 
ics, reverse image, and lowercase with true 
descenders. The IBM unit has high intensi- 
ty, underlining and blink features. Radio 
Shack's screen is black and white, IBM's is 
green. Radio Shack's screen is built into the 
cabinet, IBM's plugs in separately. (IBM 
allows a tv instead of monochrome display, 
but does not sell the tv set or RF modulator.) 



Printer 

The IBM printer (an Epson printer) prints 
bidirectionally at 80 characters per second 
on pin fed continuous form fan-fold. The 

paper may be up to 10" wide, including tear- 
off pin feed strips. 

The Radio Shack Line Printer VI prints bi- 
directionally at 100 characters per second. 
A removable tractor allows both pin fed and 
sheet fed paper. The paper can be from 4" 
to 14 7/8" wide (standard computer size). 

The Radio Shack unit has a sheet feed 
feature and 25 percent greater speed than 
the IBM. The sheet feed feature is essential 
for word processing applications. 

Radio Shack sells two less expensive 
printers (not recommended for business 
purposes) and two more expensive printers, 
one for heavy duty business use (such as 
label production, personalized form letters, 
large inventory reports), and a letter quality 
Daisy Wheel printer with proportional spac- 
ing and different type style-;-: (ideal for word 
processing). IBM does not have any other 
printer, but other makes of printer (such as 
a NEC Spinwriter) can be attached if a paral- 
lel interface is added to the configuration. 

Communications 

A computer system communications 

ability s described in terms of its protocols 
(how it shakes hands with the computer it 

talks to), and rate, measured in bits per sec- 
ond. Both these systems support asynchro- 
nous communications (a commonly used 
protocol) through their RS-232C ports. 

IBM's asynchronous communications 
support option, not included in the standard 
configuration, allows communications with 
other microprocessors and larger comput- 
ers which support this protocol (most do). It 
allows transfer rates of 75-2400 bps. 

The Model II comes with asynchronous 
software. In addition, Radio Shack sells two 
bisynchronous communications packages 
—3780 and 3270 protocols— allowing the 
TRS-80 to communicate with host comput- 
ers (IBM 370 and 30 main frames) as a re- 



mote job entry terminal or as a special input 
terminal for software such as IBM's TSO, 
CICS, VM/CMS, and IMS. Transfer rates on 
this model can vary from 110 to 9600 bits 
per second. 

Radio Shack's system provides a more 
complete set of communications software 
than the IBM system, and supports higher 
transfer rates. 

Software 

The measure of any computer system is 
its software. Both sytems use variants of 
Microsoft's Basic. IBM supports color 
graphics (requiring a color display) and 
tones; Radio Shack does not. Radio Shack 
has a compiler Basic (which runs much 
faster than either vender's interpretive Ba- 
sic), a multi-key access Cobol (for busi- 
application programming), Fortran (for en- 
gineering and mathematical applications), 
and an Assembler. IBM has Pascal (a teach- 
ing language for computer professionals), 
but this language requires twice the memo- 
ry (128 thousand bytes). 

Both models allow automatic job stream 
execution at start up. Both systems have 
Accounts Receivable, Payable and General 
Ledger, Visicalc (a powerful calculating 
tool), and word processing. Radio Shack 
has the software shown in Table 3. IBM has 
only Microsoft Adventure, a game. 

Much more software has been written for 
Radio Shack's small business system than 
for IBM's, and Radio Shack can support 
several higher level languages. IBM's sys- 
tem can support one higher level language 
if its memory is doubled (for $540). 



In Conclusion 

The IBM small business configuration is 
$483.00 less, the word processing configur- 
ation $515.00 more, than Radio Shack's. 
IBM's processor is 20 percent faster and 
has more addressing and machine instruc- 
tion capability. 

The Radio Shack's usable memory is 
slightly more than IBM's. Both machines 
will handle approximately a 1000 line Basic 
program. Radio Shack's disk stores at least 
50 percent more information than both of 



IBM's combined, and transfers that infor- 
mation 300 percent faster. Much more 
disk storage can be added to the Radio 
Shack system. 

The consoles and printers are very simi- 
lar, but the Radio Shack printer has a sheet 
feed feature and is 25 percent faster. 

Radio Shack sells more communications 
software and supports higher transfer rates 
than IBM does for its system. 

Much more software has been written for 
Radio Shack's small business system than 
for IBM's. Radio Shack supports faster Ba- 
sic, Cobol and Fortran compilers and an as- 
sembler. The IBM system supports Pascal if 
its memory is doubled. 

The two machines are about equal in 
power and price, but Radio Shack sup- 
ports a much faster and larger disk and 
much more development and application 
software than IBM's small business 
system. It also has more hardware options 
(printers, disks and plotters) to fit the 
user's needs. ■ 



Robert Van Ghent, a consulting software 
engineer, specializes in system analysis 
and design. Robert has managed applica- 
tion development projects in the media and 
banking industries, and is an expert in pro- 
grammer productivity. 



Radio Shack TRS-80 Model II 


1 


System unit with 64K bytes of memory 


1 


Keyboard 


1 


8" double density 500K byte disk drive 


1 


Video display 


1 


Bootstrap 'end only memory 


4 


Additional expansion slots 


1 


Parallel port (for printer) 


2 


RS-232C serial ports 


1 


External disk bay port 


1 


Line printer VI (100 character per second print 




speed) 


1 


Printer cable 


1 


TRSDOS (Disk Operating Sytem) ana Basic 




language software 




Total cost $5098.00 


i 


Table 2. Radio Shack System. 



Payroll 


Order Entry 


Inventory Control 


Sales Analysis 


Profile II, a filing system 


Mailing List 


Medical Office System 


Manufacturing Inventory System 


Job Costing 


Personnel Search 


Litigation Support Package 


WESTLAW 


Time Accounting lor Professionals 


Statistical Analysis 


Scripsit Dictionary 


Color Plotting Printer Package 


Table 3. Radio Shack Software. 
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Integral Winchester 
Business System includes 
48K MODEL III, DOS, 
DISK III™, 6.3 MEG 
HARD DISK (internal). 

$4995 



,~ - • — - ~ir 





6.3 MEGABYTE 

WINCHESTER 

HARD DISK SUBSYSTEM 

With Chassis, PS, DOS. 

9.5 MEG $3395.00 



VR Data Winchester HD 
Subsystem Features: 

• TRSDOS Compatible Operating System 

• State-of-the-Art Circuitry 

• Full Calibration, Test and Burn-in 

• Up to 4 drive configuration 

• Heavy duty Power supplies 

• Warranty-120 days-parts & labor 

• 115/230 VAC, 50/60 Hz. 



Optional Mod III Configurations: 

9.5 Meg HD (internal) add $500.00 

80tk1 sidefloppy add $120.00 

80 tk 2 side floppy add $240.00 

Optional Winchester Subsystem 
configurations: 

2x6.3 meg drives $4495.00 

2x9.5 meg drives $5495.00 



Model!! 



COMING SOON 



$299. 



D-CON 

Integral Modem 
NEEDS NO RS232 
— Direct Connect 
Programmable Dialing 
AUTO ANSWER/ORIGINATE 
Easy Installation 



HERE NOW 

VR-RS232C $75- 

Direct Replacement For R.S. RS232 
Fully Tested & Burned-ln 
Easy Installation 
120 Day Warranty 
Programmable Pincut 
Prototype Area 



Phone 800-345-8102 




A 215-461-5300 



ata Corporation 
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Complete Business 
System includes: 
48K TRS-80™ Model 
III, Disk III™ 2 Drive 
System, TRSDOS 
and Manual. 





<s 

DISK III Single 
drive assy 




1 DISK Illsingledriveassemblyincludes:one40track 
5'/." double density drive, power supply, controller, 
mounting hardware, and applicable cables. 



DISK III Two 

drive assy 864.00 
DISK III Assy 

w/out drives 435.00 
TRSDOS™ & 

Manual 21.90 

External drives 

(3&4) 275.00ea. 



COMPARE AND SAVE 



VR Data's DISK III features: 

• Completely compatible with TRSDOS 

• State-of-the-art circuitry 

• Fully tested, calibrated & burned-in 

• Up to 4 drive configuration 

• Warranty 120 days - 100% parts and labor 

• Installation with simple hand tools 

• Optional 80 tk and 2 sided drives 

• READ 40 - Pgm. to read 40 tk. Diskettes 

on 80tk. Drives $25.00 

• FCC CERTIFIED 



Peripherals 




Epson MX-80 


500.00 


Epson MX-80 FT 


615.00 


Epson MX-100 


800.00 


Centronics 739 


700.00 


Starwriter25(P) 


1395.00 


RS-232 


95.00 


Lexicon modem 


105.00 



MODEL l/lll 
EXTERNAL DRIVE 
W/ PS & ENC 

Fully Compatible 
120 day warranty 
Easy installation 
80tkor2sided 
80tk&2sided 



$275 




$419.00 
549.00 



IF YOU DON'T SEE IT ADVERTISED CALL US AND ASK FOR IT. 

PUBLISHED PRICES REFLECT CASH DISCOUNT. 

ALL PRICES ARE SUBJECT TO CHANGE WITHOUT NOTICE. 

TRS-80 and TRSDOS are trademarks of Tandy Corp. 

DISK III is a trademark of VR Data Corp.' Dealership available. 



OTHER PRODUCTS 

SUPERBRAIN 64K 
PARALLEL PORT — 

SUPERBRAIN 
DISK & MYSTERIES 
BASIC & MYSTERIES 
NECRibbons(min.6) 
Epson Ribbons 
NEW— 
LDOS Operating 

System 
COMING SOON!! 
Internal MODEM for MOD 



2990.00 

99.95 
22.50 
29.95 
5.95 
12.50 



149.00 



-124 



777 Henderson Bouleva 




mm® 
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HARDWARE 



A single-board compiler in a kit. 




James Hawkes 
College of Charleston 
Charleston, SC 29401 

Grady R. Reese 
500 Tulip Street 
Somerville, SC 29483 



Why would a TRS-80 owner 
be interested in the M-80, 
a single board microcomputer 
utilizing the Z80 CPU? Possible 
control applications include 
home environmental systems, 
security systems, household ap- 
pliances, and computer peri- 
pherals such as printers, plot- 
ters, and tape drives. The TRS-80 
can handle these chores; never- 
theless, most of us don't want to 
commit such an expensive ma- 
chine to these mundane and 
time-consuming tasks. 

The M-80 kit, available for only 
$99, does not have the conve- 
nience of a keyboard and a video 
display— not to mention disk 
and tape drives, printers, and 
the cache of development soft- 
ware which exists for the 
TRS-80. But anyone with a 
TRS-80 can use it as a terminal 
for developing programs direct- 
ly on the M-80. Software can 
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also be developed for the M-80 
using TRS-80 editors, assem- 
blers or compilers and then 
downloaded to the M-80 for ex- 
ecution. 

M-80 Hardware 

The heart of this micro is the 
Z80 microprocessor, the same 
microprocessor that controls 
the TRS-80. Thus, any properly 
designed machine language 
program written on the TRS-80 
can be executed by the M-80. 

The M-80 is operated on 2 
MHz by a clock circuit con- 
sisting of five sections of U11, a 
CD4049 CMOS hex inverter 
which is used as an oscillator 
and buffer (see Fig. 1). 

Address decoding is ac- 
complished by U9, a 74LS154 
four line to six line decoder. This 
device decodes the addresses 
from 0000 hex to 3C00 hex in 1 K 
increments. Notice that this 16K 
address space is not uniquely 
assigned since the A15 address 
line is not used in the decoding 
scheme. This means that the 
memory from 0000 to 3C00 will 
duplicate itself in memory loca- 
tions above 3C00. 

Memory for the M-80 consists 
of two 2708 EPROMs and two 1 K 

1982 



banks of 2114 static RAM. Two 
sections of U10, a 74LS32 quad 
2 input OR gate, are used to 
select one of the two EPROMs. 
Also, one section of U10 is used 
to OR A14 and the MREQ (active 
low) signals from the CPU. In 
this design, both signals must 
be low to get a high from the OR 
gate, satisfying the G1 input of 
the decoder. A section of U11, 
the CD4049 inverter, is used to 
invert the CPU refresh (active 
low) signal for application to the 
G2 input. This prevents the 
static RAM's and EPROMs from 
participating in a refresh cycle. 
The one remaining section of 
U10 is not used and can serve as 
a spare gate. 

The M-80 microcomputer pro- 
vides input/output and 128 bytes 
of RAM with a multi-purpose 
chip, U1 (National Semiconduc- 
tor's INS8154 RAM I/O). The 
8154 contains 1024 bits of static 
memory organized into 128 
bytes plus 16 lines of I/O on a 40 
pin dual in line package. The 16 
I/O lines are designed to provide 
two 8-bit parallel ports (A and B). 

Port A can be configured in 
four parallel modes specified by 
placing appropriate values in 
the output definition registers: 



basic I/O (no handshaking); 
strobed input; strobed output; 
and strobed output with tri- 
state. Port B can be used only in 
the basic mode— no handshak- 
ing is available. 

In addition to reading and 
writing to ports A and B in 8-bit 
bytes, you may elect to set, 
clear, or read any individual byte 
in either port. This capability 
provides a means for serial com- 
munications and enhances ef- 
fectiveness in control applica- 
tions. 

If your application requires 
additional memory or I/O de- 
vices there will be very little dif- 
ficulty interfacing since the 
M-80 provides 16K of decoded 
address space of which only 4K 
is currently used. To further 
simplify interfacing, the excel- 
lent manual provides drawings 
detailing the use of many de- 
vices such as RS232 to TTL and 
TTL to RS232 converters (see 
Fig. 3), A/D D/A converters and 
port expansion circuits. 

The power supply chosen for 
this project must provide plus 
five volts at 280 mA, + 12 volts 
at 60 mA, and minus five volts at 
35 mA. An additional source of 
-12 volts at 60 mA must be 




Reprinted with permission from Miller 
Technologies. 



Fig. 1. 



available for the RS232 and TTL 
converter circuits described lat- 
er. We used the power supply 
described by Don Walters in 
"The Mighty Five Way Power 
Supply" (Kilobaud Microcomput- 
ing, April 1980). The supply 
shown in Fig. 4 is included 
for those who prefer to build 
their own. 

Software 

To complement the versatility 
in hardware there is also excel- 
lent software available for the 
M-80 in the form of a 1 K monitor 
and a 2K Basic. 



The monitor has commands 
that allows memory to be 
dumped; data entered into mem- 
ory; memory to be downloaded; 
execute a program; set a break 
point; proceed from a break 
point; set a bit; and test a bit. 
The documentation also pro- 
vides the addresses of numer- 
ous subroutines in the monitor, 
greatly simplifying those tasks 
which might otherwise have to 
be written in machine language. 

Also available on two 2708 
EPROMs is a powerful 2K in- 
teger Basic interpreter modeled 
after Palo Alto Tiny Basic by Li- 



Chen Wang as presented in Dr. the comparatively small amount 
Dobbs Journal, May 1976. This of code required for the inter- 



Basic compares favorably with 
the 4K Basic offered by Radio 
Shack. The instruction set (see 
Table 1) is rather extensive given 



preter. 

The language permits 26 var- 
iables denoted by the letters A 
through Z. There is also a single 



D825F DB25M 




Fig. 2. 
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Fig. 3. RS232 and TTL converter. 




Fig. 4. Power Supply. 



array, designated @( ), whose 
size is a function of available 
memory. To conserve memory, 
virtually all commands have one 
or two letter abbreviations. 

The GOTO statement in the 
language is syntactically un- 
conventional: It permits the user 
to compute the line which is the 
object of the statement. Thus, 



GOTO 3*X + 2 will transfer con- 
trol to the line whose value 
equals 3*X + 2. Equally unusual 
is the ability to mix logical and 
arithmetic expressions in an as- 
signment statement. For exam- 
ple LET C=D*(A>B) + 6 will 
assign the value 6 to the variable 
C if the logical expression A>B 
is false and D + 6 if A>B is true. 



FREE 

business software 
directory 

• Radio Shack's Model I, II, III. 

• Heath's MBASIC and HDOS 

• CPM: Xerox, Alto... 

• IBM Personal Computer 



' C IDM2 is GREAT P 



-publisher of 80-US 



" (GI.) superior to either the Osborne (SBSG & Taranto) 
or Radio Shack ... MAIL-X has a greater capacity. . . 
more flexible than (R.S.)" 

-columnist of 80-microcomputing 

"imperceptively fast .. .(DBMS) is a good and reliable 
workhorse" -publisher of Interface Age 

Data base manager, integrated accounting package 
(AR, AP, GI. & Payroll), inventory, word proces- 
sing, and mailing list. Compare and be selective ! 



«bk 



Micro Architect, Inc. 

96 Dothan St., Arlington, MA 02174 



Another useful feature is the 
ability to jump to a machine 
language routine and return to 
Basic, implemented by the 
CALL command. 

Interface to the TRS-80 

Both the machine language 
monitor and Basic were written 
to communicate in a serial 
mode with a host terminal. Thus, 
the M-80 can communicate with 
the TRS-80 through the RS232 
board if the TTL I/O on pins two 
and three of the 8154 is con- 
verted to RS232 compatible 
signals. This can be done with 
the RS232 to TTL and TTL to 
RS232 converter circuits shown 
in the M-80 manual (see Fig. 3). 
Electronic Systems of San Jose, 
CA offers a 2-square inch 
printed circuit board containing 
both circuits for about $10 in kit 
form. Regardless of whether you 
construct or purchase the above 
circuit, we suggest you obtain a 
female DB25 connector to con- 
nect with the RS232 lines from 
the TRS-80. For the connection 
details, see Fig. 2. 

Communicating 

Any terminal program should 
work once it is properly con- 
figured for the serial protocol ex- 
pected by the M-80 (8-bit word, 
no parity, and one stop bit). Even 
the Term program included with 
your RS232 package will do the 
job. 

Although we eventually were 
able to use the ST80D package, 
our first efforts were not suc- 
cessful. Because ST80D was 



written to be used with a 
modem, the program expects 
the modem to transmit the Clear 
to Send signal when communi- 
cation is established. As soon 
as we provided this signal, by 
connecting pins four and five in- 
side the female DB25 cable con- 
nector used on the M-80, ST80D 
functioned perfectly. 

By using the ST80D and its 
utilities, you will be able to 
download machine language or 
Basic software created on the 
TRS-80 to the M-80 for execu- 
tion. This will ease development 
work and accelerate applica- 
tions. 

Applications 

The M-80 is a perfect board for 
dedicated control applications 
such as heating and cooling 
systems, security systems, and 
watering systems. In addition, it 
could control a printer or plotter 
and execute specialized graph- 
ics software as directed by a 
host processor. Parallel pro- 
cessing would certainly make 
gaming applications far more 
powerful. Imagine the strength 
of the chess playing program, 
Sargon, if it had been written to 
be executed on a multipro- 
cessor system. 

Our experience with the M-80 
has been very satisfying: We 
had the microcomputer up and 
running within 20 minutes of 
building the TTL to RS232 con- 
verter. Next we plan to build a 
control system for heating and 
cooling a home, using the M-80 
as the controller. ■ 
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Wha 



I I 



TRS-80 



*** Word Processing ? 

MULTIDOS will permit you to 'grab' a formatted diskette, shove it into a track compatible 
drive, and write to it - no matter if it is single density, double density, or DBLDOS™ density. This 
is possible because of MULTIDOS 5 automatic density, recognition which includes diskettes for- 
matted by DBLDOS™ — similar to NEWDOS/80 2.0. 

*** Basic Programming ? 

"MULTIDOS' BASIC is unequaled, in both features and size, among TRS-80® Disk Basics'' 

— Paul Wiener, 1982 

Included is B BASIC/CMD which has all of the "BOSS" single step and trace features. Now 
you can insert 'break points' to turn on/off the trace and/or single stepping in your BASIC program. 
Now you can save the screen as formatted and look at variable values. Afterward, return the screen 
as before and continue your BASIC program. 

*** Whatever ... 

MULTIDOS Is Easy To Learn — Easy To Use ! 

DOS commands may be repeated, even multiple DOS commands. System utilities never 
require more than 2 keystrokes per query , . . 

Now That's Easy ! To Make It Easier There Is A 'Help File' ! 



MULTIDOS 
Model I or Model Eli 



Only " § 
(Watch The Competition Squirm !) 



MULTIDOS Now Available From: 

WARLOCK WAREHOUSE 

169) Eason. Ponliac Ml 48054 
(3131 673-2224 or (3131 673-8700 

— AND - 

POWERSOFT 

1 1 500 Slemmons Fwy . Suite ' 25 

Dallas. TX 75229 

(214) 484-9428 



Cosmopolitan Electronics Corporation 

P.O. Box 234 • Plymouth, Michigan 48170 
(313) 397-3126 

— Dealer Inquiries Welcomed — 



3jg$ 




VISA 



COD - Cash or Certified Check 
Personal Checks - Allow 

? Weeks To Clear 

ADD $3.00 

For Shipping & Handling. 

Michigan Residents Include 



4% Sales Tax. 
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..-See List of Advertisers on page 402 
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BUSINESS 



Used to be you couldn't take it with you 
because the government took it first. 



Tax Relief for the Rich 



Charles R. Perelman, P.C. 
9777 Wilshire Boulevard #700 
Beverly Hills, CA 90212 

The most substantial estate 
tax changes in over 25 years 
became effective January 1, 
1982. On August 13, 1981 Presi- 
dent Reagan signed into law the 
Economic Recovery Tax Act, af- 
fectionately known by profes- 
sionals as the Accountants' and 
Lawyers' Relief Act of 1981. 

The present threshold of 
$175,625 for federal estate and 
gift taxes will increase from 1982 
through 1987 to $600,000. The 



The Key Box 

CBasic 2 
Model II 



maximum estate tax rate will de- 
cline from the current 70 percent 
to 65 percent in 1982 and five 
percent in each of the subse- 
quent three years to 50 percent 
for 1985 and succeeding years. 

Perhaps the most significant 
provision is an unlimited marital 
deduction. You may leave your 
spouse any amount of property 
without tax— provided ail prop- 
erty qualifying for the marital de- 
duction remaining when the sur- 
vivor for the marital deduction 
dies will then be taxed (assum- 
ing, of course, that the second 
spouse has not remarried and 
left the estate to another surviv- 
ing spouse!). 

For the next several years, as 
the rates change, you must con- 
tend with a number of additional 
variables in the estate planning 
equation. With Estate Planner 
you can make assumptions and 



rapidly compute the effects 
upon estate tax of factors such 
as year of death, size of estate 
and use of the marital deduction. 
Forecast the size of your 
estate and determine your prob- 
able tax liabilities in future 
years. If you desire to carry life 
insurance for payment of estate 
taxes, the program enables you 
to determine your needs during 
the transitional years as the new 
limits go into effect. The de- 
tailed schedule headings are 
the same as those on form 706, 
the Federal Estate Tax Return. If 
you are preparing a return with 
data taken directly from your 
schedules, the program will 
compute the tax for you. 

Program Details 

The program was written for a 
TRS-80 Model II in CBasic 2. 
Whole word variables make the 



program easy to follow or con- 
vert to Microsoft Basic for TRS- 
DOS. Control variable Y choos- 
es the exemption, credit, maxi- 
mum estate tax rate and value at 
which the maximum rate is ef- 
fective for the computation 
year. The flags control screen 
and printer output. When 
PFLAG1 (for PRINT FLAG 1) is 
set, you get a screen summary 
of the items used to determine 
taxable estate. PFLAG2 con- 
trols printing of the credit for 
state death taxes. When 
PFLAG3 is set you get a print- 
out. The remaining two print 
control flags implement your 
choice of printout for details of 
assets and deductions if they 
were entered. 

You can enter assets or de- 
ductions individually, as a total, 
or work from the figure for tax- 
able estate. You can prepare a 



Estate Planning for Wife of John 


Client Computatior 


Year 1994 


Taxable Estate 




$1,000,000.00 




Total Tax 




$345,800.00 




Credit Against Tax 




$192,800.00 




Net Estate Tax 




$153,000.00 




State Death Tax Credit 




$33,200.00 




Estate Tax Less State Death Tax Credit 


$119,800.00 




Table 1 





Estate Planning for Wife of Eni Baude Computation Year 1998 

Taxable Estate $7,500,000.00 

Total Tax $3,525,800.00 

Credit Against Tax $192,800.00 

Net Estate Tax $3,333,000.00 

State Death Tax Credit $705,200.00 

Estate Tax Less State Death Tax Credit 



$2,627,800.00 



Table 3 



Estate Planning for Wife of John Client Computation Year 1994 



Taxable Estate 

Total Tax 

Credit Against Tax 

Net Estate Tax 

State Death Tax Credit 

Estate Tax Less State Death Tax Credit 

7a6/e 2 



$675,000.00 

$220,550.00 

$192,800.00 

$27,750.00 

$17,000.00 



$10,750.00 
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Estate Planning for Wife of Eni Baude Computation Year 1 

Taxable Estate $6,600,000.00 

Total Tax $3,075,800.00 

Credit Against Tax $192,800.00 

Net Estate Tax $2,883,000.00 

State Death Tax Credit $586,800.00 

Estate Tax Less State Death Tax Credit 



Table 4 



$2,296,200.00 



DISK SYSTEMS 



We have upgraded the TRS80 Model III 16k 
Computer to 48k with our own high quality 
memory chips and added our top of the line 
disk drive systems to make this your best buy 
of the season. These computers are 
functionally identical to the Radio Shack 
units sold at computer centers for $500 more. 
Only prime high quality components 
(described below) are used in the 
construction of these units. These computers 
have the same type double density disk drives 
as the original. They have the same storage 
capacity, are completely software compatible 
with TRSDOS, DOSPLUS, NEWDOS/80, 
LDOS, VTOS and many other disk operating 
systems, and are compatible with all BASIC 
applications software available for the Model 
III. 




fDISK CONTROLLER - TCS uses a high 
quality, double sided glass epoxy disk 
controller board that has GOLD plated edge 
connectors for reliable data connection. We 
use a reliable digital data separator design for 
the upmost in long life reliability. This means 
that adjustments NEVER need be made to the 
controller circuit for it to keep separating data 
correctly. This is the highest quality disk 
controller board available for the Model III. 




V, 



INSTRUCTIONS - For kit installations we 
provide complete instructions. 



POWER SUPPLY - Where many companies 
cut corners, TCS has chosen the finest 
switching power supply available. A 
switching power supply is much more 
efficient than linear supplies, which means 
that the TCS supply creates less heat than a 
linear supply, and it uses less energy. As a 
result, the internal parts of the Model III can 
operate cooler (the Model III has no cooling 
fan) without the need of an expensive internal 
cooling system. This power supply is the 
same commercial grade switcher that is used 
in the original more expensive Model III. 



MOUNTING HARDWARE & CABLING - The 

disk drive mounting hardware is aluminum 
sheet construction for easy installation and 
the disk mounting holes are slotted to allow 
adjustment of the drives for exact alignment. 
The power and data cables are all included 
and are plug compatible with each unit. No 
soldering or tools are needed for installation 
other than a screwdriver. 



KIT 1 Controller, power supply *otQ 

& Mounting Hardware ^OfH 

KIT 2 Kit 1 plus one Tandon * c nc 

Disk Drive ^DiJO 

KIT 3 Kit 1 plus two Tandon * Q - Q 

Disk Drives ^O IS* 

KIT 4 One Disk Drive only $219 

KIT 5 16k TCS Memory $49 

KIT 6 32k TCS Memory $79 



For complete assembled and tested Model III 
Systems using these kits see our other ad in 
this issue of this magazine. 



i 



COMPUTER - The Model III computer unit is 
an original unit which has extended BASIC 
and upper/lower case. It is packed in original 
factory packing, and is new and unused. Each 
computer, after having the drive systems and 
memory added, must pass a 24 hour burn-in 
test to assure maximum reliability. 




V, 



DISK DRIVES - TCS offers standard 5 1/4" 
disk drives from TANDON, the same people 
that make the original drives for the Model III. 
These drives have band head positioning for 
long life, and have a fast 5 millisecond track to 
track access time. This means that if LDOS or 
one of the other fine disk operating systems is 
used, the track access time may be adjusted 
to allow faster operation of the entire system. 
Some brands of drives (Siemens, older 
Shugart) have access times as slow as 40 
milliseconds, which can result in slow system 
speed especially when a considerable 
amount of random disk I/O is needed, such as 
programs manipulating large lists of data. 
This means that you should check track 
access capability before deciding on a 
particular drive. Each of our drives is tested 
fully for alignment, speed and proper 
operation before shipment. 



B-TREE Mailing List Disk $49.95 WHAT IS THE B-TREE? 



A mailing list application data base. Allows the maintenance of 
about 1500 to 2000 names on a single double density DATA disk. 
Display or print in order by name or by zipcode (allows 9digits). 
Print mailing labels by zip, name or dser selected category. Dup- 
licate names are allowed as well as optional data fields for each 
record. Also allows two line addresses for long addresses or 
company names and phone number. 

B-TREE Library Program Disk $39.95 

A complete library maintenance data base system which allows 
storage of the book title, author, category, and 2 other user 
selected fields. Over 2000 books can be maintained on one 
double density DATA disk. Average search time by author is 2 
seconds with 2000 records in file. Complete reports include. 
1)Alphabetical listing of file by author, 2)List all books of one 
author by title or alphabetical by title, 3)List all books in a 
selected category, etc. 

B-TREE Video Program Disk $39.95 

A complete data base for your video cassette collection. Al- 
lows entry of each program tne stars, Video I.D. number, starting 
counter number, category & length. Over 1000 programs with 
over 300 cassettes can be stored on one double density DATA 
disk Special reports include: 1)Printed Labels, 2)Alphabetical 
listing by stars. 3)Alpha Listing by Program, 4)Listings by cas- 
sette, 5)time left on each cassette report, etc. 



The above Series of programs have many exclusive features. 
Each application program stores a variety of data in a B-TREE 
Structured file. The B-Tree file organization method allows fast 
and efficient access to a large amount of data. With B-TREE, a 
whole disk of data can be accessed in alphabetic or numeric 
order without sorting or merging and all in a minimum of time. 
The user may add, delete, edit, list, print and redisplay the data 
without any file reorganization necessary. This is one of the 
BEST ANSWERS to data Storage problems on microprocessors. 
Fully implements the BINARY SEARCH TREE concepts 
including Insertion, delation, editing, & traversal. No sorting or 
long searches for data recovery is needed with B-TREE, yet even 
larger than memory files can 6e printed or displayed in sorted 
order without the necessity of sorts. Varing Key fields possible 
with duplicates allowed. These are BASIC programs (yet faster 
than many assembly language programs) with hundreds of 
REMark statements for easy modification or use of the modules 
in user programing. Also includes the best INKEY module ever 
written, allowing the fastest direct screen oriented input you 
have seen. All programs are non-scrolling with SCREEN oriented 
design and have all information needed on screen at all times. 
Single Key stroke command sequences and complete error 
trapping as well as controlled input of data to any field. Each 
package comes on a formatted diskette to run on TRSDOS 1.3, 
LDOS 5 1 , NEWDOS80 & DOSPLUS for TRS80 Model III computers 
and also for Model I using LDOS or DOSPLUS. Watch for new 
programs in our exclusive B-TREE series in upcoming months. 
MODEL II versions for TRSDOS and CP/M available soon with 
expanded capabilities. 



1. 



MEMORY - The memory used in the TCS 
Model III is the highest quality Japanese 
made memory available. In a recent test, 
Japanese memory was shown to be over 
twice as reliable as American made memory 
of the same type. We use only first line (no 
surplus) chips that are rated 200 
nanoseconds or faster. Each set of memory 
units installed by our technicians is tested 
using several of the best commercial memory 
test programs available. These tests last for a 
period of over 24 hours. 



For fast, efficient service. Heart Of we can air freignt from Dallas 

TEXAS COMPUTER SYSTEMS 

P.O. Box 1327 Arlington, Texas 76004-1327 

WToll Free Number 800 433-5184 
*** Texas Residents 817 274-5625 
Dallas Metroplex 265-1524 



Payment: Money order, cashiers check, 
certified check. Prices above reflect 3% cash 
discount. Call for VISA/MC prices 



• Prices subject to change any time. 
' No tax out-of-state. Texans add 5%. 
' Many items shipped FREE SCall. 



raBRHaasH 
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■See List of Advertisers on page 402 
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Estate Planning for Eni Baude Computation Year 1988 
Taxable Estate 
Total Tax 

Credit Against Tax 
Net Estate Tax 



$2,500,000.00 

$1,025,800.00 

$192,800.00 

$833,000.00 



State Death Tax Credit $138,800.00 

Estate Tax Less State Death Tax Credit 

Table 5. 



$694,200.00 



Estate Planning for Wife of Eni Baude Computation Year 1998 

Taxable Estate $3,750,000.00 

Total Tax $1,650,800.00 

Credit Against Tax $192,800.00 

Net Estate Tax $1,458,000.00 

State Death Tax Credit $144,400.00 

Estate Tax Less State Death Tax Credit 



$1,313,600.00 



Program Listing 1 



rem 

REM EST 
REM BY 
REM WRI 

REM 

£$-"»«* 
DS-"$$* 
DIM A$ ( 
A$(l)-" 
A$(2)«" 
A$(4)-" 
A$(5)-- 
A$(6)«" 
A$<7)-" 
A$(8)=" 
A$(9)«" 
A $ ( 1 1 ) - 
A$(12)- 
A$(13)« 
A$(14)- 
A$(15)= 
A$( 16) = 
A$(17)- 
A $ ( 1 8 ) = 
A$(19)= 



ATE TAX PLANNER 
CHARLES R. PERELMAN 
TTEN IN CBASIC2 



It ,»#»,»#» .##- 
20) 

PLEASE PRESS 
SCHEDULE A - 
SCHEDULE C - 
SCHEDULE D - 
SCHEDULE E - 
SCHEDULE F - 
SCHEDULE G - 
SCHEDULE H - 
"SCHEDULE J - 
"SCHEDULE K - 
"SCHEDULE K - 
"SCHEDULE L - 
"SCHEDULE L - 
"SCHEDULE M - 
"SCHEDULE - 
"ENTER AMOUNT 
"ENTER FOR 



NUMBER FOR ACTION DESIRED:" 

REAL ESTATE ": A$ ( 3 ) -"SCHEDULE B - STOCKS AND BONDS " 

MORTGAGES, NOTES AND CASH " 

INSURANCE ON DECEDENTS LIFE " 

JOINTLY OWNED PROPERTY " 

OTHER MISCELLANEOUS PROPERTY " 

TRANSFERS DURING DECEDENT'S LIFE " 

POWERS OF APPOINTMENT ": A$ ( 10 ) -"SCHEDULE I - ANNUITIES 

FUNERAL AND ADMINISTRATION EXPENSES " 

DEBTS OF DECEDENT " 

MORTGAGES AND LIENS " 

NET LOSSES DURING ADMINISTRATION " 

EXPENSES OF PROPERTY NOT SUBJECT TO CLAIMS " 

MARITAL DEDUCTION " 

CHARITABLE DEDUCTION " 

FOR EACH SCHEDULE WITHOUT COMMAS." 
NONE. " 



3 PRINT CHR$(12) .-PRINT ES;" 
INPUT"WHAT IS THE NAME OF 
5 INPUT" IN WHAT YEAR IS TAX 
IF Z<-0 THEN PRINT:PRINT\ 
"»»» THIS PROGRAM IS ONLY FO 
FOR X=l TO 500:NEXT:PRINT CH 
IF Z-l THEN Y-l:EXEMPTION=22 
IF Z=2 THEN Y=2:EXEMPTION=27 
IF Z-3 THEN Y=3:EXEMPTION=32 
IF Z-4 THEN Y=4: EXEMPTION=40 
IF Z-5 THEN Y=5:EXEMPTION=50 
IF Z>5 THEN Y-6:EXEMPTION=60 



ESTATE TAX PLANNER " ; E$ : PRINT : PRINT 
YOUR CLIENT? ";LINE CLIENT$ 
TO BE DETERMINED? " ; Y EAR : Z- YEAR- 1 98 1 



1981. PLEASE REENTER. 



R YEARS AFTER 
R$(12):G0T0 5 

5 000: CREDIT- 6 2 800 : MAX- 400 00 00 : MAX. RATE 
5000: CREDIT- 7 9 300: MAX- 3 500000 .-MAX. RATE 
5000:CREDIT-96300:MAX-3000000:MAX.RATE . „ . 
0000 : CREDIT- 12 18 00 : MAX- 2 5 00000 : MAX. RATE-. 50 
0000 : CREDIT- 15 5800 : MAX-2500000 : MAX. RATE-. 5 
0000: CREDIT- 192800: MAX- 2500000: MAX. RATE-. 50 

Program continues 



.65 
.60 
.55 



Table 6. 



printout for presentation to 
clients. 

CHR$(12) clears the screen. 
CONCHAR% is similar to IN- 
KEY$ in Microsoft Basic, except 
it returns the ASCII value of the 
keyboard entry. CHR$(127) 
erases the prior character and 
clears the number of your 
choice from the screen. [.PRINT- 
ER sends all Print commands to 
the printer rather than to the 
screen. CONSOLE reactivates 
the screen. 

After entering items on the 
detailed schedules, you can re- 
start this portion of the program 
if you made a mistake. An error 
trap is provided if the taxable 
estate does not exceed the 
threshold for estate tax in the 
computation year. 

If your estate is large enough 
to be subject to the maximum 
rate, line 520 routes the program 
to lines 2100-2400 for tax com- 
putation. When I examined the 
tax tables, I found that brackets 
were $250,000 or $500,000 apart. 
Therefore, when you have an 
estate subject to a rate less than 
the maximum, you will divide by 



TRS - 80 (1 > Model I 
or Model III 

48K, 2 disks 
TRSDOS (1 > or LDOS (2 > 
formats available 

PRICE $149.50 

TRS - 80 (1 > Model II 

64K, 2 disks 
TRSDOS' 11 format 
expanded version 

PRICE $224.50 



T-PACK: AUTOMATED PROJECT CHARTS 

This powerful, flexible program will save you time in project planning, 
scheduling, tracking and reporting. You need no prior Gantt experience; 
screen prompts guide you all the way. Scratchpad entry lets you keep 
track of unassigned tasks while structuring your project. Automatic 
project organization. Fast edit lets you correct errors, modify schedules, 
explore alternatives. Saves alternative plans from original database. 
Helps you visualize the project at all stages. 

Large capacity allows up to 100 tasks per phase and multiple phases per 
project, each phase with its own chart. Hard copy to parallel or serial 
printers. Scroll to any portion of any chart and print selected region. 
Charts show projected, elapsed and overrun times. Get professional 
results quickly and easily with Libra Lab's Gantt-Pack. 




Libra Laboratories, Inc. 
495 Main Street 
Metuchen, N.J. 08840 

(201) 494-2224 



Gantt-Pack © Libra Laboratories, Inc. 1981 

(1) TRS-80 and TRSDOS Trademarks of Tandy Corp. 

(2) LDOS Trademark of Logical Systems, Inc. 
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ARC 




ENTER 




4 



j 



i 



ALIEN DEFENSE 

e 1981 Soft Sector Mkt. 

Mod I or III Tape, 16K 

$19.95 
Mod I or III Disk", 32K 

$24.95 

Only Mod III version has 
Extended Graphics 



SUPER VADERS 

e 1981 Soft Sector Mkt. 

Mod I or III Tape $19.95 
Mod I Disk $24.95 
Mod III Disk $24.95 

-2 Player- 10 Levels - 
Ask for upgrade info for 

Waders plus & 
trs-super invaders 



SCARFMAN 

'1981 Cornsoft Group 
Mod I & III Tape 

$15.95 
Mod I & III Disk 

$19.95 



While Supply Lasts! 

ROBOT ATTACK 

by Big 5 
Mod I & III Tape 

$15.95 
Mod I & III Disk 

$19.95 




STAR FIGHTER 

by Adventure 

Mod I & III Tape 

$24.95 

Mod I Disk 

$29.95 



ATTACK FORCE 

by Big 5 

Mod I & III Tape 

$15.95 

Mod I & III Disk* 



While Supply Lasts! | 

GALAXY INVASION 

by Big 5 

Mod I & III Tape 

$15.95 

Mod I & III* Disk 




METEOR 
MISSION 2 

by Big 5 
Mod I & III Tape 

$15.95 
Mod I & III Disk* 

$19.95 



VOYAGE OF 
VALKYRIE 

Mod I & III Tape 

$34.95 
Mod I & III Disk 

$39.95 



(AIDERS 

Mod I & III Tape 
$24.95 



LUNAR LANDER 

by Adventure 

Mod I & III Tape 

$15.95 
Mod I & III Disk 

$20.95 



FORTRESS 

The Fastest Action 
Game of Them All! 

®1981 Soft Sector Mkt. 

Mod I & III Tape 

$15.95 
Mod I or III* Disk 

$19.95 

See following page 
for picture. 



A 



*J SPECIAL DEAL - This Month Only 

I Purchase 1 Game - List Price / Purchase 2 Games - Deduct 10% 

■*S_ Purchase 3 Games - Deduct 15% / Purchase 5 Games - Deduct 20% 



- SPECIAL DEAL applies only to games purchased from this ad. at one time, and at list price - 



"These Disk versions save higr 



COD- certified check. M O ex cash only. Most orders 
shipped next day All orders must have shipping included. 
Please odd 2% or S2.50. whichever is higher tor shipping. 
Michigan residents, please add 4% tax. Md extra S1 50 for 
COD Personal checks take 3 weeks to clear Out of the 
country orders add S10.00 extra shipping 
' TRS-80 is a product of Radio Shack, div of the Tandy Corp 



SOFT SECTOR MARKETING, 

INCORPORATED 
6250 Middlebelt «Garden City, Michigan 48135 
Order Line 800-521-6504 
Michigan Orders & Questions 313-425-4020 




The Quality Continues 



Program continued 

10 PRINT CHR§(12) REM ASSET ENTRY ROUTINE 

PRINT:PRINT A$(l) :PFLAG1 = 0: P FLAG 2 = : P FLAG 3=0 : P FLAG 4 = : P FLAG 5-0 

PRINT"!. ENTER DETAILED ASSET INFORMATION" 

PRINT"2. ENTER SUMMARY FIGURE FOR ASSETS" 

PRINT"3. ENTER TOTAL TAXABLE ESTATE" 

15 Y2-CONCHAR% 

IF Y%-(32) THEN 15 

IF YX<(49) OR Y%>(51) THEN PRINT CHR$(127):\ 

PRINT"PRESS NUMBER FROM 1 TO 3 PLEASE":FOR X- 1 TO 5 00 : NEXT : GOTO 10 
PRINT CHR$(127) :CHOICE«Y%-48:0N CHOICE GOTO 100,200,500 

20 PRINT CHRS ( 12) : PRINT A$(l) REM DEDUCTIONS ENTRY MENU 
PRINT"1. ENTER DETAILED DEDUCTIONS DATA- 
PRINT'^. ENTER SUMMARY FIGURE FOR DEDUCTIONS- 
COS UB 15 00 
IF ERROR. FLAG-1 THEN 20 



ON CHOICE GOTO 300,400 

100 PRINT CHR$(12) : PFLAG 1 = 1 : P FLAG4- 1 
PRINT A$(ia):PRINT A$(19):PRINT 



REM DETAILED ASSET SCHEDULES 



PRINT A$(2) ;TAB(50) 

PRINT A$(4);TAB(50) 

PRINT A$ (6) ;TAB (50) 

PRINT A$(8);TAB(50) 

PRINT A$(9) ;TAB(50) 

PRINT AS (10) ;TAB(50) 



INPUT " $";RL.EST:PRINT AS ( 3 ) ; TAB ( 50 ) ; : INPUT " $";STOCKS 
INPUT " S';CASH:PRINT A$ ( 5 ) ; TAB ( 50) ; : INPUT " $";INSURANCE 
INPUT " S" ; JOINT:PRINT A$ ( 7 ) ; TAB ( 50 ) ; : INPUT " $";MISC 

INPUT " $-;TRANSFERS 

INPUT " S"?FOWERS 

:INPUT " S";ANNUITIES 
TOT.ASSETS-RL.EST+STOCKS+CASH+INSURANCE+JOINT+MISC+TRANSFERS+POWERS+ANNUITIES 
PRINT: PRINT"TOTAL ASSETS= ";:PRINT USING D$ ; TOT . ASSETS 

30 PRINT"IF SCHEDULE ENTRIES ARE CORRECT, PRESS 1 TO CONTINUE. PRESS 2 TO " 
PRINT-START DETAILED SCHEDULE AGAIN." 
GOSUB 1500 

IF ERROR. FLAG=1 THEN 30 
ON CHOICE GOTO 20, 100 



200 INPUT"WHAT IS TOTAL VALUE OF ASSETS 
GOTO 20 



S" ; TOT .ASSETS : PFLAG1-1 : P FLAG 4 = 0: \ 



300 PRINT CHR$ (12) :PFLAG1-1:PFLAG5-1 REM DETAILED DEDUCTION SCHEDULES 
PRINT AS(18):PRINT A$ ( 1 9 ): PRINT : PRINT AS ( 1 1 ) ; TAB ( 60 ) ; : INPUT " $";FUN.ADM 



PRINT A$( 12) ;TAB (60) ; : INPUT 
PRINT A$(13);TAB(60); :INPUT 
PRINT AS(14) ;TAB(60) ;: INPUT 
PRINT A$(15) ;TAB(60) ; :INPUT 
PRINT A$(16) ;TAB(60); :INPUT 
PRINT A$(17);TAB(60) ;: INPUT 



$" ; DEBTS 

S" {MORTGAGES 

S" ; loss lis 

S"; EXPENSES 

S" ;MARITAL 

$" jCHARITABLE 
TOT. D ED = FUN . ADM+D EBT S+MORTGAGES + LOS SE S + EXP EN SE S+MARITAL + CHAR 1 TABLE 
PRINT:PRINT"TOTAL DEDUCTIONS - ";:PRINT USING D$;TOT.DED 
40 PRINT-IF SCHEDULE ENTRIES ARE CORRECT PRESS 1, TO CONTINUE." 

PRINT"PRESS 2 TO START DETAILED SCHEDULE AGAIN." 
GOSUB 15UU 

Ir ERROR. FLAG- 1 THEN 40 
TAXABLE. EST=TOT.ASSETS-TOT.DED 
ON CHOICE GOTO 510,300 

400 INPUT"WHAT IS TOTAL VALUE OF DEDUCTIONS? $ " ; TOT .DED : PFLAG1 = 1 : \ 

P FLAG 5-0: TAXABLE . EST-TOT . ASSETS-TOT . DED : GOTO 5 10 

500 INPUT-WHAT IS VALUE OF TAXABLE ESTATE? $"; TAXABLE . EST 

FFLAG4-0:PFLAG5=0 

510 IF TAXABLE. EST-EXEMPTI ON < =0 THEN PRINT "TOTAL ASSETS = ";TAB(50);:\ 

PRINT USING DS;TOT.ASSETS:PRINT"TOTAL DEDUCTIONS = ";TAB(50);:\ 

PRINT USING D$ ; TOT . DED : PRINT " TAXABLE ESTATE = "; TAB ( 50 );: PRINT USING 

TAXABLE. EST:PRINT"EXEMPTION EQUIVALENT- "; TAB ( 50 );: PRINT USING DS;\ 

EXEMPTION:PRINT:PRINT- »«»N0 TAX. TAXABLE ESTATE DOES NOT EXCEED CREDI 

PRINT:GOSUB 1 600 : ON ' CHOICE GOTO 3,5000 
520 IF TAXABLE. EST>-MAX THEN W= ( TAXABLE . EST-MAX ) "MAX . RATE : \ 

ON Y GOSUB 2100,2200,2300,2400,2400,2400 
IF TAXABLE. EST>EXEMPTION AND TAXABLE . EST<MAX THEN V-INT ( TAXAB LE . EST / 25 0000 ) : \ 
S-250000:ON V-t-1 GOSUB 3 1 00 , 3200 , 3300 , 3400 , 3500 , 3600 , 3 7 00 , 3800 , 3900 , 4000 , \ 
4100,4200,4300,4400,4500,4600 
600 PRINT:PRINT AS ( 1 ): PRINT" 1 . COMPUTE STATE DEATH TAX CRED IT .": PRINT \ 
"2. COMPLETE COMPUTATION WITHOUT STATE TAX CREDIT." 
GOSUB i 3 

IF ERROR. FLAG-] THEN 600 
PRINT CHR$(12):ON CHOICE GOTO 4700,700 

700 PRINT TAB(20) ; "ESTATE PLANNING FOR ";CLIENT$ 
PRINT TAB (20) ; "COMPUTATION YEAR ";YEAR:PRINT 
IF PFLAG1-1 THEN PRINT"TOTAL AS SET S- " ; TAB ( 30 ) ; : PRINT USING DS ; TOT .ASSET S 
IF PFLAG1-1 THEN PRINT-TOTAL DEDUCTION S-" ; TAB ( 30 );: PRINT USING D$;\ 
TOT .DED :PFLAGl-0 
PRINT:PRINT"TAXABLE ESTATE-" ;TAB ( 30 );: PRINT USING DS ; TAXABLE . EST 
PRINT:PRINT"TOTAL TAX-- ; TAB ( 30 ) ; : P RINT USING D$;TOTAL.TAX 
PRINT-CREDIT AGAINST TAX-" ; TAB ( 30 );: PRINT USING DS;CREDIT 
PRINT:PRINT"NET ESTATE TAX-" ; TAB ( 30 ) ; : P RI NT USING D$ ; TOTAL . TAX-CREDIT 
IF PFLAG2-0 THEN PRINT TAB ( 3 1 );"— -- = - = «■= = = "" 
IF PFLAG2-1 THEN PRINT : PRINT" STATE DEATH TAX CRED IT- " ; TAB ( 30 ) ; : \ 

Program continues 



D$;\ 

T ***": \ 



$250,000 before computing tax 
with lines 3100-4600. This tech- 
nique simplified the coding. 
When you compute the state 
death tax credit at line 4700, set- 
ting U = 100000 saves space and 
typing time. 

Planning Examples 

The first example demon- 
strates the effectiveness of a 
"tax exemption" trust. Every 
estate plan for husband and 
wife should consider this de- 
vice. Without any planning, the 
use of the exemption to avoid 
tax on the first death is lost. By 
placing the maximum amount 
which will escape tax without 
use of the marital deduction into 
the "tax exemption" trust on the 
first death, this amount escapes 
estate tax completely on the 
death of both husband and wife. 
The surviving spouse may re- 
ceive all income. If he or she is 
the trustee, subject to required 
standards, the survivor may con- 
trol investment of funds and 
withdraw principal needed for 
support. 

Example 1: John Client dies in 
1984 with a taxable estate of 
$1,000,000. He leaves all proper- 
ty to his wife. There is no tax on 
John's death since all of the 
property qualifies for the marital 
deduction. His wife dies 10 
years later with an estate of 
$1,000,000. Table 1 is the tax 
upon death of the wife. If a "tax 
exemption" trust were used on 
John's death, $325,000 would go 
into that trust. His wife's taxable 
estate at her later death would 
then be $675,000 (assuming no 
growth). Table 2 shows that the 
tax is $109,050 lower than with- 
out the trust. 

The second example illu- 
strates further sophistication 
for a larger estate. In addition to 
the use of a "tax exemption" 
trust, a "qualified terminable in- 
terest" (QTI or "cutie") trust is 
used. The QTI trust enables you 
to elect upon the first death 
whether to pay tax on the money 
in the QTI trust or to postpone 
that tax until the second death. 
With Estate Planner you get an 
immediate printout of the re- 
sults of implementing this 
estate planning option. 

Example 2: Joe Businessman 
leaves an estate of $5,000,000 in 
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ade Simulations 



The first machine language arcade game written to use 
all those NEW SPECIAL FEATURES of your MOD III! 




ALIEN 




Copyright® 1981 Soft Sector Marketing, Inc. 
Written by Larry Ashmun 

Cassette $19.95 

Disk $24.95 

Cassette version doesn't go to disk. 
Only disk version talks and saves high scores. 

and III 

As you fly over a mountainous terrain the aliens are being grabbed from the ground 
below and are taken to the sky. 



Program continued 

PRINT USING D$;STATE.CR:PRINT"ESTATE TAX LESS STATE DEATH. TAX CREDIT=";\ 
TAB(50) ; :PRINT USING D$ ; TOTAL . TAX-CREDIT-STATE . CR: \ 
PRINT TAB(52) ;•• = --- = = = ------=" 

IF PFLAG3-1 THEN PFLAG3-0 : CONSOLE: GOTO 900: 

800 PRINT:PRINT"TO PRINT SUMMARY, PLEASE TURN ON PRINTER AND PRESS 1." 

FRINT"TO CONTINUE WITHOUT PRINTOUT, PLEASE PRESS 2." 

G SUB I J 

IF ERROR. FLAG-1 THEN 800 

ON CHOICE GOTO 810,900 

810 LPRINTER WIDTH 80 : P FLAG 3 = 1 : GOTO 700 



900 IF PFLAG4-0 AND PFLAG5-0 T 

"1. PRINT DETAILED SCHEDUL 

PRINT"2. CONTINUE PROGRAM 

GOSUB 1500 

IF ERROR. FLAG-1 THEN 900 
ON CHOICE GOTO 910,950 
910 IF PFLAG4-0 THEN GOTO 920 
PRINT TAB (32) ; "ASSET SCHEDULE- 
PRINT A$(2) ;TAB(50) ; :PRINT USI 
PRINT USING D$; STOCKS: PRINT AS 
TAB(50) ; :PRINT USING DS;INSURA 
PRINT AS(7);TAB(50); :PRINT USI 
TRANSFERS: PRINT A$ ( 9 ) ; TAB (50) ; 
PRINT USING D$;ANNUITIES : PRINT 
920 IF PFLAG5-0 THEN C0NS0LE:G 
TAB(32) ; :PRINT"DEDUCTION SCHED 
FUN .ADM: PRINT A$ ( 1 2 ) ; TAB ( 6 ) ; : 
PRINT USING DS ;MORTGAGES : PRINT 
A$(15) ;TAB(60) ; :PRINT USING D$ 
MARITAL:PRINT A$ ( 1 7 ) ; TAB ( 60) ; : 
PRINT'TOTAL DEDUCTIONS- ";:PRI 
950 GOSUB 1600:ON CHOICE GOTO 



HEN GOTO 950 ELSE PRINT A$(1):PRINT\ 

ES. (PLEASE TURN ON PRINTER)":\ 



ELSE LPRINTER WIDTH 80 : \ 
: PRINT 

NG D$;RL.EST:PRINT A$ ( 3 ) ; TAB ( 50 ) ; : \ 
(4) ;TAB(50) ; : PRINT USING D$ ; GASH: PRINT A$ ( 5 
NCE:PRINT A? ( 6 ) ; TAB ( 50 ) ; : PRINT USING DS;JOI 
NG D$;MISC:PRINT A$ ( 8 ) ; TAB ( 50) ; : PRINT USING 
:PRINT USING DS ; POWERS : PRINT A$ ( 10 ) ; TAB ( 50 ) 
:PRINT' - TOTAL ASSETS" ";:PRINT USING D$;T0T. 
OTO 950 ELSE LPRINTER WIDTH 80 : PRINT : PRINT \ 
ULE":PRINT AS (11) ;TAB(60) ; :PRINT USING D$;\ 
PRINT USING D$ ;DEBTS : PRINT A$ ( 1 3 ) ; TAB ( 60 ) ; : 
AS(14) ;TAB(60) ; :PRINT USING D$ ; LOSSES : PRIN 
;EXPENSES : PRINT A$ ( 16 ) ; TAB ( 60 ) ; : PRINT USING 
PRINT USING D$;CHARITABLE 
NT USING D$;TOT.DED:CONSOLE 
3,5000 



);\ 
NT: \ 
D$;\ 
;:\ 

ASSETS 



\ 

T\ 
D$;\ 



1500 Y%-C0NCHAR% 

IF Y%-(32) THEN 1500 

IF Y%<(49) OR Y%>(50) THEN PRINT CHR$ ( 1 2 7 ) : ERROR . FLAG- 1 : \ 

PRINT"PRESS NUMBER 1 OR 2 PLEASE":FOR X= 1 TO 500 : NEXT : RETURN 
PRINT CHRS (127) : CHOI CE=Y%-4 8: ERROR . FLAG- : RETURN 
1600 PRINT AS( 1 ) :PRINT" 1 . DO ANOTHER COMPUTATION .": PRINT " 2 . END PROGRAM. 
GOSUB 15 00 

IF ERROR. FLAG-1 THEN 1600 
RE1 URN 

2100 TOTAL. TAX-W+1880800:RETURN 
2200 TOTAL. TAX-W+15 75800 : RETURN 
2300 TOTAL. TAX-W+1290800:RETURN 
2400 TOTAL. TAX-W+ 1 2580 : RETURN 



3 1 
J200 
3 SOU 
34 
3 ■> 
3 6 00 
3 7 00 

3 6 
3900 
40 00 

4 : o o 

4200 

« U 
4400 
41)00 

4 6 



TOTAL 
TOTAL 
TOTAL 
TOTAL. 

T T A L 
T T A L . 
TOTAL 

TOTAL. 

TOTAL 

TOTAL 

TOTAL 

TOTAL 

TOTAL 

TOTAL, 

TOTAL 

TOTAL. 



TAX 

TAX 
TAX 
T A X . 
TAX 
TAX' 
TAX 
TAX 
T A X 
TAX 
TAX 
TAX. 
TAX' 
TAX- 
TAX 
TAX' 



=62500 
' 7 8 
'15 5 8 
'24830 
■34580 
•44830 
'55580 
'66830 
■78080 
■90330 
'10 2 5 8 

' i i '> o :> 

=12 9 8 
■14333 

'15758 
'17 2 8 3 



+(TAXABLE.E 
♦(TAXABLE. E 
0+( TAXABLE. 
0+(TAXABLE. 
0+(TAXABLE. 
Ot- (TAXABLE . 
0+(TAXABLE. 
0+(TAXABLE. 
0+( TAXABLE. 
0+(TAXABLE. 
00+(TAXABLE 
00+(TAXABLE 
00+(TAXABLE 
00+(TAXABLE 
00+(TAXABLE 
00+(TAXABLE 



S T -22 
ST-S) 

E s r - 2 
E S T - 3 
EST- 4 
E S T - 5 
EST-6 
E S T - 1 
EST-8 
EST-9 
. E S T - 
. EST- 
.EST- 
. EST- 
. EST- 
.EST- 



5000) 
".34: 
»S)«. 
»S)». 
«S)-. 
«S)«. 
"S>«. 
*S)«. 
*S)-. 
«S)«. 
1 « S ) 
11"S) 
12«S) 
13-S) 
14*S) 
15»S) 



».32:RE 

RETURN 
3 7 : RET I 

3 9 ; R E T U 

4 1 : R E T U 
4 3 : RETU 
4 5 : R E T U 
4 5 : R F, T U 
49 : RETU 
4 9 : R E T U 
«.53:RE 
».53:RE 
*.57:RE 
» . 57 :RE 
» . 61 :RE 
" . 6 1 : R E 



TURN 

RN 
RN 
RN 
RN 
RN 
RN 
RN 
RN 

TURN 
TURN 
TURN 
TURN 
TURN 
TURN 



4 7 00 U- 100000: P FLAG 2=1 : T-TAXABLE . EST 

IF T<3»U THEN STATE. CR= 1 200-t- . 024" (T 

IF T>-3«U AND T<5«U THEN STATE. CR-3 

IF T>-5"U AND T<7*U THEN STATE. CR-1 

IF T>-7"U AND T<9-U THEN STATE. CR-1 

IF T>=9"U AND T<11"U THEN STATE. CR- 

IF T>=11»U AND T<16»U THEN STATE. CR 

IF T>-16»U AND T<21«U THEN STATE. CR 

IF T>-21»U AND T<26"U THEN STATE. CR 

IF T>=26"U AND T<3 1"U THEN STATE. CR 

IF T>-31*U AND T<36»U THEN STATE. CR 

IF T>-36-U AND T<41«U THEN STATE. CR 

IF T>-41*U AND T<51»U THEN STATE. CR 

IF T>-51*U AND T<61»U THEN STATE. CR 

IF T>=61"U AND T<71"U THEN STATE. CR 

IF T>»71*U AND K81-U THEN STATE. CR 

If T>=81«U AND T<91»U THEN STATE. CR 

IF T>«91*U AND T<101*U THEN STATE. C 

IF T>-101»U THEN STATE .CR-1082800+( 

IF STATE .CR> (TOTAL. TAX-CREDIT) THEN 
GOTO 700 



REM STATE DEATH TAX CREDIT COMP 
-2«U) 

60U+( .032"(T-3"U) ) 
00OO+( .04" (T-5*U) ) 
8000+(.048"(T-7«U) ) 
276O0+( .056«(T-9'<U) ) 
=38800+(.O64«(T-ll-U)) 
-7 0800+ ( .07 2»(T-16«U)) 
-106800+(.08»(T-21-U) ) 
-1 46800+ ( .088«(T-26»0)) 

1 9 0800+ (. 096 -(T-31*U) ) 

1 28800+ ( . 104"(T-36-U)) 
=29080 0+( . 1 12" (T-41-U)) 
-40 2800+ ( .12»(T-51"U)) 

52280 0+(.128»(T-61"U)) 
=650800+(.136-(T-7 1»U)) 
- 786800+ (. 144»(T-81»U) ) 
R=930800+(.152-(T-9 1»U)) 
.16»(T-101»U) ) 

STATE . CR- (TOTAL . TAX-CREDIT) 



5000 PRINT"' 



END OF PROGRAM 



•" : STOP 



1988 to his wife. She dies 10 
years later and the value of the 
property has increased 50 per- 
cent to $7,500,000. There will be 
no estate tax on Joe's death. 
Table 3 shows the tax of 
$2,627,800 on his wife's death. If 
a "tax exemption" trust is used, 
the tax on her death is deter- 
mined in Table 4. (Trust is now 
$900,000 and wife's estate 
$6,600,000.) The trust has saved 
$331,600 for the family. Total 
tax: $2,296,200. 

Assume Joe and his wife plan 
with both a "tax exemption" 
trust and a "QTI" trust. The QTI 
trust receives half of Joe's 
estate, less the amount in the 
"tax exemption" trust ($2,500, 
000-$600,000 = $1,900,000). 
Joe's wife may elect to pay a tax 
of $694,200 on Joe's death 
(Table 5), by not qualifying the 
QTI trust for the marital exemp- 
tion. The tax on her death will be 
$1,313,600. (Table 6). Total tax 
on both deaths: $2,007,800. The 
family has apparently saved an 
additional $288,400 over the use 
of the tax exemption trust alone. 

However, things are not al- 
ways what they seem. Payment 
of tax on Joe's death deprived 
his wife of $694,000 in cash. In- 
vested at the very conservative 
rate of 6 percent per annum, the 
before-tax income on these 
funds during the ten years will 
exceed substantially the estate 
tax savings. Therefore, his wife 
elects upon Joe's death not to 
have the QTI trust taxed. 

If you are a professional 
estate planner, accountant, in- 
surance salesman, attorney or 
trust officer, this program dem- 
onstrates dramatically to your 
clients the savings to be realized 
with proper planning. Before the 
estate planning conference, if 
you know the approximate size 
of the estate, run the computa- 
tions for both tax and QTI trusts. 
For the successful business or 
professional person, the pro- 
gram should convince you to up- 
date your estate plan to take ad- 
vantage of the new provisions in 
the estate tax law.H 

Charles R. Perelman is an at- 
torney/CPA who specializes in 
estate planning and other tax 
matters in Beverly Hills, CA. 
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SUPER UTILITY PLUS 

Copyright =1981 Breeze Computing. Inc. SUPER UTILITY PLUS 
wos written by Kim Watt and is the most powerful program of its 
kind on the market at this time. This program is a machine 
language, stand alone program that has its own I/O routines, 
does not use any ROM or DOS calls, and works on SINGLE or 
DOUBLE DENSITY systems Super Utility Plus performs such a 
wide range of varied tasks that it may trulybe called "The King 
of Utilities" It is not required that the disk be in any drive after 
initialization of the program and user may custom configure 
the program to suit his individual system requirements. 
IAP does everything your present "zapping" utility does plus 
many additional enhancements It will operate on SINGLE or 
DOUBLE DENSITY systems and will work with most major opera- 
ting systems that are presently on the market The screen 
printout on Zap displays one sector at a time m HEX and ASCII 
(as other "zapping" utilities), but also tells user the true and 
relative track and whether the disk in IBM format or not. Zap 
also has a search routine that will locate the highest or lowest 
configured track on the disk and others that will search the 
disk for byte list. ASCII string, word list, or even encrlpted code 
Zap also allows you to display disk sectors compare disk 
sectors, copy sector data zero disk sectors, copy disk sectors, 
reverse sector data, sector searches, read ID address marks. Or 
alter data address marks 

PURGE nasafull screen editing kill control thatallows you tokill 
files by positioning cursor and pressing one key. Also. Purge has 
several sub-utilities that allow you to zero out unused directory 
entries or zero out unused disk granules In addition, user may 
kill files by naming the common category of the files, and may 
compute existing passwords, change the disk name, date, 
passwords, auto command, or even file parameters (name, 
passwords, protection levels) Lastly. Purge containsa complete 
disk directory that indicates all active and non-active files on 
the disk 

FORMAT is a utility that allows the user to format a disk with, 
standard format, format without erasing existing data special 
format (custom format your disk most any way you want it), 
build a format track and optionally write it back to any track 
on your disk, and even contains a software bulk erase utility. 
lie total formatting capaci ities oftt is program are just about 
UN'. MITED and you may even reformat over a disk or add 
tracks to an existing disk without destroying existing disk data 
DISK COPY will copy most any standard piisk, with or without 
formatting. The Special Disk Copy enables the user to make a 
backup of most TRS-80 S readable disks that are presently on 
the market, regardless of any efforts that have been made to 
protect them from being "backed up". (NOTE This progra-n 
WILL NOT copy itself). This program's only intended use isforyoi 
to make backups of your legally purchased programs. Please 
DO NOT use this utility to make"bootleg copies" for others as 
authors of quality programs deser their royalties. 
TAPE COPY enables the user to perform a wide variety of 
octions that include the ability to read, write, or verify tapes 
and even includes a Bit by Bity copying routine that will back 
up most ANY TRS-80* readable tape regardless of protectio- 
attempts mode by authors. This utility also is for your own use 
only. 

DISK REPAIR allows you to automatically repair the HIT and 
GAT sectors, and will automatically repair a 8oot. This utility 
also does a complete Directory Check and will advise you of 
errors that exist, in addition, this utility allows the user to recover 
killed files(if the file was killed by this utility or byNEWDOS), read 
protect or un-read protect the directory, move it to a different 
location on the disk, or clear unused entries. Lastly, this utility 
advises you of all inactive file thot are on the disk 
MEMORY supplies the ability to display, move, test, compare, 
zero, exchange, input or output a byte to any port, exchange, 
jump to, reverse, fill string search, or even load/write and entire 
tracx 01 sectors •o/frorn nemor/. 

FILE contains the abilities to display file sectors, compare flies, 
copy files, disk directory, free space, file locations, drive status 
create files, and clear files from disk. These utilities give you a 
wide range of powerful complete reorganization of your entire 
disk with all the files re-written in their most contigious order. 
CONFIGURE SYSTEM g vos you the ability to custom configure 
Super Utility Plus to your system You may select single or 
double density, in any combination, 5" drives, select your 
operating system boot of your choice, upper or lower case, 
high speed clock, single or double headed drives, or even 
configure your printer 

Now for Mod I or III $74.95 

Sold or- pro-ecfed nedia 



BOS! 



rhe 

BASIC 

OPERATED 

SINGLE 

STEPPER 



s 1981 Soft Sector Marketing, Inc. 

for Moo III 

This Machine Language utility is designed to aid 

you in creating and debugging programs written 
in BASIC, The utility allows you to trace the 

program flow, to single step the BASIC program 
tc observe the conditions of yariables during 
program execution, and to push your basic 
program on the stack during program develop- 

met. The utility is known tc operate with Mod III, 

rRS-DOSorMod III Rom BASIC 

Cassette 'goes to disk) $18.95 



"1981 Softer Sector Marketing, Inc. 
This program will load most any TRS-80 500 Baud 
system tape (standard Mod i speed) and lead if 
into memory and save it at either 500 or 1500 
BauaontheModill NOKNOWLEDGEOFMACHINE 
LANGUAGE NEEDED. Now it gives you a way to 
back up a machine language program that 
loads at the lower speed and makes cassette 
loading into your new Mod ilia much faster, more 
reliable process. Works with Mod r & Mod III. 

Only $14.95 

'Mod i loads and saves at 500 Baud only. 



Purchase Any Program This 

Month and Receive 
Tape Copy 2 for $7.95 





>f ROM* 
machine 

'. T«*M*y. 

ttUm of Our 

crmuntnte. 



Do you reap only mysteries from 
your TRS-80 ROMs? 
Your book has arrived! 

MOD III ROM 

COMMENTED 

Copyright 1 1981 Soft Sector Marketing, Inc. 
No' iust a rehash of old information but detailed 
comments on -he ROMS ir the latest machine 
from Tandy. 

List $22.50 



ZAPSIT 



' 1981 by Soft Sector Marketing, Inc - Written tor TRS-DOS & DOSPLUS bv larrv Ashmun 
Requires 32K Disk -Mod ill 



Zapsit is a stand alone machine language program that lets you examine, modify, copy disk sectors and much 
more It does not use any of the resident DOS. routines so that you are not limited to the restrictionsof the particular DOS 
that you normally use Vou do not have to have a system disk in DRIVE once Zapsit is running 

Currently there are two versions of Zapsit - one for use with TRSDOS' and one for. use with DOSPLUS' ' They are the 
same except in the way that they format a disk and the way that they write DATA ADDRESS MARKS Because of the 
differences, they are not interchangabie. Writing to a TRSDOS diskette with the DOSPLUS ver$ion(or vice- versa) could 
make the diskette written too unuseable. 

For all disk operations you will be asked a seriesof questions. Each auestion can be answered by pressing the ENTER 
Key or by entering a specific value. Pressing the ENTER Key will cause the DEFAULT value to be used All default values 
are indicated on the screen at the time the question is asked. 

When entering a specific numeric value it is assumed to be DECIMAL unlessan H isappended to the number When 
an H is appended, the number is assumed to be hexadecimal (base 16) 

CAPABILITIES 



Display/Modify Disk Sectors/Memory. '-' rv -e screen Pr nt 
sector to printer Modify in Hex. Modify in ASCII 
Change Track k Sector Limits. Single density read and write 
Double density read and write 'or 1 -80 track, from 0-18 sectors 
Single and dual sided drives 

Format a Disk. S= Standard Formal W= Format without Erase 
if you press ENTER or S you will be asked which drive, what 
density After answering these questions Zopsit will format the 
disk usmg the parameters specified As each track is format- 
ted all of the sectors are checked for readability before the 
next track is formatted Any unreadable sectors ore reported 
Out the operation will not be aborted 

If you type Wyou will be asked which drive, what density to 
use and if you want any bod sectors reported to the printer 
Before each track is formatted each readable sector on the 
track is read into a holding area Unreadable sectors are 
reported and their holding area is zeroed After all of the 
sectors for a track ore stored, the track is reformatted and the 
data m the holding areas written to the appropriate sectors 
Verity a Disk. Verify a disk does just that it verifies that every 
sector is readable Any unreadable sectors are reported You 
will be asked if you want the unreadable sectors reported to 
the printer 



Now you con verify that the format o' your diskette ism good 
shape before you copy your important files to a diskette This 
prevents loosing your data that you are trying to Dock up 
Copy Disk Sectors. Copy disk sectors allows you to Copy 
sectors (Single or Double Density) from a disk to different 
sectors on the same disk Copy sectors from a Double Density 
disk to a different Double Density disk Copy sectors from a 
Single Density disk to a different Single Density disk Copy 
sectors from o Single Density disk to a Double Density disk 
Copy sectors from a Double Density disk to a Single Density 
disk All copying to a Different disk must De done on a Two 
Drive System. 

Zero Disk Sectors. Zero disk sectors allow you to write a value 
of your choice to the sectors specified 
Read a Track, heading a track allows you to read on entire 
track into memory, with all of the address marksand informa- 
tion that you don't normally see with o sector read The output 
can be to either the screen or printer 



List $24.95 

Introductory Special $19.95 



COD- certified checu VI O or casn oniy Most oraers 
shipped next day All orders must nave shipping included 
Please add 2% or S2 50. whichever s higher for snipping 
Michigan residents please add 4% tax Ada extra $1 5G for 
COD Persona checks *a«e 3 weeks to clear Out of the 
country orders add $10 00 extra shipping 
•TRS-80 s a product of RadoShacK dry of the Tandy Corp 



SOFT SECTOR MARKETING, 

INCORPORATED 
6250 Middlebelt •Garden City, Michigan 48135 
Order Line 800-521-6504 
Michigan Orders & Questions 313-425-4020 ^85 
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EDUCATION 



s>.£ 



LOAD 80 



Teachers are going to love this one. 



Grade Boc 




6. E. Pugs ley 

7780 Candlewood Dr. 

Boise, ID 83709 



lost teachers find much of their time 
is spent calculating and recording 
grades. This program was designed to rec- 
tify that situation while in addition provide a 
computer printout of the grades. This pro- 
gram requires the use of total points and 
either curved grades or percent grades. In 
addition the grade records may be printed 
in alphabetical order, sorted by average 
grade or points accumulated, and saved on 
disk., 

Records for up to 45 students, with 20 
grades each can be accommodated. These 
numbers may be limited by available com- 
puter memory. The resulting printout will 
show the calculated weighted grade aver- 
age and the appropriate letter grade. In ad- 
dition to the weighted average, the percent 
grade and the total weighted points will be 
printed. If total points are used and grades 
curved, the letter grade is omitted. If de- 



S$(S) 


The student name, 20 spaces and each grade, five spaces 


W(A) 


Weighting tor each assignment, any value 


A$(A) 


Assignment titles, up to four characters long 


G$, G1$, G, G% 


G! Work areas for the grades 


NS 


Total number of students allowed 


NA 


Total number of assignments allowed 


TS 


Number of students in the class 


TA 


Number of assignments recorded 


SP$ 


20 blanks used for filler when working with strings 


L$ 


20 . . . used as leaders 


C$(l) 


Commands 


GR$ 


• Fills in the missing grades 


AV(A) 


Average grades for assignments 


INS 


Input area from line input 


B($) 


Letter grades allowed 




Table 1 



The Key Box 

Disk Basic 

48KRAM 

NEWDOS 80, TRSDOS 

2 Disk Drives 

Printer 



Program Listing 1 

1 CLS : PRINT :PRINTTAB( 20) "GRADE BOOK " : POKE16561 , 254 : POKE16562 , 12 
6:CLEAR60 00:DEFINTA-C,E-V,X-Z:POKE16526,0:POKE165 27,127:DATA205, 
1 27, 10, 94, 35 , 86, 237 ,83, 32, 127, 35, 94 :DATA35, 86, 237, 83, 215, 127, 35, 
94, 35, 86, 237, 83 :DATA217, 127, 35, 126, 50, 219, 127, 33, 0,0, 34, 213 

2 DATA1 27, 237, 91, 213, 127, 203, 59, 175, 203, 58, 48 :DATA2, 203, 251, 237, 
83, 213, 127, 122, 17 9, 200, 42 :DATA32, 127, 237, 82, 34, 209, 127, 33, 0,0, 34 
,207:DATA127,42,207,127,34,205,127,42,205,127,237:DATA91,213,127 
,25,3 4,211,127,235,33,0,0,25 

3 DATA2 5, 2 5, 229, 237, 91, 205, 127, 3 3, 0,0, 25, 25 :DATA25, 237, 7 5, 215, 12 
7, 9, 235, 225, 9, 229, 213, 58 :DATA219, 127, 71, 197, 19, 35, 7 8, 35, 70, 42, 21 
7:DATA127,9,235,7 8,35,70,42,217,127,9:DATA193,26,150,56,6,32,35, 
19,35,16,246 

4 DATA209,225,6,3,78,235,126,113,235,119:DATA35,19,16,246,42,213 
,127,23 5,42,205:DATA127,17 5,23 7,82,34,205,127,4 8,15 5,24,2:DATA20 
9, 225, 42, 207, 1 27, 17, 1, 0,17 5, 25, 34, 207,1 27 :DATA237, 91, 209, 127, 237 
,82,218,71,127,195,37,127:FORI=1TO205:READA 

5 POKEI+32 511,A:NEXT:NS=45:NA=20:T=0 
DIMCS(ll) ,S$(NS) ,W(NA) ,A$(N 

A) ,AV{NA) ,X(3) :Z = 0:SP$=STRING$(20," ") : L$=STRING$ ( 20 , " . ") :GR$=" 

*":B$(1)=" 90":B$(2)=" 80":B$(3)=" 70":B$(4)=" 60 " : DATAHELP, P 
RI NT , LOAD , SAVE , NEW , QUIT , GRADES , SORT , NAMES 

Program continues 
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GUARANTEE 

30 DAY MONEY RACK! 
GUARANTEE 

tLess 10% restocking charge. 



If you are looking for 
The Finest In Word Processing Systems 

you can . . . 

1 . Purchase and examine all other word processing programs 
on the market and then purchase Lazy Writer^ 
or . . . 
2 You can purchase Lazy Writer® first If s your money! 
Lazy Writer® Mod I or III 
$175.00 

"Requires 2 Disk Drives to convert only, 

Proportional Spacing Option Now Available for 
Daisy Wheel II Printer- Only $29.95 



# 






LECTRIC WEBSTER 

Spelling Checker 



"A product of Cornucopia Software 



EASY TO USE 

50,000 WORD VOCABULARY & EXPANDABLE 
RECOGNIZES PREFIXES & SUFFIXES 
REQUIRES ONLY 32K OF MEMORY & 2 DISK 
DRIVES 

AFFORDABLE & AVAILABLE IN THREE FORMS: fully 
independent program to identify errors; inde- 
pendent program to identify and correct errors; 
or with a conversion program that will permit 
ELECTRIC WEBSTER to operate from within. 



Was 

$125,00 



Now Only 

$89.50 

$149.00 

$149.50 



Basic Electric Webster 

with Correcting Feature 
Special Lazy Writer® Version $189.50 

with Correcting Feature 

works from within Lazy 

Writer® 

Scriptsit Versions Available - Can for Price 



THE COMPLEAT IDIOTS BOOKKEEPER 

- Now Is Tax Season -■ 

Turn your baskets full of receipts 
into one super organized group of paper work. 

If your income tax is a pain 

you don't have The Compleat Idiots Bookkeeper! 

Mod I & III - $49.95 

FREE Overview Available 

MAKE V.C. 

Changes files to VISI CALC interchangeable format or V.C. file 
into The Compleat Idiots Bookkeeper readable files, 

Mod I & III - Only $24.95 



COD. - certified check. M.O or cosh only Most orders 
shipped next day All orders must have shipping included 
Please add 2% or $250. whichever is higher for shipping 
Michigan residents, please add 4% tax Add extra $ 1 50 for 
COD Personal checks take 3 weeks to clear Out of the 
country orders add $10.00 extra shipping. 
'TRS-80 is a product of Radio Shack, diy of the Tandy Corp 



SOFT SECTOR MARKETING, 

INCORPORATED 
iddlebelt •Garden City, Michigan 48135 
Order Line 800-521-6504 

Michigan Orders & Questions 313-425-4020 ^ 86 



6250 



The American Express' Card 
Don ! leave home wiihou' it " 



vtsa- 



The Quality Continues 



"/ found it useful 

to observe the results 

before settling on a final weight" 



sired, a worksheet for recording daily grades 
may be printed. (Fig. 1.) 

Features 

The program is command driven. If you 
are in doubt as to what command to enter, 
type Help for a list of allowable commands. 
Typing End will terminate a section without 
any action being taken. The major program 
sections are: Names; Grades; Sort; Load; 
Save; Print; Quit; and New. 

Names 

This section allows the user to enter a 
new class, change or delete a name in an 
existing class, or add a new student to the 
roster. The New operation allows the entry 
of students in a new class. Enter last name 

"If you are in 

doubt. . . type Help. . . " 

first, in any order. Since the sort program 
only takes about a second, it is entered au- 
tomatically at the End. Names of up to 20 
characters long may be entered; if longer, 
the name will be truncated to 20 characters. 
Commas may be entered in the disk version 
but not the tape version. 

Grades 

The options to this section are Enter, 
Change and Delete. Grades may be entered 
as a percentage by responding with 100 to 
the maximum points query. If the percent 
grade is needed, enter the raw score and the 
percent will be calculated and recorded. If a 
grade is missing and you do not want it 
averaged in as a zero, type in an * . If you wish 
to begin again, type in End and start over. 

Prior to entering any grades, select a 
weighting for the assignment. Any value may 
be used. I found it useful to change this value 
and observe the results before settling on a 
final weight. To do this, break from the pro- 
gram and change W(A) for the assignment 
you want to a different value. Then run a new 
printout and compare the results. 

In addition to the average grade and the 
letter grade, the total weighted points are 
printed. If you use total points for your 
classes the letter grade is deleted. To use 
this option change T = to T = 1 in line 350. 

Sort 

The sort routine is entered automatically 
after a new class is entered. It may be called 
at any time, even after grades have been en- 
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Program continued 

6 F0RI=1T09:READC$(I) :NEXTI 

7 PRINT :C$= n " : INPUT" COMMAND OR ' HELP ' " ; C$ : F0RI=1T09 : IFCS ( I) =C$TH 
EN8ELSENEXT:PRINT"INVALID COMMAND — TRY HELP" 

8 ONIGOSUB10,11,6 6,67,29,30,31,46,49:GOTO7 

9 CLS:PRINTC$(I) : PRINTSTRING$ ( LEN (C$ ( I) ) ,"-") : PRINT: RETURN 

10 G0SUB9:PRINT:PRINT"VALID COMMANDS" : PRINT" 

HELP PRINT LOAD SAVE 

NAMES GRADES NEW " : RETURN 

11 GOSUB9:IFTS<lTHENPRINT"NO STUDENTS" :GOT07ELSEPRINT"VALID COMM 
ANDS": PRINT" 

REPORT WORKSHEET" : GOSUB64 : IFIN$="END"THEN7ELSEI 
FINS="REPORT"THENCLS:PRINT"REPORT" : PRINT" " :GOT013 

12 IFIN$="WORKSHEET"THENCLS:PRINT"WORKSHEET" : PRINT" ":GO 

T027 

13 PRINT"TYPE IN DATE" : GOSUB64 : CLS : LPRINTIN$ : LPRINTCL$ ; " FOR " ; T 

A;" ASSIGNMENTS.. AND " ; TS ; " STUDENTS ": LPRINT" ASSIGNMENT NO. 

";:FORL=lTOTA:LPRINTLEFT$(SP$,5-LEN(STR$(L)))+STR$(L) 

;: NEXT: LPRINT"" 

14 LPRINT"ASSIGNMENT TITLE " ; : FORL = lTOTA: LPRINTLEFT$ (SP 

$,5-LEN(A$(L) ) )+A$(L) ; : NEXT: IFTTHENLPRINT" TOTAL" ELSELPRINT" AV 
E."; M TOTAL" 

15 LPRINT: LPRINT" ASSIGNMENT WEIGHT ";: FORA=lTOTA: LPRINT 
RIGHT$(" "+STR$(W(A) ) ,3)+" ";: NEXT: LPRINT : FORS=lTOTS : N=0 : D=0 : F 
ORA=lTOTA:G%=VAL(MID$(S$(S) ,16+(A*5) ,5)) : IFTTHENN=N+G%*W ( A) : GOTO 
17ELSEIFMID$(S$(S) ,16+(A*5) ,5)=" *"THENG%=-1 

16 IFG%>=0THENN=N+G%*W(A) :D=D+W(A) :AV(A) =AV(A) +G% 

17 NEXTA:A=A-1:IFTTHENG1$=" " :G0T019ELSEIFG%=-1THENG1$=GR$ :G 

OT018 

18 G%=N/D+.5:G1$=STR$(G%) : S$ ( S) =LEFT$ (S$ ( S) , 20+A*5) +LEFT$ ( SP$ ,5- 

LEN(G1$) )+Gl$ 

19 N$=STR$(N) :IFS<10LPRINT" "; 

20 IFTTHENS$(S)=LEFT$(S$(S) ,20+5*A) : GOT022ELSEN$=STR$ (N) :I=1:IFG 

%<1THENG1$=" *":GOT022 

21 IFVAL(G1$)<VAL(B$(I) ) THENI=I+1 : GOT021ELSEG1 $=" "+MID$( ABC 

DF&" ,1,1) 

22 S$(S)=S$(S)+LEFT$(SP$,6-LEN(N$) ) +N$+Gl $: PRINT" ." ; :IFTTHEN23EL 

SELPRINTS;" ";S$(S) 

23 NEXTS:IFTTHEN24ELSELPRINT"AVE. " ; SP$ ; : FORA=lTOTA: AV( A) =INT ( AV 
(AJ/TS+.5) :G1$=STR$(AV(A) ) :AV( A) =0 : LPRINT ( LEFT$ ( SP$ , 5-LEN (Gl $) ) + 

Gl$) ; :NEXTA: LPRINT :A=A-1 

24 IFTTHENGOSUB46: LPRINT :FORS=TST01STEP-l: IF (TS+1)-S<10LPRINT 

25 IFTTHENLPRINT (TS + D-S;" " ? S$ ( S) : NEXTS 

26 FORS=1TO60-TS:LPRINTCHR$(138) :NEXT:RETURN 

27 LPRINT :LPRINT"WORKSHEET FOR " ; CL$ : PRINT"PLEASE TYPE IN DATE": 
GOSUB64 : LPRINTIN$ :F0RI=1T0TS : IFK10LPRINT" " ; 

28 LPRINTI;LEFT$(S$(I) ,20) ; "I I I I I x 

! ! J i i I I I":NEXT:FORI = 1TO60-TS: 

LPRINTCHR$ (13 8)" : NEXT : GOSUB65 : CLS : PRINT"WORKSHEET FINISHED" : PRINT 
n " :GOT07 

29 RUN 

3 POKE16561,2 55:POKEl6 56 2,255:END 

31 GOSUB9:IFTS<lTHENPRINT"NO STUDENTS " :GOT07ELSEPRINT : PRINT VALI 

D COMMANDS: „ „„ „ „ _„_., 

ENTER END CHANGE" : PRINT : C$=" ": INPU 

T" COMMAND OR HELP" ; C$ : IFC S="END"THEN7ELSEIFC$="ENTER"THEN33ELSEI 
FC$=" CHANGE "THEN40ELSECLS 

32 PRINT"INVALID COMMAND" : PRINT" ":GOT07 

33 IFTA=NATHENCLS:PRINT"NO MORE ROOM":PRINT" ":GOT07E 

LSETA=TA+1:A=TA: INPUT" INPUT TOTAL POINTS POSSIBLE" ; Tl : PRINT"GRAD 
E INPUTS FOR ASSIGNEMNT";" # "TA: PRINT"4-LETTER NAME OF ASSIGNE 
MNT"": "; 

34 GOSUB6 4:G$=LEFT$(IN$,4) : IFG$=" "THEN34ELSEA? ( A) =G$ : PRINT"WEIGH 
T OF "A$": M ;:GOSUB64:IN$=LEFT$(IN$,4) : W ( A) =VAL ( INS) :PRINT"ASSIG 
NMENT # :"TA" "A$(A); n WEIGHT: "W (A) : PRINT" (TYPE * FOR INCOMPLE 
TES)": PRINT" # NAME GRADE" 

35 FORS=lTOTS 

36 PRINTS;LEFT$(S$(S)+". ",20); 

37 G0SUB64:IFIN$=""THEN36ELSEIFIN$="*"THEN38ELSEIFVAL(IN$)>T1THE 

NPRINT"> ";T1;"?? " :GOT036ELSEIFVAL( IN$)<0THENPRINT" <0 ??":GOT03 

Program continues 
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MASTER CONTROL 

1981 Soft Sector Marketing. Inc. - Written by A. Schwartz 



^^^^^■^%'^iV-^'- 



Requries 16-32K 

1 . 50 preprogrammed command 
keys. Standard and Extended com- 
mand. 

2. Direct control of motor, trace 
and audio from keyboard. 

3. Automatic line numbering. 

4. Programmable Custom Key. 

5. Direct Run Button. 

6. Keyboard overlay for easy pro- 
gram use. 

7. Easy entry of entire commands 
into computer. 

Load Master Control into your ma- 
chine then either type in a BASIC 
program or load one in from tape 
to edit. Cuts programming time by 
50% or more $24.95 




C O.D. - cefTified cneck. MO or casn only. Most orders 
;hipped next day Ail orders must rxjve shipping included 
flense add 2% or 52 50. ^itchev&r is higher for shipping 
V" - ,on residents please add 4% tax. Add exffa S* 50 for 
. . Personal checks take 3 weeks to clear Out of the 
country orders add S10 00 extra shipping. 
'TRS-80 isa product of Radio Shack, drv of the randy Corp 



SOFT SECTOR MARKETING, 

INCORPORATED 
6250 Middlebelt ©Garden City, Michigan 48135 
Order Line 800-521-6504 
Michigan Orders & Questions 313-425-4020 ^87 
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"Student grade averages are calculated 

as each name is printed to speed up the operation. 



program; continued 



7ELSEIFIN$="END"THENCLS:TA=TA-1:PRINT"GRADES ENDED" :G0T07ELSEIFT 

O100GOSUB39 

3 8 IN$=LEFT$(SP$,5-LEN(IN$) ) + IN$ : S$ ( S) =LEFT$ ( S$ ( S) , 20+ ( ( A-l) *5) ) 

+IN$ : NEXT: 1=1 : G0SUB9 : G0T07 

39 G!=VAL(IN$) :G!=( (Gl/Tl) *100) :G=G! : IN$=STR$ (G) : RETURN 

40 PRINT"CHANGE GRADE FOR WHICH ASSIGNMENT #?":GOSUB64 

41 IFIN$= n END"THENCLS:PRINT"GRADE CHANGE ENDED" : GOT07ELSEINPUT" H 
OW MANY POINTS MAXIMUM?" ;T1:A=VAL( IN$) : IFA<10RA>TATHENPRINT"NO S 
UCH ASSIGNMENT1 ":GOTO40ELSEPRINT" ENTER STUDENT NUMBER ";:GOSUB6 
4:IFIN$="END"THEN41ELSES=VAL(IN$) 

42 IFS<10RS>TSTHENCLS:PRINT"NO SUCH STUDENT" : GOTO40ELSEPRINT" STU 
DENT ";S;" ";LEFT$(S$(S) ,20) ; :PRINTMID$ (S$(S) ,16+(5*A) , 5) 

43 PRINT"CHANGE GRADE TO: " ; : GOSUB6 4 : IFIN$=" "THEN43 

44 IFIN$="*"THEN4 5ELSE1FT1O10 0THEN3 9ELSEIFVAL(IN$) <0ANDIN$<>" 
*"THENPRINT"<0 ??" :GOT044ELSEGOSUB39 

45 S$(S)=LEFT$(S$(S) ,15+(A*5) ) +LEFT$(SP$,5-LEN(IN$) ) +IN$+MID$(S$ 
(S) ,16+5+(A*5) ,5*(TA-A) ) : 1=1 : GOSUB9 : GOT07 

46 GOSUB9 : PRINT :INPUT"WHICH FIELD DO YOU WANT TO SORT ON, NAME, 
AVERAGE, OR POINTS " ; IN$: IFIN$="AVERAGE n THEN47ELSEIFIN$="POINT 
S"THEN47ELSED1=0:L1=LEN(S$(1) ) :GOT048 

47 D1=21+(5*A) :L1=5 

48 IFTS=0THENPRINT"NO RECORDS IN FILE" : RETURNELSEX ( ) =TS : X ( 1 ) =VA 
RPTR(SS(1) ) :X(2)=D1:X(3)=L1:Z=USR(VARPTR(X(0) ) ) :FORI=lTOTS: PRINT 
I;" "; S$( I) :NEXT: RETURN 

49 GOSUB9: PRINT: PRINT"VALID COMMANDS :": PRINT" 

ADD CHANGE DELETE NEW": PRI 

NT:C$=" n :INPUT"COMMAND OR HELP";C$: IFC$="END"THENCLS: I=l:GOSUB9: 
GOT07ELSEIFC$="ADD"THEN59ELSEIFC$="DELETE"THEN6 2 

50 IFC $=" CHANGE "THEN56ELSEIFC $=" NEW" THEN51ELSE4 9 

51 CLS:PRINT:PRINT:PRINT"NAME OF CLASS? " ; :GOSUB64:CL$=IN$:TS=fc 
:TA=0: PRINT" YOU MAY NOW TYPE IN NEW NAMES" : PRINT "TYPE IN 'END' A 
FTER LAST NAME IS ENTERED." 

52 TS=TS+1:IFTS>NSTHENPRINT"CAN'T TAKE ANY MORE STUDENTS" : GOT05 4 

53 PRINTTS": "; :GOSUB64: IFIN$="END"THEN54ELSEIN$=LEFT$ ( IN$, 20) : 
L=LEN(IN$) :IFIN$=""THEN53ELSEIN$=IN$+LEFT$(L$,20-L) :S$(TS) =IN$:G 
OT052 

5 4 TS=TS-1:GOSUB46:FORI=1TO600:NEXTI: RETURN 

55 CLS: PRINT" "CL$"":IFTS<0THENPRINT"NO STUDENTS" : PRINT" 

— ":GOT07ELSEFORS=lTOTS: PRINTS ;LEFT$(S$(S) ,20) :NEXT:FORI = 1TO6 00 : 
I=l:GOSUB9:GOT07 

56 CLS:PRINT"CHANGE":PRINT" ":PRINT" 

TYPE IN STUDENT NUMBER: " :G0SUB64 : IFIN$="END"THENCLS : PRINT"DONE" : 

PRINT" ":G0T07ELSES=VAL(IN$) : IFS<10RS>TSTHENPRINT"NO SUCH STU 

DENT NUMBER" :GOSUB65 : GOT049 

57 IFS<=TSTHENPRINT"OLD NAME* " ;LEFT$(S$(S) ,20) 

58 PRINT"NEW NAME IS? " ; :GOSUB64; IFIN$=""THEN58ELSEIN$=LEFT$(IN$ 
,20) :L=LEN(IN$) : IN$=IN$+LEFT$<L$,20-L) :S$(S) =IN$+MID$(S$(S) ,21,L 
EN(S$(S) ) ) :GOSUB46:FORI=1TO600:NEXTI:CLS:PRINT"NAME CHANGED" :PRI 
NT" " :GOT07 

59 CLS: PRINT "ADD": PRINT" " :TS=TS+1: IFTS>NSTHENPRINT" TOO MANY 

STUDENTS" :TS=TS-l:GOT04 9 

60 PRINT" 

ENTER NEW STUDENT NAME " :GOSUB6 4 : IFIN$=" "THEN60ELSEG$="" : FORI=lTO 
TA:G$=G$+GR$:NEXT:S$(TS)=STRING$(20,32)+G$:IN$=LEFT$(IN$,20) :L=L 
EN(INS) :IN$=IN$+LEFT$(L$,20-L) :S$(TS) =IN$+MID$ (S$(TS) ,21,LEN(S$( 
TS) ) ) :GOSUB46:FORI=1TO600:NEXTI:CLS 

61 PRINT"NAME ADDED" : PRINT" ":GOT07 

62 CLS : PRI NT "DELETE " : PRI NT" - " : PRI NT : PRI NT " ENTER STUDENT NUM 

BER TO BE DELETED":GOSUB64:S=VAL(IN$) : IFS<10RS>TSTHENCLS:PRINT"N 
SUCH STUDENT NUMBER" :GOSUB65 :GOT049ELSEPRINT" IS THIS THE NAME 
YOU WISH DELETED? (Y OR N) " ; LEFT$ ( S$ (S) ,20) ; 

63 INPUTIN$:IFIN$<>"Y"THEN7ELSES$(S)=S$(TS)-TS=TS-1:CLS:PRINT"NA 
ME DELETED": PRINT" ":GOT07 

64 INPUTIN$: RETURN 

65 FORII=1TO600:NEXTII:RETURN 

66 CLS :GOSUB9:INPUT#-l,CL$:INPUT#-l,TS:INPUT#-l,TA: PRINT"."; :FOR 
S=1T0TS:INPUT#-1,S$(S) : PRINT"."; : NEXTS: PRINT : FORA=lTOTA: INPUT#-1 
,A$(A) : PRINT". ";:NEXTA: PRINT: F0RA=1T0TA:INP.UT#-1,DR$:W{A)=VAL(DR 

$) : PRINT" . " ; : NEXTA: PRINT : RETURN 

Program continues 



tered. When entering the sort routine the 
option is given of sorting on the name field, 
the average field or the total field. 

The Sort portion of the program is the 
machine language sort published in Radio 
Shack's July 1980 Newsletter and modified 
by Dave Anderson and Joe Fugate. Their 
program, Flexfile, uses this very quick sort 
which may be relocaied for 32 ana 16K 
machines. 

Delete: This allows the deletion of any 
name. Sort is not needed after this program 
option. 

Add: New names may be added to the 
class. When names are added after grades 
have been recorded, the missing grades are 
entered as asterisks so they will not be 
counted in that student's average. 

Load transfers the student file into the 
computer from disk. (Caution— remember 
the file name.) The program can easily be 
changed to operate on a tape system. 

Save will store the student file on disk. 
The file name selected is automatically ex- 
tended with a DAT to separate it from any 
other program files you might have. 

Print either allows the printing of the 
grade report, or a work sheet with only the 
name and spaces for grades. Student grade 
averages are calculated as each name is 
printed to speed up the operation. In using 
total points, the printout will not occur until 
you have a chance to determine the order 
desired, by name or by point value. 

Program Description 

The string S$(S) stores the student name 
(first 20 spaces), and the associated grades 
(five spaces for each grade). The major 
variables used are in Table 1. The program 
treats this as a two dimensional string; S 
being the student, and A being the location 
of the grade in the string. This approach re- 
duces the amount of memory required. With 
the remarks deleted the program should 
easily run in a 16K tape system. The only 
changes needed are the replacement of the 
load and save routine, and the Line Input. 

Changes for Different Systems 

The program is well documented with re- 
marks for changes to make the system 
operate with different equipment configura- 
tions. The following is a summary of the 
changes required for different systems: 

16K, Level II: POKE 16526,0: POKE 
16527,127 

Memory Size 32512 

Change all 255's in machine 

language section to 127. 
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- This Month Only- 

Our 40 Track Disk Drive, w/ power supply & case' 



Our 80 Track Disk Drive, w/ power supply & case 1 



"Add $5.00 shipping per drive. 




Attention! 



$225.00 

$350.00 

$475.00 

$25.00 

$35.00 

$18.00 

.... $218.00 



pecial - 



Performance 

Print speed, cps - 120 
Print technique - Bidirectional 
Short line seeking - Standard 
Columns, Standard Characters - 80 

Condensed characters- 132 
Printing Characteristics 
Matrix, standard caracters -9x9 
Character set - Full 96 character ASCII plus 64 

block graphics shapes 
Ribbon 

Media - Standard four mil, V2" wide on 2" spools 
Interfaces 

Parallel, Centronics-compatible - Standard 
Serial, RS232C, 1200 bps- Standard 
Reliability 
MTBF - 4000 hours 
Warranty 

Ninety days parts and labor, one year on print 
head under normal use 

All prepaid orders - cash/MC/Visa 






Price $' 



00 




American Express & C.O.D. orders 



,l\ 



Price 



COD- certified check. M O or cash only. Most orders 
shipped next day. All orders must have shipping included. 
Please add 2% or S2.5C. whichever is higher tor shipping 
Michigan residents, please add 4% tax Add extra SI 50 tor 
COD Personal checks fake 3 weeks to clear Out of the 
country orders add S 10.00 extra shipping. 
•TRS-80 is a producr of Radio Shack, div o"^e 'and. Corp 



SOFT SECTOR MARKETING, 

INCORPORATED 
6250 Middlebelt «Garden City, Michigan 48135 
Order Line 800-521-6504 
Michigan Orders & Questions 31 3-425-4020 0o 



The American Express' Card 

Oon t leave hone -.viihou: it " 



"The resulting printout will show the calculated 
weighted grade average and appropriate letter grade. 



Program continued 



67 CLS:G0SUB9:IFTS<lTHENPRINT n N0 STUDENTS" :G0T07ELSEPRINT#-1 ,CL$ 
: PRINT#-1 ,TS : PRINT#-1 , TA: PRINT" . " ; : F0RS=1T0TS : PRINTI-1 , S$ ( S) : PRI 
NT" . " ; : NEXTS : PRINT : F0RA=1T0TA: PRINT#-1 , A$ ( A) : PRINT" . " ; : NEXTA: PRI 
NT:F0RA=1T0TA:DR$=STR$(W(A) ) : PRINT#-1 ,DR$ 

68 PRINT". "; :NEXTA: PRINT :RETURN 

69 INPUT#-l,A$:PRINTA$:GOT069 



WORKSHEET FOR RKPViRD 
MARCH 13TH, 1981 

1 BARKER DELFfi. 

2 BE ITER DONNfi 

3 8RETS0N KHTH 1 -' 

4 6R0UN PRTTV 

5 COLOR IHOGENE. . . 

6 CR0SL.EV DEBBIE . . 

7 CURRY STfCEY 



J JENKINS JEHN I. 

3 LANCER DAWN I. 

10 WHITE NANCY I. 

11 YOUNG BOBBY I. 



Fig. 1 







Program Listing 2 










10 


CLS: CMD"T" 












20 


PRINT 












30 


PRINT TAB(20) "GRADE BOOK " 










35 


REM FOR 32K 


POKE 16561,254 


AND 


16562, 


190 






FOR 16K POKE 16561,254 


AND 


16562 


,126 




40 


POKE 16561, 


254 










50 


POKE 16562, 


254 










60 


CLEAR 6000 












70 


DEFINT A-C 












80 


DEFINT X-Z 










Program continues 



Change line 310, the POKE I-257.A 
to: POKE I +32511, A 
Disk entry point &H7F00 

For 32K, disk system: POKE 16526,0: 

POKE 16527,191 

Memory Size 48895 

Change all 255's in machine 

language section to 191's 

Change line 310, the POKE I-257, A 

to: POKE 1-16641, A 

Disk entry point &HBF00 

Included in the program is a short sound 
routine that tells the operator when the 
computer is ready to accept the next grade. 
Due to the extensive use of strings to store 
student data, garbage collection would be- 
come a problem when entering grades. It is 
easy when typing fast to lose a grade. The 
Ready beep from the computer solves this 
problem. 

The data for the sound program is includ- 
ed in line 295. The sound is called through 
the USR command in line 2455. 

The 16K (packed) version of the Grades 
program is available from the author. ■ 

Ben Pugsley is a graduate of Boise State 
University holding a Bachelors and Masters 
degree in Business Education. He is cur- 
rently teaching Introduction to Computers 
and Data Processing, and other business 
subjects at Meridian Sr. High, Meridian, 
Idaho. 




What is OMNITERM? 



OMNITERM is a professional communications package for the TRS-80 that allows 
you to easily communicate and transfer files or programs with almost any other 
computer. We've never found a computer that OMNITERM can't work with. It's a 
complete package because it includes not only the terminal program itself, but also 
conversion utilities, a text editor, special configuration files, serious 
documentation and serious support. 

Why do I need it? 

You need OMNITERM if you need to communicate efficiently with many different 
computers, or if you want to customize your TRS-80 for use with one particular 
computer. You need OMNITERM to SOLVE your communications problems once 
and for all. 

What do I get? 

The OMNITERM package includes the OMNITERM terminal program, four 
conversion utilities, a text editor, and setting files for use with popular computers 
such as CompuServe, the Source, and Dow Jones — just as samples of what you can 

flindbergh Systems 



The ULTIMATE TRS-80 Terminal Package 



do for the computer you want to work with. The package includes six programs, seven 
data files, and real documentation: a 76-page manual that has been called "the best in 
the industry." And OMNITERM comes with real user support. We can be reached 
via CompuServe, Source, phone, or mail to promptly answer your questions about using 



What do I need to use OMNITERM? 

A Model I or Model III TRS-80, at least 32K of memory, one disk, and the RS-232 
interface, or Microconnection modem. OMNITERM works with all ROMs and DOSes. 
and will work with your special keyboard drivers. 

What will it do? 

OMNITERM allows you to translate any character going to any device: printer, screen, 
disk, keyboard, or communications line, giving you complete control and allowing you to 
redefine the character sets of all devices. It will let you transfer data, and run your 
printer while connected for a record of everything that happens. OMNITERM can 
reformat your screen so that 80. 32, or 40 column lines are easy to read and look neat on 
your TRS-80 screen. It even lets you get on remote computers with just one keystroke! 
The program lets you send special characters, echo characters, count UART errors, 
configure your UART. send True Breaks and use lower case. It accepts VIDEOTEX codes, 
giving you full cursor control. It will even let you review text that has scrolled off 
the screen! Best of all. OMNITERM will save aspecial file with all your changes so you 



can quickly use OMNITERM for any 
one of many different computers by 
loading the proper file. It's easy to use 
since it's menu driven, and gives you a 
full status display so you can examine 
and change everything. 
"OMNITERM has my vote as the top 
TRS-80 terminal program available today" 
Kilobaud Microcomputing. June 1981. 
pages 16-19. 

OMNITERM is $95 (plus shipping if 
COD) Call for 24 hour shipment. Manual 
alone $15. applied toward complete pack- 
age. Visa, M/C. and COD accepted, MA 
residents add 5% tax. Dealer inquiries 
invited 

Contact Lindberqh Systems for your 
custom programming needs. We are 
expert at writing software to work with 
YOUR hardware, in assembler, high-level 
language, or Forth. 
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41 Fairhill Road, Holden. MA 01520 (617) 852-0233 Source: TGASIS CompuServe; 70310267 TRS-80 is a '" of TaoclyCcrp 
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WB®mwi 



■HHhb # I * 1 f 1 1 1 I ] L^ 





WMm 



KH 



seIs 



iH 



WBRS«B 



™ 



*s features with those of 
r competitors. All MMF hard disk sys- 
tems feature ECC (error correction 
1e). Not all of our competitors can say 
t. Error correction is an absolute 
- »sity in the hard disk environment, 
rd disk media does develop bit pat- 
sensitivity with time, 
linframe hard disk suppliers have 

using error correction techniques 

for years, but many of the micro com- 
r hard disk suppliers are selling 
with CRC error detection only. This 
..is that as the media ages, disk sec- 
will become unreadable and v 4 * 1 *^ 
• data will be lost. This operatin 

"youre 



sive hard disk becomes only slightly . 
ter than the floppy you replaced. 

All Micro Mainframe units shipped 
after February 1982 wilf operate in • 
junction with our Micro Network I. 
tiplexer. Each Micro Network will allow 
up to four computers to be connected to 
one of our hard disk systems. Additional 
networks may be connected for further 
expansion. 

MMF is pleased to announce our new 
M200-C series hard disk system con- 
sisting of a 10 Megabyte Removable car- 
tridge, and a 10 Megabyte fixed hard 
disk. This unit functions with the Micr 
ork Multiplexer and features E< 



•MM 



msm 



Mm 



mm 

in 



YSTEM 



MULTIPLEXER 

REMOVABLE CARTRIDGE WINCHESTERS 
Mod-I* or Mod-Ill* version 







1 



mm. 







Program continued 



90 DEFINT E-V 

95 REM FOR 32K DEF USR 1=&HBF00 

FOR 16K LEVEL II POKE 16526,0 AND POKE 16527,127 
100 DEF USR 1=&HFF00: DEF USR =&HFFCD 

110 DATA 205, 127, 10, 94, 35, 86, 237, 83, 32, 255, 35, 94 
120 DATA 35, 86, 237, 83, 215, 255, 35, 94, 35, 86, 237, 83 
130 DATA 217, 255, 35, 126, 50, 219, 255, 33, 0, 0, 34, 213 
140 DATA 255, 237, 91, 213, 255, 203, 59, 175, 203, 58, 48 
150 DATA 2, 203, 251, 237, 83, 213, 255, 122, 179, 200, 42 
160 DATA 32, 255, 237, 82, 34, 209, 255, 33, 0, 0, 34, 207 
170 DATA 255, 42, 207, 255, 34, 205, 255, 42, 205, 255, 237 
180 DATA 91, 213, 255, 25, 34, 211, 255, 235, 33, 0, 0, 25 
190 DATA 25, 25, 229, 237, 91, 205, 255, 33, 0, 0, 25, 25 
200 DATA 25, 237, 75, 215, 255, 9, 235, 225, 9, 229, 213, 58 
210 DATA 219, 255, 71, 197, 19, 35, 78, 35, 70, 42, 217 
220 DATA 255, 9, 235, 78, 35, 70, 42, 217, 255, 9 
230 DATA 193, 26, 150, 56, 6, 32, 35, 19, 35, 16, 246 
240 DATA 209, 225, 6, 3, 78, 235, 126, 113, 235, 119 
250 DATA 35, 19, 16, 246, 42, 213, 255, 235, 42, 205 
260 DATA 255, 175, 237, 82, 34, 205, 255, 48, 155, 24, 2 
270 DATA 209, 225, 42, 207, 255, 17, 1, 0, 175, 25, 34, 207, 255 
280 DATA 237, 91, 209, 255, 237, 82, 218, 71, 255, 195, 37, 255 
290 FOR 1=1 TO 234 
295 DATA 205,127,10,62,1,14,255,237,91,61,64,69,47,230,3,179,211,255,13,40, 

4,16,246,24,242,37,32,241,201 

300 READ A 

305 REM FOR 32K POKE 1-16641, A 

FOR 16K POKE 1+32511, A 
310 POKE 1-257, A 
320 NEXT 
330 NS=45 
340 NA=20 
350 T=0 

360 DIM S$(NS), W(NA) , A$(NA), AV(NA) , X(3) 
370 Z=0 

380 SP$=STRING$(20," ") 
390 L$=STRING$(20,". n ) 
400 GR$=" *" 
410 B$(l)=" 90" 
420 B$(2)=" 80" 
430 B$(3)=" 70" 
440 B$(4)=" 60" 

450 DATA HELP, PRINT, LOAD, SAVE, NEW, QUIT, GRADES, SORT, NAMES 
460 FOR 1=1 TO 9 
470 READ C$(I) 
480 NEXT I 
490 PRINT 

495 REM COMMAND PROCESSING 
500 C$="" 

510 INPUT"COMMAND OR 'HELP'";C$ 
520 FOR 1=1 TO 9 
530 IF C$(I)=C$THEN 560 

5 40 NEXT 

550 PRINT" INVALID COMMAND — TRY HELP" 

560 ON I GOSUB 630, 680, 1580, 1810, 2100, 2110, 2140, 2880, 3080 

570 GOTO 4 90 

575 REM DISPLAY COMMANDS 

580 CLS 

590 PRINT C$(I) 

600 PRINT STRING$(LEN(C$(I)) ,"-") 

610 PRINT 

6 20 RETURN 

625 REM HELP ROUTINE 

630 GOSUB 580 

6 40 PRINT 

650 PRINT"VALID COMMANDS" 

660 PRINT" 

HELP PRINT LOAD SAVE NAMES 

GRADES NEW QUIT SORT" 
670 RETURN 
675 REM PRINT ROUTINE 

6 80 GOSUB 580 

690 IF TS<1 THEN PRINT"NO STUDENTS": GOTO 490 
700 PRINT"VALID COMMANDS" 
710 PRINT" 

REPORT WORKSHEET" 

720 GOSUB 4200 
730 IF IN$="END" THEN 490 
735 IF PEEK(16425)<>1 THEN POKE 16425,1 

740 IF IN$="REPORT" THEN CLS: PRI NT" REPORT " : PRINT" ": GOTO 760 

750 IF IN$="WORKSHEET" THEN CLS: PRINT"WORKSHEET" : PRINT" ": GOTO 1 

410 

7 55 REM PRINT REPORT ROUTINE 
760 PRINT-TYPE IN DATE" 

770 GOSUB 4200 

7 80 CLS Program continues 
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GARBAGE PROBL 

Memory Loss • Errors • Crashes • Reboots 




Take out the garbage 

withi ta @yo@T[y[M 






SPIKE, SURGE AND 

NOISE SUPPRESSOR 



• Six protected receptacles 

• Load rating of 15 amps 

• Broad band RFI suppression 

• Maximum transient current 
of 6000 amps (8X20us) 

$ / 5Q95 plus $1.75 

only %7^T FOR SHIPPING 

PROTECTS COMPUTERS, TELEVISION, 
PERIPHERALS, VIDEO GAMES, VCR'S 
AND OTHER ELECTRONIC DEVICES. 
SUPPRESSES DAMAGING POWERLINEl 
TRANSIENTS AND RF INTERFERENCE. 



BWJ TECHNOLOGY, INC. 



i 



CHECK, MONEY ORDER, VISA, MASTER CHARGE » TEXAS RESIDENTS ADD 5% 




BOX 6214 ARLINGTON, TX 76011 
DEPT. 8 (817)277-2726 




ESTATE PLANNING MODEL 
SAVE TIME AND MONEY 

by using your TRS-80* Model II, 64 K computer 
for professional estate analysis. 

ft Marital Deduction Formula Analysis Reports 

analyze six formula bequests for both husband 
and wife for both orders of death. 

ft Estate Tax Return Report computerizes estate 
tax planning for decedents' estates. 

ft Client-Ready Reports printed. 

ft State (Ohio) and Federal Taxes computed. 

ft Free Updates to reflect legislative changes 
for one year. 

ft Sold and maintained by author: an attorney 
and estate planning professional. 

ft ALREADY REVISED to comply with 1981 
TAX REDUCTION ACT. 



***)► YES, please send me more information on the 
Estate Planning Model. 



Name. 



Name of Firm 

Street 

City 



State 



Mail to: Beard Software Development Co. 
59 Skyline Avenue 
Canfield. Ohio 44406 



Zip 



"TRS-80 is a trademark of Tandy Radio Shack. 
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NOW IN STOCK 

ACORN SOFTWARE 

BIG FIVE 

INSTANT SOFTWARE 

CREATIVE COMPUTING 

ADVENTURE 

INTERNATIONAL 

APPARAT INC. 
EPSON PRINTERS 

MANY MORE 

MOD I • MOD III • COLOR 

Excellent 5V*" Diskettes 
S. Den. or D. Den. 
Fully Guaranteed 

Lower Case Mod - Mod I 
One IC $29.95 

IBM Selectric Printer 
Conversion Kit $825.00 

VISA 

Phone or Write for Info. 

(403) 423-3919 

CMD MICRO " 1 81 

10546- 106 Street 

Edmonton, Alberta 

T5H 2X6 



OMNITEK COMPUTERS " 195 

INTERNATIONAL, INC. 

1 899 MAIN STREET 

TEWKSBURY, MASS 

617-851-4580 

Scotch S.S/S.D 5.25" Diskettes. . . . 25.00 
Elephant Memory 5.25" Diskettes. 23.00 

I 6K RAM KITS 14.00 

TECO I 2" B&.G Monitor ! 19.00 

Okidata Microline 80 329.00 

Okidata Microline 82A 449.00 

Okidata Microline 83A 699.00 

Epson Mx-80 479.00 

Radio Shack Mill w/48K 879.00 

Radio Shack Mill w/48K and 2 40T dr 

1699.00 

40 track 5.25" Tandon TM- 1 00- 1 . 284.00 
80 track 5.25" Tandon Dual Head484.00 

5.25" Power Supply and case 49.00 

8" Power Supply and case 1 09.00 

Apple II plus W/48K, I drive, RF mod 

1690.00 

Comet I 25 CPS printer 299.00 

TRS-80 is a registered trademark of 
Tandy Corp. 

Prices are for mail order only. 

TERMS: Check, money order, Mastercard 

and Visa accepted. F.O.B. Tewksbury- 

freight extra. Mass residents add 5% 

sales tax. Write for FREE CATALOG. 



sSee List of Advertisers on page 402 
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Program continued 



790 

800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
100 



ELSE LPRINT" AVE.";" TOTAL" 



ASSIGNMENT WEIGHT 



+STR$(W(A) ) , 3)+' 



104 
105 
106 
107 
108 
108 
109 
110 
111 
112 
113 
113 
114 



LPRINT IN$ 

LPRINT CL$; n FOR °;TA;" ASSIGNMENTS . .AND n ;TS; n STUDENTS 

LPRINT "ASSIGNMENT NO "> 

FOR L=l TO TA 

LPRINT LEFT$(SP$, 5-LEN ( STR$ (L) ) ) +STR$ (L) ; 

NEXT 

LPRINT"" 

LPRINT"ASSIGNMENT TITLE " ; 

FOR L=l TO TA 

LPRINT LEFT$(SP$, 5-LEN (A$ (L) )) +A$ (L) ; 

NEXT 

IF T THEN LPRINT" TOTAL 

LPRINT 

LPRINT" 

FOR A=l TO TA 

LPRINT RIGHT$( 

NEXT 

LPRINT 

FOR S=l TO TS 

N=0 

D=0 
FOR A=l TO TA 

G%=VAL(MID$(S$(S) , 16+(A*5) , 
IF T THEN N=N+G%*W(A) : GOTO 1 
IF MID$(S$(S), 16+(A*5) , 5)=" 
5 REM TO CALCUALTE WEIGHTED POINTS AND WEIGHTED VALUE 
IF G%>=0 THEN N=N+G%*W(A) : D=D+W(A) : AV( A) =AV( A) +G% 
NEXT A 
A=A-1 

IF T THEN Gl$=" ": GOTO 1120 
IF G%=-1 THEN G1$=GR$: GOTO 1090 
5 REM TO CALCULATE STUDENT AVERAGE 
G%=N/D+.5 
G1$=STR$(G%) 

S$(S)=LEFT$(S$(S) , 20+A*5)+LEFT$(SP$, 5-LEN (Gl$) ) +G1$ 
N$=STR$(N) 
IF S<10 LPRINT" "; 

REM TO REDUCE STRING LENGTH WHEN USING TOTAL POINTS 
IF T THEN S$(S)=LEFT$(S$(S) , 20+5*A) : GOTO 1200 



5)) 

»50 



•FOR TOTAL POINTS PROCESSING 
*" THEN G%=-1 



Program continues 



$ LYNN'S A/R SYSTEM $ 

12 Integrated Account Receivable Programs 
Tested In Service For Over 2 Years 

User's Coments: 

• increased cash flow 
• saved over 50 hours a month in secretarial hours 
• almost completely eliminated billing errors 

LYNN'S A/R SYSTEM WILL 



• print invoices • store 1 .100 open invoices • tell you your 
account's receivable total, amount of total invoices out- 
standing, average amount of total invoice's • tell you at any 
time how many invoices an individual account has open, the 
total amount owed, the average per invoice, the invoice date, 
and the invoice amount • total sales on account for given 
month, number of invoices sent, average sale per invoice 

• how much an account purchased during month, how many 



invoices were sent, average invoice for month • tell you 
what percent of sales an account is to total sales by month 

• tell you what percent of accounts receivable an account is 

• print labels for your accounts • print statements at end of 

month and 'or beginning of month and/or any time during 
month, (either individual or all accounts)«printalphabetical 
hardcopy of accounts and account numbers • print all items 
sold for the month • AND MUCH MORE!! • 



+ $2.00 Shipping & Handling 

Illinois Residents Add 6% Sales Tax 

Send $10 (X) For Printouts 

And Documentation 

Credit Given On Order 



n i $4.Q 95 

LYNN COMPUTER SERVICE Un| V 

6831 W. 157th St. 

Tinley Park, II 60477 

(312)429-1915 

Send state sales tax rate, company name - address - phone #, TRS-80 model U, number of drives, 
and whether you will be using NEWDOS or NEWDOS80 for model I, or TRSDOS/NEWDOS80 for 
model III. 

Equipment Needed: 48K model I or III. linepnnter, 2 
disk drives. Model I users will need NEWDOS or NEWDOS- 
80 operating system by APPARAT, INC. 
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TRS80 and TRSDOS are trademarks of TANDY CORP 

NEWDOS and NEWD0S80 are registered trademarks of APPARAT iNC 



Jf 



194 • 80 Microcomputing, March 1982 



UPER 

UTILITY ♦ 




SUPER UTILITY + 
<C> (P> 1981 BY 
BREEZE/QSD, INC. 



I 



Byi KIM WATT 



] 



Read Paul Wiener's review on page 366 
in the Jan. '82 BO-MICROCOMPUTING. <tm> 
SU+ has even MORE feature* now! ! 



Mod I or III 
♦74.95 
(specify) 



] 



SPECIAL Mod I/III 
♦124.95 
Boots on EITHER machine! 



I 



80 Track version! 
AVAILABLE ON 
REQUEST 



NEW BOOK by KIM WATT- "SUPER UTILITY* TECH MANUAL" - ^14. 95 



SPEAK! - by Bill Neville 
Mod III only. Add TALKING 
to your games and programs! 
Mod III DISK only 39.95 
MULTIDOS I or III 79.95 
LDOS 5.1-1 or III 129.95 



IIIMIIIIMIIIIHII 






5? S* 




FLUJERdrhu 

A SCREEN GRAPHICS UTILITY FOR MOD I or III 
SAVE SCREENS IN 6 DIFFERENT FORMATS! 



I 



Bys KIM WATT 



1 



only 





YOU CAN NOW EASILY CREATE, SAVE, 
OR PRINT GRAPHIC SCREEN DISPLAYS!! 




-•V' 1 '/-*-, 



GREAT for EPSON'S! With or without GRATRAX-80<tm) 



11500 Stemmons Expressway - Dallas, Texas 75229 



M/C-VISA 

CARDS 
Accepted 



<214) 484-2976 — MicroNet* 70130,203 
Join OUR Xtra-80 Sig ON MicroNet! 
From the "OK" prompt, types R QSD 



Write for 
our FREE 
Catalog! 



DEALER INQUI RIES INVITED 



T3S7EA^Al5AH!Jr^Jers ADD «5 Shipping /Hand 1 1 ng 
'(This ENTIRE AD was created using PowerDraw!) 

PowerSoft is a division of Breeze/QSD, Inc. 

Radio Shack is a TM of the TANDY CORP. 

See US at NCC in Dallas! April 21-25! „ 61 



add ik> 
U.S. FUNDS ONLY 
for shipping. 
NO personal 
checks PLEASE! 



Program continued 



1150 

1160 

1170 

117 b 

1180 

1190 

1200 

1210 

1220 

123 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

INT" 

1360 

1370 

1380 

1390 

1400 

1405 

1410 

1420 

143 

1440 

14 50 

1460 

1470 

1480 

I.... 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1575 

1580 

1590 

1600 

1613 

1620 

1630 

1640 

1650 

1660 

1665 

1670 

1680 

1690 

1700 

1705 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

17 80 

1790 

1800 

1805 

1810 

1820 

1830 

1840 

185 

1860 
1870 
1880 
1890 
1900 



N$=STR$(N) 

1=1 

IF G%<1 THEN Gl$ = " *": GOTO 1200 

REM TO FIND LETTER GRADE 

IF VAL(G1$)<VAL(B$(I) ) THEN 1=1+1: GOTO 1180 

Gl$=" " +MID$("ABCDF&",I, 1) 

S$(S)=S$(S)+LEFT$(SP$, 6-LEN(N$) )+N$+Gl$ 

PRINT"."; 

IF T THEN 1240 

LPRINT S; n ";S$(S) 

NEXT S 

IF T THEN 1350 

LPRINT"AVE. ";SP$; 

FOR A=l TO TA 

AV(A) =INT(AV(A)/TS+.5) 

G1$=STR$(AV(A) ) 

AV(A) =0 

LPRINT(LEFT$(SP$, 5-LEN(Gl$) ) +G1$) ; 

NEXT A 

LPRINT 

A=A-1 

IF T THEN GOSUB 2880: LPRINT: FOR S=TS TO 1 STEP -1:IF (TS+1)-S<10 LPR 

IF T THEN LPRINT (TS+l)-S; n n ;S$(S): NEXT S 

LPRINT CHR$(12): REMFOR S=l TO 60-TS 

REM LPRINT CHR$(138) 

REM NEXT 

RETURN 

REM PRINT WORKSHEET 

LPRINT 

LPRINT"WORKSHEET FOR n ;CL$ 

PRINT"PLEASE TYPE IN DATE" 

GOSUB 4200 

LPRINT IN$ 

FOR 1=1 TO TS 

IF K10 LPRINT" "; 

LPRINT I; LEFT${S$(I), 20);"I I I I I I I 

.1 I I I I I" 

NEXT 

REM FOR 1=1 TO 60-TS 

LPRINT CHR$(12): REM LPRINT CHR$(138) 

REM NEXT 

GOSUB 4220 

CLS 

PRINT"WORKSHEET FINISHED" 

PRINT" " 

GOTO 4 90 

REM LOAD DATA 

CLS 

GOSUB 5 80 



INPUT"ENTER FILE NAME (NO EXTENSIONS) " ; DF $ 

IF DF$= n " THEN 1600 

IF DF$="END" THEN RETURN 

OPEN"I",l, DF$+"/DAT" 

INPUTtl, CL$, TS$, TA$ 

TS=VAL(TS$) 

TA=VAL(TA$) 

PRINT CL$;" FOR " ; TS ; " STUDENTS AND ";TA; n ASSIGNMENTS' 

FOR S=l TO TS 

INPUT#1, DR$ 

S$(S)=DR$ 

NEXT S 

IF TA=0 THEN GOTO 17 90 

FOR A=l TO TA 

INPUT#1, DR$ 

A$(A)=DR$ 

NEXT A 

FOR A=l TO TA 

INPUTS 1, DR$ 

W(A) =VAL{DRS) 

NEXT A 

CLOSE 

RETURN 

REM SAVE DATA 

CLS 

GOSUB 580 

IF TS<1 THEN PRINT "NO STUDENTS": GOTO 4 90 

INPUT" 

WHICH DRIVE (0 OR 1 ) " ; DF 
INPUT" 

FILE NAME";DF$ 
IF DF$= n " THEN i850 
IF DF$="END n THEN RETURN 
DF$=LEFT$(DF$, 8) +"/DAT" 4 
OPEN"0",l, DF$ 
DR$=CL$ 



+RIGHT$(STR$(DF) 



Program continues 
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DIS1 



OS- 



:0 IS DRIVING 



#"% S£ 



DISPLAYED VIDEO is now offering TRS-80* MODEL III with disk drives, one of the 

most reliable disk drive systems on the market, for incredibly low prices!! 

MODEL III with 48K ram, dual 80 track double-density disk drives, complete systems 
with Newdos 80 and one box of diskettes 
PLUG IT IN AND GO . . ,. $2,250 

MODEL III with 48K ram, dual 40 track double-density disk drives, complete systems 
with TRSDOS and one box of diskettes 
PWG it IN Af0 GO $1,850 

Disk Drives: Includes case and povvpr supply gg| |B tota 

40 track disk drive „_ airTQI -fpflV-W- w $269 

80 track disk drive . . . . "MM^[. . WLttK- * • -IL $385 

f/80 track disk drAef . W-?- ■Bp#' -^ $5 10 
t including case and power supply 
track (bare) disk drive $230 

80 track (Bare) disk drive $335 

80/80 track (bare) disk drive $440 

Drive Cases and Power Supplies: 

5'/2 inch single drive unit and power supply $ 70 

5V£ inch dual drive unit and power supply $1 00 

8 inch single drive unit and power supply $139 

16K RAM Memory Chip (200 NS) $1.95 each 

TRS-80* MODEL III 1 6K $849 

MODEL III Internal Drive Kit: Includes controller board, dual drive mounting bracket, 
dual power supply, all hardware, cables and connectors $399 

We carry a full line of Epson printers 



IMMEDIATE DELIVERY 

90 Days Parts and Labor Warranty 

ar Limited Warranty on Disk Drives 

Dealer inquiries invited 





INTRODUCING THE MEMORY BOX 
MEMORY THAT NEVER NEEDS PROTECTION 

Plugs directly into the CPU or expansion interface. 
Includes its own regulated power supply and ribbon cable. 
1024 bytes of ram in an unused area on the memory map 
(3000-33FF HEX). 

Solves memory allocation problems when using monitor 
programs and utility support routines. 
Programs stay in the memory box even when the CPU is 
turned off. 

For Model I Level II and all DOS systems (4. 16, 32. 48K) 
Price $49.95 

Two utility software programs written for the Memory Box 
are: 

1. Micmon-A powerful machine language monitor (avail- 
able at a keystroke without disturbing main programs). 
Price $19.95 

2. U3000-A utility including cassette level meter program, 
adjustable keyboard denounce, screen print driver, page 
numbering, smart line termination, and more (all available 
at a keystroke). 

Price $12,95 

Special offer complete package $69.95 




9 



THE 2K HIDEAWAY EPROM BOARD 

Accepts 2716 compatible memory chips (not included). 

Includes its own power supply and connector. 

Install a pre-programed eprom or use a ram chip in 

combination with the powerful monitor and utility programs 

sold above "Micmon" or "U3000" (not included) for Model 

I. Level II and all DOS systems (for 16, 32, 48K) 

2K Hideaay $49.95 

THE EASYGRAMER EPROM PROGRAMER 

Attaches to cassette interface on Model I or III. 

Programs 5 volt IK. 2K, and 4K eproms. 

Includes driver program, instructions, cable, and power 

supply. 

Programmer $69.95 

U.V. Eprom Eraser Lamp $49.95 

2716 Eprom Chip $ 8.95 

2K Ram Chip $29.95 

Z.I.F. {/pro Insertion Force Socket) SI 4.95 



< 



Free Shipping in U.S. 

48 Cuntiguuus States 



Displayed Video 

7538 Jackson Road 

Ann Arbor, Michigan 48103 

(313) 426-5086 MasterCard & VISA add 3% 

Michigan Residents add 4% Sales Tax 

To Order: Call (313) 426-5086 or (313) 482-4424 or write DISPLAYED VIDEO, 
7538 Jackson Road, Ann Arbor, Michigan 48103 

rjRS-80 is a trademark of the Tandy Corporation I"ri 



K-See List of Advertisers on page 402 



DISPLAYED VIDEO'S CERTIFIED DATA CASSETTES 
Made of top grade tape formulated by Agfa-Gevaert of 
Germany. 

Cases are of superior grade five-screw construction. 
Guaranteed 100% error-free or your money back. 
Length C-10 C-20 

12 pack .68 88 ea. 

24 pack .58 78 ea 

Norelco style hard plastic cassette cases .21 ea. 
Special offer with every order of 24 cassettes: 
a Pilot Razor Point pen will be included. 
DISKETTES (BOX OF 10) 
Verbatim certified diskettes 
Guaranteed 100% error-free or your money back. 
5'/4 inch MD525-01 
lboxoflO $26.90 

10 boxes of 10 $25.90 
Add $2.00 for shipping & handling. To Order: Send check 
subject to change without no\[ C e^^^"\oney order or caU(313) 426-5086 or(313) 482-4424^ 
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Program continued 



1910 PRINT#1, DRS 

1920 DR$=STR$(TS) 

1930 PRINT#1, DR$ 

1940 DR$=STR$(TA) 

1950 PRINT#l r DR$ 

1960 FOR S=l TO TS 

1970 DR$=SS(S) 

1980 PRINTtl, CHR$(34); DR$; CHR$(34); 

1990 NEXT S 

2000 FOR A=l TO TA 

2010 DR$=A$(A) 

2020 PRINT#1, DR$ 

2030 NEXT A 

2040 FOR A=l TO TA 

2050 DR$=STR$(W(A) ) 

2060 PRINT#1, DR$ 

2070 NEXT A 

2080 CLOSE 

2090 RETURN 

2095 REM NEW 

2100 RUN 

2105 REM FOR 32K POKE 16561,190 

FOR 15K POKE 16562,127 TO RESTORE MEMORY 
2110 POKE 16561, 255 
2120 POKE 16562, 255 
2130 END 
2135 REM GRADES 
2140 GOSUB 580 

2150 IF TS<1 THEN PRINT"NO STUDENTS": GOTO 490 
2160 PRINT 
2170 PRINT"VALID COMMANDS: 

ENTER END CHANGE" 

2180 PRINT 
2190 C$="" 

2200 INPUT"COMMAND OR HELP";C$ 
2210 IF C$="END" THEN 490 
2220 IF C$="ENTER" THEN 2280 
2230 IF C$="CHANGE" THEN 2640 
2240 CLS 
2 250 PRINT "INVALID COMMAND" 

2260 PRINT" " 

227 GOTO 4 90 

227 5 REM ENTER GRADES 

2280 IF TA=NA THEN CLS: PRINT"NO MORE ROOM": PRINT" "• GOTO 490 

2290 TA=TA+1 

2300 A=TA 

2310 INPUT"INPUT TOTAL POINTS POSSIBLE" ;T1 

2320 PRINT-GRADE INPUTS FOR ASSIGNEMNT" ; " # " TA 

2330 PRINT"4-LETTER NAME OF ASSIGNEMNT"": " ; 

2340 GOSUB 4200 

2350 G$=LEFT$(IN$, 4) 

2360 IF G$ = "" THEN 2340 

2370 A$(A)=G$ 

2380 PRINT"WEIGHT OF " A$": 

2390 GOSUB 4200 

2400 IN$=LEFTS(IN$, 4) 

2410 W(A) =VAL(IN$) 

2420 PRINT "ASSIGNMENT # :" TA" " A$(A);" WEIGHT: " W(A) 

2430 PRINT" (TYPE * FOR INCOMPLETES) ": PRINT" # NAME GRADE" 

24 40 FOR S=l TO TS 

2450 PRINT S; LEFT$(S$(S) + n . ",20); 

2455 X=USR(2345) 

2460 GOSUB 4200 

2470 IF IN$=" n THEN 2450 

2480 IF IN$="*" THEN 2530 

2490 IF VAL(IN$)>T1 THEN PRINT"> ";T1;"??": GOTO 2450 

2500 IF VAL(INS)<0 THEN PRINT"<0 ??": GOTO 2460 

2510 IF INS="END" THEN CLS: TA=TA-1: PRINT"GRADES ENDED": GOTO 490 

2520 IF TO100 GOSUB 2590 

2530 IN$=LEFT$(SP$, 5-LEN( IN$) ) +IN$ 

2540 S$(S)=LEFTS(SS(S) , 20+ ( ( A-l) *5) ) +IN$ 

2550 NEXT 

2560 1=1 

2570 GOSUB 580 

2580 GOTO 490 

2585 REM FIND % 

2590 G!=VAL(IN$) 

2600 G1=((G1/T1)*100) 

2610 G=Gl 

2620 IN$=STR$(G) 

26 3 RETURN 

2635 REM CHANGE A GRADE 

2640 PRINT"CHANGE GRADE FOR WHICH ASSIGNMENT #?" 

2650 GOSUB 4200 

2660 IF INS="END" THEN CLS: PRINT"GRADE CHANGE ENDED": GOTO 490 

2670 INPUT"HOW MANY POINTS MAXIMUM?" ;T1 

26 80 A=VAL(IN$) 

Program continues 
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iv'e got 

* DISK DRIVES 

TA400 (40-T) 5289 

TA800 (80-T) $419 

TA400 Flippy $319 

TA800 Flippy $439 

TA400-2 Dual Head $439 

TA800-2 Dual Head $549 

Complete with silver enclosure & power supply. 

All TA Drives are MPl. 

* CABLES 

2-Drive $23.95 

4-Drive $33.95 

Extender Cable $14.95 

* BARE DRIVES 

TA400B $259 

TA800B $389 

TA400B Flippy $289 

TA800B Flippy $409 

* EPSON PRINTERS 

MX80 $469.00 

MX80F/T $579.00 

MX100 $799.00 

Parallel Cables $29.95 

MX 70-80 Ribbons $12.95 

* OPERATINC SYSTEMS 

TRSDOS 2.3 Disk & Manual. . . . $19.95 

LDOS $119.95 

NEWDOS/80 $129.95 

DOSPLUS 3.3.3.3D $89.95 

* IRON 

Disk Drive Power Supply, 

Single $37 

Disk Drive Case (silver)and Base $19 
Memorex Diskettes (bx of 10) . $25 



90 day warranty on DRIVES. Add $5.00 freight per 
drive in cont. U.S. UPS COD charge S1.50. There is also 
a 15 day free trial on TA drives, if not completely 
satisfied I'll refund your money (less shipping) i il 
take exception to improper use or mishandling. 

* RADIO SHACK COMPUTERS 

26-1061 Mill. LI. 4K $595 

26-1062 Mill, LII.16K $835 

26-1065 Mill, 48K, 1 Drive $1695 

26-1066 Mill, 48K-2 Dr-RS232. . $2099 

26-3001 4K color computer. . . $315 

26-3002 16K w/ext. Basic $485 

26-3003 32K w/ext. Basic $566 

26-3501 Pocket computer. . . . $185 

26-4002 Mil, 64K, 1-dr $3288 

* PERIPHERALS - Model I, II, III 

26-1140 OK Exp. interface $249 

26-1140 With 16K Mem. Tstd/Cuar 

$299 

26-1140 With 32K Mem. Tstd/Cuar 

$349 

26-1145 Ml RS232 W/cable $85 

26-1148 Mill RS232 W/cable $89 

26-1172 D.C. Modem I $135 

26-1173 D.C. Modem II $169 

26-1206 CTR-80 Recorder $51 

26-3008 CC Joysticks, pr $21 

26-3010 13" Color Video $353 

26-4150 Mil 8.4MB Disk $3820 

26-4151 Mil Hard Disk NO.2. . . $2970 

16K 200nsec Memory Guar lyr. $29 



YOUR COMPUTER HAR 
EDS. CALL ROSE TODAY! 



* OTHER PRINTERS & ACCESSORIES 

26-1158 Daisy wheel ll $1694 

26-1455 Acoustic cover $339 

26-1447 Tractor Assy $208 

26-1448 Sheet Feeder $1111 

26-1165 Line Printer v $1581 

26-1166 Line Printer VI $986 

26-1167 Line Printer vn $339 

26-1168 Line printer vm $679 

26-1191 Flat Bed Plotter $1695 

26-1195 Digitizer $379 

ANADEX DP-9500, 9501 $1295 

NEC 7730 spinwriter, 55cps. . $2484 
Daisy wheel Printer, 45cps. . . $1779 

Tractor for above $237 

Sheet Feeder for above $1250 

26-1308 Printer Stand $88 

26-4302 Printer Stand $129 

26-1401 or 4401 Printer cable. .$32 

• NEC COMPUTERS 

PC-8001A Keyboard & processor. . 

$1099 

PCSOilA Expansion unit $699 

PC-8031A 2-drive Expansion 

Unit $1099 

PC-8041A Green Phos. video. . $225 
PC-8043A HighRes Color Mon. . $925 



■■■■■■■■■■■■■ 




SPECIAL 




ALL NEW 

double density 
controller 

i »ddc" $149.9:* 

Here's a Double Density Controller for 
Mod. 1 tnat does away with all those data 
separation problems that seem to keep 
cropping up! Rose wouldn't fun ya now, 
would she? Don't be scared of Double 
Density any more. AEROCOMP has design- 
ed some advanced circuitry that even I 
don't understand - but I do know it 
works. Better order now. Quanities are 
going to be a bit short. 

$189.95 complete 
with Dosplus 3. 3D. 
how many do you 
want? 12? 



The complete line of Radio Shack products is 
available through TA with standard RS limited 
warranty. Call me for price and delivery. Just 
cause you don't see it don't mean we ain't got it. 

ROSE 



12" Screen * Green Phospher 
This is the one you have been waiting 
for well built, works great with the 
model l. Also has 40/80 column switch so 
the Apple folks can use it. 90 day warran- 
ty good Nationwide. Sell your old Model I 
monitor and be the first on your block to 
have a "reat'green screen. 

12" zenith creen Phos. Mon $135 

cable for Model I $7 



* RADIO SHACK SOFTWARE 

I have most all R/S software instock 
and it can be yours at 15% off tne 
R/S retail price. Call me for the 
latest availibility. 

DOUBLE DENSITY 
DATA SEPARATOR 
FROM AEROCOMP 
$49.95 

If you own a PERCOM DOUBLER A"*, "DOUBLER 
il " or ' LNDoubler ** upgrade it with the "DDS . 
Plugs right in. no more lock-out! you deserve 

one of these. 



RDER NOW! 




Write or call ROSE toll free at 
1-800-527-3582. Texas residents call 
214-234-1770. Please use the toll 
free lines for orders and literature 
reouests only. Technical help or ser- 
vice use the Texas line. Prices are 
mail order only, you pay by VISA or 
mastercard, you can send check or 
money order (allow a couple of 
weeks for personal checks to clear) 
or order COD (we ship COD'S cash, 
certified check or money order on- 
ly). 25% deposit required on all COD 
orders. Rose will take American 
money in just about any form. Add 
freight (UPS where possible) on all 
orders/Texas residents cough up 5% 
sales tax. Allow 2-4 weeks for 
delivery. Order today - l need the 
money! 



RDSON, TX 75080 
214-234-1770 



Trademark or PERCOM data CO., '•Trademark of LNW * TRS80 & Radio Shack are trademarks of Tandy Corp. Copyright 1981 TOTAL ACCESS 



•81 



■ See List at Advertisers or, page 402 



80 Microcomputing, March 1982 • 199 



Program continued 



2690 IF A<1 OR A>TA THEN PRINT"NO SUCH ASSIGNMENT!": GOTO 2640 

2700 PRINT" ENTER STUDENT NUMBER "; 

2710 GOSUB 4200 

2720 IF IN$="END" THEN 2660 

2730 S=VAL(IN$) 

2740 IF S<1 OR S>TS THEN CLS : PRINT"NO SUCH STUDENT": GOTO 2640 

2750 PRINT"STUDENT ";S;" " ; LEFT$ ( S$ ( S) , 20); 

2760 PRINT MID$(S$(S), 16+(5*A), 5) 

2770 PRINT"CHANGE GRADE TO: "; 

2780 GOSUB 4200 

2790 IF IN$= n " THEN 2770 

2800 IF IN$="*" THEN 2840 

2810 IF VAL(IN$)>T1 THEN PRINT" > Tl ??" : GOTO 2750 

2820 IF VAL(IN$)<0 THEN PRINT"<0 ??": GOTO 2750 

2830 GOSUB 2590 

2835 REM FOR LEVEL II CHANGE 2840 TO: 

S$(S)=LEFT$(S$(S) , 15+(A*5))+LEFT$(SP$, 5-LEN(IN$))+ 
N$+MID$(S$(S) ,16+5+(A*5) , 5*(TA-A)) 

2840 MID$(S$(S), 16+(A*5), 5) =LEFT$ (SP$, 5-LEN ( IN$) ) +IN$ 
2850 1=1 
2860 GOSUB 580 
2870 GOTO 490 
2875 REM SORT ROUTINE 
2880 GOSUB 580 
2890 PRINT 

290 INPUT" WHICH FIELD DO YOU WANT TO SORT ON, NAME, AVERAGE, OR POINTS 
;IN$ 

2910 IF IN$="AVERAGE" THEN 2960 
2920 IF IN$="POINTS" THEN 2960 
2930 D1=0 
2940 L1=LEN(S$(1) ) 
2950 GOTO 2980 
2960 D1=21+(5*A) 
2970 Ll=5 

2980 IF TS=0 THEN PRINT"NO RECORDS IN FILE": RETURN 
2990 X(0)=TS 

3000 X(1)=VARPTR(S$(D) 'ADDRESS OF RECORDS 
3010 X(2)=D1 'DISPLACEMENT 

3020 X(3)=L1 'LENGTH 

3030 Z=USR 1(VARPTR(X(0) ) ) 
3040 FOR 1=1 TO TS 
3 050 PRINT I;" ";S$(I) 
3 06 NEXT 
3 07 RETURN 

3 07 5 REM NAMES ROUTINE 
3080 GOSUB 580 
3090 PRINT 

3100 PRINT"VALID COMMANDS:" 
3110 PRINT" 

ADD CHANGE DELETE NEW" 

3120 PRINT 
3130 C$="" 

3140 INPUT "COMMAND OR HELP";C$ 

3150 IF C$="END" THEN CLS: 1=1: GOSUB 580: GOTO 490 
3160 IF C$="ADD" THEN 3790 
3170 IF C$="DELETE" THEN 4030 
3180 IF C$="CHANGE" THEN 3560 
3190 IF C$="NEW" THEN 3200 ELSE 3080 
3195 REM NEW CLASS 
3200 CLS 
3210 PRINT 
3220 PRINT 

323 PRINT"NAME OF CLASS? "; 
3240 GOSUB 4200 
3250 CL$=IN$ 
3260 TS=0 
327 TA=0 

3280 PRINT"YOU MAY NOW TYPE IN NEW NAMES" 
3290 PRINT"TYPE IN 'END' AFTER LAST NAME IS ENTERED." 
3300 TS=TS+1 

3310 IF TS>NS THEN PRINT"CAN'T TAKE ANY MORE STUDENTS": GOTO 3410 
3320 PRINT TS": "; 
3330 GOSUB 4200 
3340 IF IN$="END" THEN 3410 
3350 IN$=LEFT$(IN$, 20) 
3360 L=LEN(IN$) 
3370 IF IN$="" THEN 3320 
3380 IN$=IN$+LEFT$(L$, 20-L) 
3390 S$(TS)=IN$ 
3400 GOTO 3300 
3410 TS=TS-1 
3420 GOSUB 2880 
3430 FOR 1=1 TO 600 
3440 NEXT I 
3 450 RETURN 
3 46 CLS 



Program continues 
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5MILE 

WHEN YDU 
5 AY TAPE ! 




"KWICOS" 



S 359 

The reasonable alternative to Model I DISK. Software 
only, no mods or add-ons. This is NOT just a simple 
speed-up. but the easy-to-use and reliable KWIK 
Cassette Operating System to upgrade your CTR. 

KWICOS acts like part of Level II to give you: 

• Selectlble SAVE' LOAD speed, 2x through 6x. 

• Visual loading guide for easy volume setting. 

• Control of ail features by simple BASIC commands. 

• Write, read, verify, and search capability for all 
BASIC and Machine-Code programs in KWIK format. 

• Up to 32 character program titles, with optional 
password protection and in-title comments 

• Display of program filespecs, including length. 

• No lock-ups or garbage from a busted load. 

• Automatic gaps between each program on the tape. 

• Catalog feature that reads the program names. 

• Test-read of KWIK programs without affecting RAM 

• Chain (simple merge) of BASIC programs from tape. 

• Full compatability with the Lemon-Aid Loader 
Cassette for Model I. Level II ISXklllS 

PPdTs $24.00 ! 

Trademark of 

Lemons Tech Services 



P.O. Box 328 
Bolivar, MO. 65613 



TRS-80* MAGK 




Tak Ik Lead OK (joint Wind" 



Virtually Ends Tape Load Woes 
Reliably Loads "Impossible" Tapes 
Ends Tricky Volume Settings 

Invaluable 'or Regular CLOAD and 

SYSTEM Loads 
Great for High Speed KWICOS" Too 

Install in Seconds ... Simply Plug Between 
Cassette and Computer 

ORDER TODAY FROM: 
LEMONS TECH SERVICES 

DRAWER 429 DEPT. 80"M 

BUFFALO, MISSOURI 65622 



• TRS-80 IB Trademark Tanfly Corp 
•KWICOS Is Trademark KWIK Sollwa 



^-358 



REMARKABLE TRS-80 

DISK DIRECTORY 

CATALOGUE SYSTEM 

Catalogue contains Fllespec. FIRST LINE REMARK, 
disk ID, disk name, disk date and free grans 

Model I using TRSDOS 2.3 or any Version NEWDOS 

Clses fast machine code for reading and sorting. 

S39.95 + $2.00 S/H Reg. 48K Two5' Drives 

Satisfaction guaranteed or return within 10 days. 

DONALD M. FIELDING 
2207 N.W. 61st PLACE . MARGATE. FL 33063 

(305) 972-6744 

Dealer Inquiries Invited 

TRS-80 and TRSDOS ■ Trademark of Tandy Corp 

NEWDOS ■ Trademark Apparatlnc. 



Simpu 

UTILITY PROGRAM 1 1 FROM HMAffiG 



SIMPUT is a flexible random access 
program for TRS 80 Model I* that lets 
you manage extremely complex data 
with great simplicity. It allows you to 
create records from one byte to more 
than 85,000 bytes long, with as many 
subrecords as you need, and it can be 
used with Microsoft's Basic Compiler. 



SIMPUT has been tested to be 
compatible with TRSDOS* (can be 
compiled), DBLDOS* (also can be 
compiled), NEWDOS+, NEWDOS 80*, 
NEWDOS 80 V.2*, and NEWDOS 80, 
with Double-Zap/ll* 

Available on Disk 
$29.95 
508 (206) 382-6632 



-TRs so model i trsdos tms. tandy corp: dbldos tm. percom Hikari Group 3032 Fourth Avenue West 

DATA CO: NEWDOS-, NEWDOS 80. NEWDOS 80 V 2 TWS. ARARAT. q p „ 1t | p Wa^hl nfTtOn 98119 
INC: DOUBLE-ZAP/I I TM. SOFTWARE. ETC Oeauie, VVdblll My lUF I SO I 13 




S.h 




Own 



} ^DX 



DEMI., 



-case "W 

Encloses LNW and MDX 

P.C. Boards, plus 
Cabling, A/C Cords, etc. 

Silver-Gray Fiberglass 

S32.50 plus $2.50 shipping 
N.Y.S. residents add 7% tax 

SYRACUSE R&D CENTER 

Box 125, Dewitt, N.Y. 13214 

'Specializing in Electronic Packaging" 



PAC-A-MAN 

Now the excitement as the most popular arcade game can 
be yours to enjoy anytime on your home computer. 
You guide PAC-A-MAN through a maze, scoring points 
by munching up the squares in his path. Monsters chase 
after PAC-A-MAN trying to eliminate him. Power cap- 
sules enable him to overpower the monsters for additional 
points $9.50. 

ALL GAMES MODKL I LEVEL II & 
MODEL III LEVEL III 

OTHER TMS PROGRAMS 

BLACK KNIGHT $7.95 

ACTION PACKAGE 1 $8.95 

(Bomber & Torpedo) 
ACTION PACKAGE 2 $8.95 

(Star Fighter & Indy 500) 
ACTION PACKAGE 3 $8.95 

(Pinball & Bomb the City) 
ACTION PACKAGE 4 $8.95 

(Space Monsters & Polaris II) 

BERSERK $9.50 

MISSILE DEFENSE $9.50 

FROGGIE $9.50 

Z-80 DISASSEMBLER $9.50 

All games include graphics and sound. Cassettes Only. 
POSTAGE INCLUDED IN PRICE. PA. residents add 6% tax. 
FAST Delivery. Check or Money Order ONLY. 

JMS CORP 

BOX 10083 PITTSBURGH, PA 1S23G 




Back Issues 

January 1 980 $5.00 

February to June 1980 3.00 

Single back issue 
July 1980 on 3.50 

Single back issue 

Add $1.00 per magazine for shipping. 

10 or more back issues 

add $7.50 per order for shipping. 



STARK SOFTWARE 

introduces 
TIME-TABLE 

A NEW CONCEPT IN 
MICRO-COMPUTER SOFTWARE 



TIME-TABLE is a tested, interactive time manage- 
ment program developed lor the TRS-80 Models l/lll 
by a leading designer of decision aiding software. 

TIME-TABLE provides the busy manager, pro- 
fessional, project planner, personal user, among others, 
with a versatile tool for maintaining files of time-related 
activities TIME-TABLE includes features tradition- 
ally associated with computer mainframes, such as: 

• Simplistic user customization - requires no 
programming 

• Conversant menu-driven displays & controls 

• Extensive data entry, edit & updating capabilities 

• Convenient data review, search & documenting 
controls 

• Automatic on-line time sorting 

• Extensive error trapping & user prompting 
functions 

• Efficient data storage & file management oper- 
ations 

TlME-TABLE versatility can be illustrated by the 
following list of "designed-tor" applications: 

• Business & personal calendar maintenance 

• Project planning & control 

• Construction planning & control 

• Transportation scheduling 

• Production planning & control 

• Professional appointments management 
TIME-TABLE was exhaustively tested and certi- 
fied and includes a comprehensive user's manual 
Requires (Mm.): TRS-80 Model l/lll; Cassette rcdr: 
Tape Ver.'-32K RAM, Level ll/Model III ROM 

Disk Ver. - 48K RAM, 1 Drive, Disk BASIC. 

TIME-TABLE is available on a premium program 
cassette complete with users manual for an intro- 
ductory price of $29.95.* 

To place an order, mail to the below address or use 
the order phone 



ffl 



^503 

STARK SOFTWARE 

P.O BOX 695 
RICHBORO. PA 18954 



^See List of Advertisers on page 402 



ORDER PHONE: (21 5) 493-51 11 

Orders can be placed using bank check, money 

order, personal check (Allow 2 wks. to clear) or 

VC.O.D. Include $1 50 Postage & Handling 

*PA Residents include 6% Sales Tax 
•TRS-80 is a trademark of Tandy Corp. 



80 Microcomputing, March 1982 • 201 



Program continued 



3470 PRINT"" CL$" n 

3480 IF TS<0 THEN PRINT"NO STUDENTS": PRINT" "• GOTO 490 

3490 FOR S=l TO TS 

3500 PRINT S; LEFT$(S$(S) , 20) 

3510 NEXT 

3520 FOR 1=1 TO 600 

3530 1=1 

3540 GOSUB 580 

3550 GOTO 490 

3555 REM CHANGE NAMES- 

3560 CLS 

3570 PRINT-CHANGE" 

3580 PRINT" :--" 

3590 PRINT" 

TYPE IN STUDENT NUMBER:" 

3600 GOSUB 4200 

3610 IF IN$="END" THEN CLS: PRIMIDONE " : PRINT" "• GOTO 490 

3620 S=VAL(IN$) 

3630 IF S<1 OR S>TS THEN PRINT"NO SUCH STUDENT NUMBER": GOSUB 4220: GOTO 30 
80 

3640 IF S<=TS THEN PRINT"OLD NAME* "; LEFTS ( S$ ( S) , 20) 

3650 PRINT"NEW NAME IS? "; 

3660 GOSUB 4200 

3670 IF IN$="" THEN 3650 • 

3680 IN$=LEFT$(IN$, 20) 

3690 L=LEN(INS) . ■ 

3700 IN$=IN$+LEFT$(L$, 20-L) 

3710 S$(S)=IN$+MID$(S$(S) , 21, LEN(S$(S))) 

3720 GOSUB 2880 

3730 FOR 1=1 TO 600 

3740 NEXT I 

3750 CLS 

37 6 PRINT "NAME CHANGED" 

3770 PRINT" " 

3780 GOTO 490 

3 7 85 REM ADD NAMES 

3790 CLS 

3 80 PRINT" ADD" 

3810 PRINT" " 

3820 TS=TS+1 

3830 IF TS>NS THEN PRINT" TOO MANY STUDENTS": TS=TS-1: GOTO 3080 
3840 PRINT- 
ENTER NEW STUDENT NAME " 
3850 GOSUB 4200 
3860 IF IN$="" THEN 3840 
3870 GS= n " 
3 8 80 FOR 1=1 TO TA 
3890 G$=GS+GR$ 
3900 NEXT 

3910 SS(TS) =STRING$(20, 32) +G$ 
3920 IN$=LEFT$(IN$, 20) 
3930 L=LEN(IN$) 
3940 IN$=IN$+LEFT$(L$, 20-L) 

3950 S$(TS)=IN$+MID$(S$(TS) , 21, LEN(S$(TS))) 
3 96 GOSUB 28 80 
3970 FOR 1=1 TO 600 
3 9 80 NEXT I 
3990 CLS 
4000 PRINT-NAME ADDED" 

4010 PRINT" " 

4020 GOTO 490 

4025 REM DELETE STUDENT 

4030 CLS 

4040 PRINT-DELETE" 

4050 PRINT" " 

4060 PRINT 

4070 PRINT-ENTER STUDENT NUMBER TO BE DELETED" 

4080 GOSUB 4200 

4090 S=VAL(IN$) 

4100 IF S<1 OR S>TS THEN CLS: PRINT"NO SUCH STUDENT NUMBER": GOSUB 4220: GO 

4110 PRINT-IS THIS THE NAME YOU WISH DELETED? (Y OR N) "• LEFTS (SS (S) 201- 
4120 INPUT INS f\o9\o) , i.*) , 

4130 IF IN$O n Y" THEN 490 

4140 S$(S)=S$(TS) 
4150 TS=TS-1 

4160 CLS 

4170 PRINT"NAME DELETED" 

4180 PRINT" " 

4190 GOTO 490 

4195 REM FOR LEVEL II INPUT INS 

4200 LINE INPUT IN$ 

4 210 RETURN 

4220 FOR 11=1 TO 600 

4230 NEXT II 

4 240 RETURN 
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GOSCIB : 



GQSUBS MX80/70 FRICTION FEED KIT ONLY $49.95 ppd 

• USE SINGLE SHEET PAPER 

• USE INEXPENSIVE ROLL PAPER 

• USE YOUR OWN LETTER HEAD 

" DOES NOT AFFECT PINFEED USE 
PRINTERS PRINTERS PRINTERS 

EPSON MX80 $515 ppd EPSON MX100. . .... . $825 ppd 

Microtek's BYTEWRITER-i $299 ppd 

THE PRINTER STAND $29.95 

SAVE MONEY AND SPACE 
Holds almost any printer that uses 9V 2 " size paper or forms. 
Made from '/<" acrylic, allows 3" of paper or forms to be 
stacked under printer. Great for use with bottom load printers! 
Fits: MX80/70-Microline 80's-BASE 2-850-Bytewriter-1 and many more! 

AUTHORIZED DEALERS FOR THE GOSUB FRICTION FEED KIT 

USA 

OMEGA MICROS 

3819 West Michigan Si 
Milwaukee. Wisconsin ! 
1.41419316068 



ALPINE COMPUTER CENTER 



2626 S Alpine Rd 
RocklotO. IL6U08 
(815)229-0200 

AUSTRALIA 
COMPUTER CAMPUS Pty. Ltd. 

1 1 Rundle Sueel Kent Town 

South Ausi'aiia. 5067 

Ph 08 424826 Ieie« 88156 



EXATRON 

181 Cotrimetciai Si 

Sunnyvale. CA 94086 

IBOOI 5368559CA (408l 737 7111 

CANADA 

MICROWEST Dist. Ltd. 
1940 Larson fid . 
North Vancouvei 8 C 
Canada V7M 2Z8 
1604)9869998 or 9886877 



STRATEGY SIMULATIONS 

MERCENARY FORCE 
Command a mercenary army. 
Decide the number of men. type 
Of weapons, armor, air support, 
medical aid and transports. Bat- 
tle the enemy in jungles, under- 
water, on moons and in space 
(1-4 players) 

TRS-80 L2 16K S16.95 

We have just about everybodys software. 
Call us and tell us what you want. We've got it! 



SPACE MERCHANT 
Build an Empire in the stars, 
Choose yoor cargo, means of 
shipping, and security. Risk 
pirates, ion storrris, engine failure 
and other hazards while you try 
to become a Space Merchant. 

(1 (5 playes) 

TRS-80 L2/16K $9.95 



KANSAS RES ADD 3% SALES TAX 

ALL PRICES SUBJECT 'O CHANGE WITHOUT NOTICE 

FREE CATALOG UPON REQUEST 



GOSUB Infl, Inc. 

501 E. Pawnee, Suite 430 

Wichita, KS 6721 1 

(316)265 9858 



SEND CHICK OR MONEY ORDER TO 
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GOSUB 

P.O. Box 275 
Wichita. KS 67201 
(316)265-9992 



STOCK MARKET 
SOFTWARE 

By H &H Trading Company for Mod. I, II, & III TRS-X0»s 



STOCK TRACKER™ times trades on individ- 
ual stocks and options. Uses a technical volume 
analysis. Completely objective. Gives buy, sell 
signals. 

MARKET TRACKER™ times tops & bottoms 
on the Dow Industrials; a composite of six tech- 
nical indicators. Some judgement required. 
Gives buy, sell signals. 
These two programs are accurate. 
Hundreds of satisfied users. 

ASK FOR THE EVIDENCE ! 

FOR MORE INFORMATION OR TO ORDER, CONTACT: 

H c& rU WSDING CQMcplNY 



POST OFFICE BOX 549 

CLAYTON, CALIFORNIA 94517 

Telephone 415/672-3233 

VISA & MASTERCARD 
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"jReqd TM of Rodio Shack 



© 



TIME 



# ® *£ 



METHUSELAH has time for you 
and your TRS-80 



The name Methuselah has always been associated with long life. The Methuselah 
computer clock board with its 24 hour clock and its perpetual calendar is indeed worthy 
of the title. Methuselah puts state of the art technology into action with the on board four 
year lithium battery back up to keep it running even when ,,our computer is off. That 
means no more fooling around with the software or hardware "clocks" that become Rip 
Van Winkles when the computer is reset or turned off. ' 

Methuselah has many other timely features. Software patches keep the DOS and BASIC 
time and clock commands ticking. Only two screws mount Methuselah inside the expan- 
sion interface without soldering, clipping, cutting, or jumpering. There is even a spare 
1/0 port and four different interrupts available for people who love to tinker. 

SPECS: MM/DD/YY. HH:MM:SS and day of the week. Four year lithium battery 

back-up. Crystal controlled timing (adjustable 32.768 oscillator). Twenty four 
hour clock and perpetual calendar. 



Send check or money order to: 



[Ddhm 

NDM DESIGNS ^i 67 

6330 W. North Ave. 

Wauwatosa, Wl 53213 

(414) 259-0120 



M-Sl $97.00 

(add $4.50 P and H) 

S-Sl $17.50 

(add $2.50 P and H) 
(If you wish to use Methuselah 
and the RS-232 board (26-1145) 
together, order this option which 
includes a new cover and con- 
nector.) - 
WI residents add 4% sales tax. 



METHUSELAH is a 
trade mark of NDM Designs 



The 
Intersoft 



C 



Compiler 



for the TRS-80 Model I and Model III 

* Fully compatible with all known TRS-80 Disk Operating 

Systems 

* Compiles C programs into a form which may be assem- 
bled into a cmd file on disk 

* No knowledge of assembler required 

3 Compatible with disk EDTASM or Radio Shack Disk 
Editor-Assembler 

* Features Unix-style parsing of command lines, with full 
i/o redirection for all C programs 



* detailed Users Manual 

* sample programs 



Package includes: 

* read \ -1 o-ru n co m p : le r 

* source code for all support 

libraries 

library contains over 30 functions, including: 

* memory allocator * string manipulation functions 

* numeric functions * DOS interface routines 

* and a complete i/o package, including print(f) 

Also available for CP/M and 6809/ Flex systems 
Available soon for OS-9 

Price: $75.00 for complete package; manual available separately for 
$15.00 (applicable towards purchase of complete package.) 
Ontario residents please add 7% Provincial Sales Tax. 

Please specif \ youi operating system and assemblei when ordering. Personal 
cheques take 15 banking days to clear. Send cheque or money order to: 

Intersoft Unlimited M 

Box 383 Station C, Kitchener- Waterloo Ontario, N2G3Y9, Canada 

Unix is a trademark of Bell Labs 
OS-9 Microware Systems Corp. Flex Technical Systems Consultants 

CP/M Digital Research Corp. TRS-80 and EDTASM Tandy Corp. 



sSee List of Advertisers on page 402 
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AUTOMATIC 

DENSITY 

RECOGNITION 

for Newdos/80 Version 2.0 



I 



The evolving line of Apparat operating 
systems has constantly met with cus- 
tomer approval. However, with the ad- 
vent of double density, many N/80 V2.0 
owners were chagrined by the lack of 
Automatic Density Recognition — the 



TASMON: 

History of a 

Powerful Monitor 



About a year ago, Bruce Hansen, engi- 
neering student at MSU, found himself 
more and more involved with machine 
language programming. This involve- 
ment precipitated the need for a good 
monitor/debugger package. So he got 
one. Not satisfied, he bought another. 
Still not happy, he purchased a third. 
After the SEVENTH package, he gave 
up looking. 

What Bruce wanted was ONE package 
that would fulfill all his needs. So what 



NEWS FLASH: 



The SMARTEST of al 

Terminal Packages 

is also the 

LEAST EXPENSIVE 

llll 



Attention wise shoppers! Looking for 
the most features and capabilities per 
dollar? Then add Modem 80 to your list 
for comparison. Dollar for dollar, byte 
for byte, Modem 80 will work its way to 
the top of your list! 



capability to recognize both single and 
double density diskettes. Both can be 
online at the same time, but we have to 
reconfigure the PDRIVE parameters as 
we change density. That is no longer a 
problem. Headaches gone! 

DDSD/CMD was designed by Allan J. 
Domuret, noted author for many pop- 
ular computer magazines. DDSDisno 
more complicated than just executing 
it from DOS READY. No disk ZAPS of 
any kind are required. DDSD can even 
be an "AUTO" file. This program func- 
tions with all TRS-80 DOS systems and 
will not adversely affect fast CPU clock 
systems. DDSD will load itself at top of 
available memory, respecting any and 
all programs present. DDSD is compa- 
tible with both Mods I and III. 



DDSD is available only on cassette, but 
will easily convert to a disk file by use 
of LMOFFSET, a utility available to any 
NEWDOS owner. 

The general availability of this utility is 
exciting news for ail N/80 V2 persons!! 
Even more exciting is the price: $1 9.95, 
less than half the price of similar utili- 
ties. And that's not all... 

For a limited time, DDSD can be yours 
for just $10 -- if you subscribe to TAS at 
the same time. Twelve issues are $24, 
DDSD is $10. For maximum value, our 
special FLY offer is still available ($45 
for 24 issues, FLY is free). There is no 
better time to check out this journal, so 
do it now! TAS focuses exclusively on 
the Mods I and III. DDSD/CMD, alone, 
is $19.95 plus shipping. 



commands and features does the ideal 
monitor/debugger/disassembler pack 
have? He sat down, made a list, made a 
few inquiries, and set to work. 

A couple of months later, he had what 
he wanted and needed. He was proud, 
but needed assurance. So he put it into 
the hands of several key people ~ from 
experts at Z-80 programming to people 
who had never used a monitor before. 
In exchange he got feedback; he heard 
about errors, improvements were sug- 
gested, additional features were asked 
for, he found out which parts of the in- 
structions weren't clear enough. 

He appreciated all the comments, and 
stood up to all the criticisms. He acted 
on them all, until he was satisfied. 

Today, the final version of TASMON 
has more than proven itself. Hundreds 
of people use it and love it, for 3 main 



reasons: it's very easy to use and un- 
derstand, it's very powerful & versatile, 
and all the features are right there, in 
one neat, well-implemented package. 
TASMON has received thumbs-up ap- 
proval from such people as Bill Barden, 
Jr of Assembly Line fame, Roger Fuller 
of Soft Bits fame and Roxton Baker of 
TRAKCESS fame. 

So rather than buying a disassembler, 
a single-stepper, a monitor, and a file 
transfer utility, why not spend less and 
get it all in one package? TASMON, its 
52 page User's Guide, a handy refer- 
ence card, and tape or disk media, is 
just $29.95 plus shipping. Works on I 
or III. We guarantee: you will NOT find 
more powerful features for less money! 
A strong statement, but hard to prove 
wrong. Watch for reviews coming up in 
several major magazines for more de- 
tailed information. 



The Modem 80 package contains sev- 
en programs to meet all of your needs. 
MODEM80/CMD is the main terminal 
and file transfer program. HOST1 per- 
mits remote control of the computer. A 
file transfer utility called XMODEM is 
included. SAVE permits off-line text 
preparation. TEXTFIX is a program to 
clean up text files so they'll load into a 
word processor; it removes extra line- 
feeds, control characters, etc. HEX is 
the program to convert binary files to 
ASCII hex characters, and the reverse. 

These seven programs (collectively, 
"Modem 80 Communications Pack", 
feature all of the capabilities of pro- 
grams currently costing up to $200. 
COMPARE: does the competitive pro- 
gram limit file-receiving and transmit- 
ting to the amount of available MEM? 
COMPARE: does the competitive pro- 
gram include a file to "clean up" messy 
transmissions? COMPARE: does the 



competitive program permit single line 
transmissions, for computers not able 
to accept full-speed data? COMPARE: 
are you able to execute, from within the 
program, DOS commands? Does the 
competitive program support ALL the 
popular DOSes (including CP/M)?? 
COMPARE!! 

The Modem 80 Communications Pack 
contains all these features, and plenty 
more. It's wise to shop around before 
making a decision, especially when it's 
possible to save over $100! To make it 
easy for you, purchase the Modem 80 
User's Guide for $5.00. Compare fea- 
tures and prices. When you've made a 
decision, the $5 will be applicable to- 
wards the purchase price. Modem 80 
sells for $39.95. The User's Guide is in 
a sturdy notebook for easy storage and 
reference. Modem 80 is compatible on 
either I or 1 1 1, and with your favorite OS. 
Requires 32K Disk System. 
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Can't afford that trip around the world 
the year? Not going to get to visit the 
Mayan ruins in Mexico? NASA 
rejected your application to take 
the Lunar Cruise Tour? Well, relax. 
Now you can have these and dozens 
more adventures in the comfort of 
your own home, compliments of your 
friendly TRS-80 and TAS. 



The Adventure System is a new concept in adventuring. We supply the 
tools, you supply the imagination. Don't confuse The Adventure Sys- 
tem with lesser quality products: The Adventure System allows you to 
create a data base containing your adventure instructions. This data 
base is then used by the machine language adventure driver to propel 
you into the worlds of your imagination! 

Business folk have their "last one ". Now games people can have theirs, 
too! The Adventure System may very well be the last adventure you ever 
buy! Just think! You can now write your own adventures that take place 
in your own home! Or adventures that feature your friends as charac- 
ters! Write short, simple adventures that your young ones can enjoy, 
or long, tough ones that you can market! The possibilities are endless!! 




18s3 




What's included in The Adventure System package? A BUNCH: 

■ ADVEDIT, the main adventure editor. This is the program that allows 
you to design and modify yours (or others) data bases. 



ADV/CMD. This is the machine language driver program that reads 
and executes your adventure data base{s). 

Three adventures. Two of them, Miner's Adventure and Burgler's 
Adventure, are complete adventures which will provide hours of fun 
and entertainment. The third, Mugger's Adventure, is a "baby" ad- 
venture which is described step by step in the manual. Can you get 
to your car without getting mugged? 

A complete user's manual, over 50 pages of detailed, easy to follow 
instructions, in a handsome, sturdy notebook. 

An invitation to join the Adventure User's Group. With a System as 
complete as TAS, there is much to explore and learn. We can either 
ail reinvent the wheel, or we can share our knowledge. Better adven- 
tures for everybody! 

I ll 



ISSUES 1 - 6 OF TAS . . . 



in convenient book form! 



Year One of The Alternate Source magazine consists of six issues, over 300 pages, of 

useful, valuable information pertaining to your Model 1 TRH-80. Kaoh issue appears 
just as it did upon release -• no additional editing was performed. Includes articles 
such as PENRAM, a scrolling RAM editor; Undocumented Z-80 Opcodes; Making 
Your Machine Language Programs Relocatable; RAMSTUFT, a summary of the 
RAM memory locations used by Level II BASIQDisk MASK: * DOS; and others. A 
WEALTH of programming knowledge •■ and it's just 114.95!! 
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OVER 300 
PAGES ! 



□ I'll subscribe to TAS! 12 issues, $24. 

D I'll subscribe to TAS! 24 issues, $45. Send FLY! 

□ I subscribed, send DDSD/CMD for $10. 
D Send me DDSD/CMD for $19.95. 

D Please send me a TASMON disk for $29.95. 

□ Please send me a TASMON tape for $29.95. 
D Please send me a MODEM 80 disk for $39.95. 

□ Please send me The Adventure System on disk for $39.95. 

□ Please send me the TAS Bound Volume for $14.95. 



Name: — 

Address: . 

City: 

Slate, Zip: 



Add $3.00 shipping charges. 
Add $1.75 for COD charges. 
NO EXTRA CHARGES for Visa/Master Charge orders! 



Dealer inquiries cordially invited! 



TIF 




s#u 



NKTE 



'XE 



\ew Address! 

The Alternate Source 

704 N. Pennsylvania Ave. 

Lansing, Michigan 48906 

Ph. 517-487-3358 

or 517-485-0344 

Source: TCH565 

Micronet: 70150,255 
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HARDWARE 



Add dual-headed drives to your Model I. 



The Key Box 

Basic Level II 

Model I 

48K RAVI (or 32K min. for disks) 

TRSDOS, NEWDOS80 

Dual-headed Disk Drive 



Hydra-Di 




Matt Robins 
4101 Arch Dr. #6 
Studio City, CA 91604 



Technology moves fast today. 
Three years after the 35 
track Shugart format we have 
dual-headed 5V*" drives capa- 
ble of up to 80 tracks per side. 
Prices are competitive too. For a 
little more than the price of a 
small drive, you can have near- 
ly five times the capacity. To 
double this again, all you need 
is to add a double density hard- 
ware modification. 

The approach should work 
with the TRS-80 Model III and ex- 
ternal Model I disk drive cable, 
but my experience is limited on- 
ly to the Model I. This article de- 
sribes two methods of interfac- 
ing. The first interface is useful 
with one dual headed drive add- 
ed to the initial 35 track system 
drive. For two or three dual 
headed drives the second meth- 
od works in conjunction with the 
latest NEWDOS80. 

The common 35 and 40 track 
drives are designated as 48 tpi 
(tracks per inch). Evidently, the 
head traverses less than one 
inch of disk surface. In high 
capacity drives there are two 
conventions: The 100 tpi format 
pioneered by Micropolis on their 
77 track drives and 96 tpi format, 
standard on everyone else's 80 
track drives. The 96 tpi format is 
twice the track density of 48 tpi. 
It is impossible to read a 100 
tpi disk in a 96 tpi drive, and 
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vice versa, although some man- 
ufacturers supply a drive in ei- 
ther format. 

The innermost tracks of all 
drives are most prone to errors. 
To minimize problems, use good 
disks. Test questionable disks 
with programs such as The 
Floppy Doctor, Ver. 3.0. Cheaper 
single sided disks usually for- 
mat fine on both sides, but are 
not burnished on the side with 
the more critical pivoting head. 
To minimize wear, the two heads 
are offset from one another by 
eight tracks. Double sided disks 
certified for large capacity 
drives are best: Verbatim MD 
557-01 (double sided, 77 track 
certified, soft sectored) or 
Dysan No. 800438 (double sided, 
96/100 tpi certified, and soft sec- 
tored). Verbatim has a hub rein- 
forcing ring for better disk align- 
ment. Large capacity drive track 
widths are only 6 mils, but man- 
ufacturers rate them equal in 



reliability to 8 inch floppy disks. 

Disk Drive Cable 

Figure 1 shows the pin desig- 
nation and function of the Radio 
Shack disk drive cable for Model 
I. The socket at each drive posi- 
tion has certain pins missing; 
Radio Shack apparently re- 
moved them to make it unneces- 
sary for the disk drive owner to 
open up the unit and cut ap- 
propriate DIP shunts. 

Disk manufacturers use pin 
32 as Head Select (side select) 
for dual headed drives. A high 
logic level selects the usual side 
(side 0), a low level on pin 32 
selects the other side (side 1). 
Before dual headed drives the 
old Shugart standard permitted 
selecting one out of a maximum 
of three drives. To select a 
fourth drive, Radio Shack decid- 
ed to use pin 32. Unfortunately, 
most of industry uses pin 6 for 
this purpose. But the Radio 



Shack assignment makes it 
easy to use Drive Position 2 for 
Side of double headed disk 
and a single wire from pin 32 of 
Drive Position 3 to select Side 1 
of the same drive. 

Adding an extra insulation 
displacement socket between 
Drive Positions 2 and 3 with all 
pins present makes the interfac- 
ing job easier because you will 
not need the extra wire going to 
pin 32 of Drive Position 3. Either 
way, your dual headed drive will 
look to the expansion interface 
as two separate drives, Drive 2 
and Drive 3. 

Diode Interfacing 

The hardware needed is a ger- 
manium diode, an 8, 14 or 16 pin 
DIP header, wire and (for the Ra- 
dio Shack cable) a ribbon cable 
plug to mate with the cable 
socket in Drive Position 3. PC 
fingers from an old printed cir- 
cuit board can be used instead 
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Fig. 1. Radio Shack four drive cable. Numbers on connectors indicate missing pins. 
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Newly Revised Mail 

List System. Even bette 

than before! 



PROVEN MONEY MAKERS FOR YOUR TRS-80* 

"Tandy Corp. Trademark 



FORM LETTER( Zt,7XtZ)$39.95 

Create letters and store on disk lust type in your letter con- 
tinuously as vou would with a typewriter and make corrections 
with almost unlimited use of the backspace key What you see 
on the screen is exactly what you get in the printout ...Then print 
the letters using your mailing list. You will be able to select 
continuous printing or cut sheet, paging, tabing. test printing, 
.in/t 'iritinn^l nrjnting on envelopes 



MAIL LIST SYSTEM( 



) $89.95 



Model I or III 
disk only 

Our easy-to-use system will accomodate almost any "custom" 
requirement of even your most demanding clients A glance 
below will show that we are far ahead of any other system in 
speed, variety of features, and sheer volume of names 
handled. ..but don't let that fool you. This system can be used 
lust as easily on one disk for a small Christmas card list 

• Maintain virtually an infinite number of disks all in con- 
tinuous alph or zip order. ..essential for large lists 

• Sort 2260 entries (2 full 40 track double density disks) in 
only i2K or an incredible 4640 entries (2 full 80 track 
double density disks! in only 48K! Made possible with 
our unique date compression techniques on the Model III 

• Super fast sort by alph or zip order (8 sec. for 1000 
entries) both orders can exist simultaneously on disk 

• High speed recovery of entries from disk speed of sort is 
meaningless if retreival from disk is slow . ours pulls in 
over 11 per sec! -- 

• Transfers old files over to our system '^^BHHHH LOOK! 

• In zip order all entries with same zip code are also 
arranged alphabetically 

• Four digit zips have a leading "0" appended on labels. 

• Backup data disks are easily updated as entries are 
created, edited, or sorted. ..extremely useful!! 

• Optional reversal of name about comma for that non- 
computer, personalized look 

• Permits telephone and/or account numbers. 

• Master printouts of your list in several formats (not just a 
rehash of the labels) Optionally continuous or page 
oriented Your customers will want this! 

• Prints labels 1, 2. or 3 across 

• All 0's in address labels are replaced by easier to read 0's. 

• All labels optionally support an "Attn." line. 

• Many user defined fields with plenty of options for 
simultaneous purging and selecting., even allows for 
inequalities ..powerful and easy to use!! 

• Continuous display of numbers of labels/envelopes printed 

• Each disk entry automatically "remembers" how many 
mailings have been made for that particular entry. ..Can 
be tied in with purge/select. 

• Primarily written in BASIC for easy modification... 
embedded machine code for those speed sensitive areas. 

• Editing is simple and fast ..automatic search. 

• Supports the 9 digit zip code. 

• Deleted entries have "holes" on disk filled automatically 

and alph. order is still maintained! 

• Test label printing lets you make horizontal and vertical 
adjustments with ease 

• Optional "one time" mailing for some selected entries 

• Extensive use of error traps (both operator and machine 
induced) even recovers from a power failure during a 
printout 1 recycling on disk errors. 

• Patch program allows you to upgrade the system to 
any DOS. 

• Documentation manual available alone for $4.95. 

• Hardware requirements: 32K, printer, and 1 or 2 drives 



Provide vour customers with a CALENDAR $9.95 

printed calendar (along with standard banker's holidays) of any 
month ot any year Useful in motivating history students. Holds 
the same fascination for students as a game Tape only for 
Model I or Ml 



Same tenure- ,,s ( inlar $ (J PE R C A LE N D A R 
Additionally prints our large 

"graphics'' type wall calendars (tape only) $1 9.95 
with memos uder each day. Use as a planning calendar with 
option*! disk storage require* 1 6l<andprmter 



Football Scouting Report O $89.95 

Charge local high schools and colleges up to $1000 per season 
tor these sophisticated reports Documentation manual 
available alone for $ i Q5 






TRY OUR ONE DAY PC BOARD SERVICE 

Fast service and high quality at a reasonable price 



Tic-Tac-Toe 



For the kids 



( Taoe onlvi 



$9.9. 
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Loan amortization sche- ._..., . . ^ «_._„_.,«.» , 

dules are a must for banks, LOAN AMORTIZATION 

S & L institutions, and $29.95 

accounting turns You wiil 

be able to charge $7 plus per schedule Multiply that times the 
number of all loans your clients make per day ..easiest money we 
know of! runs in about 2 minutes and achieves pin point 
accuracy with a built in calendar. ..This sophisticated program 
produces an exceptionally professional looking printout 



Sign (Tape only) $9.95 

Produce large (reduced 50% here) attention getting signs with 
your printer supports most keyboard characters will print 
multifile lines use alone or interface to your own BASIC 
program. ..requires just oveMbK and a printer 



Interfaces to your own 
basic programs, sort with 
the speed of machine code 
but with the convenience 
of basic lust use your disk 



Precision Prototypes 



410 E. Roca 

Refugio, Tx. 78377 

(512-526-4758) 



FAST SORT 

(handles multiple dim. arrays) 

alpha'betizer 

(disk only) $29.95 

to merge our short basic programs (with embedded machine 
code) with your own basic program. Follow our simple 
instructions to poke several values before making the user call 
from basic The pokes will set up a sort of string, integer, single, 
or double precision arrays (also ascending or descending order) 
Use one of two programs to sort arrays of the form A(1) or 
A(Q(1))...The disk includes 8 simple basic programs that are 
ready to merge with the main sort programs Use them for 
learning and evaluation. Also included is a ready to use basic 
program (already merged with the ORDER program) Use it to 
obtain a printout of alphabetized names This program alone is 
worth $19.95 

Sample Sort Times 
8 sec for 1000 dbl. prec numbers. .50 sec. for 5000 integers 
(Ours is one of the only alphabetizers that both ignores non alph 
characters and treats upper and lower case alike I 



• Specify Model I or III when ordering 

• Add $2.00 for postage and handling 




sSee List ot Advertisers on page 402 
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TO PLUG < 



Fig. 2. Interfacing of Tandon TM 100-4 drives. Dotted lines indicate 
the two jumpers to be wired. One of these, an eight inch lead to the 
plug, connects to pin 32 of #3 cable socket. Pin 6 is not used by 

Radio Shack. Instead, pin 32 is Drive Select 3. 



of the plug. A mating plug will 
have a different pin out than the 
drive, so trace the wiring care- 
fully making sure the single wire 
connects to pin 32 of the drive 
cable socket. Pin 31 accom- 
plishes this on the Kel-Am 
(Eldon, MO) PF-17-2801-0 Rib- 
bon Cable Plug. 

The noise immunity in diode 
interfacing is riot great. You may 
find improper drive selection if 
the extender incorporates a PC 
board. Disk drive extenders con- 
sisting of ribbon cable are better 
shielded because every other 
wire of the cable is ground. If 
you make your own disk drive 
extender, beware of the reversed 
pin designation. To compensate, 
do not connect wire no. 1 of the 
ribbon cable to the plug. Leave it 
hanging loose and let wire no. 2 
be crimped to pin 1 of the plug. 
You will be shifting all wire 
designations by one, assuring a 
proper extender cable. 

For interfacing Tandon TM 
100-4 disk units, Fig. 2 shows 
the layout of the drive's PC 
board. Most of the wiring is done 
on the 16 pin header that fits in 
place of the DIP shunt. Remem- 
ber to insert the header into an IC 
socket before soldering or the 
heat will distort the header. A 
germanium diode, 1N270, pro- 
vides a true logic low level of 
about 0.25 V when the Head Se- 
lect (side select) signal is at low 
level at pin 32 of the PC connec- 
tor J1. This will select Side 1 of 
the drive. The shunt between 
pins 4 and 13 of the header as- 
sures the drive will also be se- 
lected as Drive 2 (side 0). 

The MPI Model 92 requires a 
14 pin header with different des- 
ignation (see Fig. 3). Additional- 
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ly, the shunt between pins 1 and 
14 must be present for Head 
Load with Select operation. 

The newly available Micropol- 
is 1015 Mod VI (96 tpi) and Mod 
IV (100 tpi) need an eight-pin 
header. Only the four Drive Se- 
lect lines are available at the 
header. Unlike other manufac- 
turers, Micropolis uses pin 34 of 
the PCB drive connector to se- 
lect Drive Position 3. Since 
Radio Shack does not use this 
pin, you will have to jumper it to 
pin 32. Follow the scheme 
shown for Tandon interfacing 
on Fig. 2. 

Shugart recently introduced 
the SA460, a 96 tpi dual head- 
ed drive. Their pin assignment 
is similar to Tandon's, except 
a 14 pin header is needed. A 
shunt between pins 1 and 14 is 
also required. 

Using Dual Headed Disk Drives 

The advantage of the inter- 
face is you can read large ca- 
pacity disks using TRSDOS or 
any other Model I DOS, provid- 
ing you keep the directory on a 
single track. Unmodified TRS- 
DOS has no trouble reading a 40, 
77 or 80 track disk but will not 
write pas? track 35. To format 77 
or 80 tracks per side and to write 
data to the disk, you have 
several options. Percom Data 
Company supplies Patchpak #4 
for patching TRSDOS for a 77 
track operation. You need two 
disk drives for this. If neither 
drive is a Micropolis 100 tpi (77 
track) drive, be sure to order the 
Patchpak in 35 track format, 
otherwise you will not be able to 
access the Patchpak disk. 

Once your TRSDOS is patched 
you will end up with a 35 track 
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Fig. 3. Interfacing of MPI Model 92 drives. 



TRSDOS for Drive Position 
that thinks all of the drives are 
77 track. It will give incorrect 
FREE for Drive Position and 

possibly Position 1 if you have a 
second 35 or 40 track drive in it. 

In all other respects it will be 
compatible. With Patchpak you 
can also obtain your patched 
TRSDOS in 77 track format. 

NEWDOS80 lets you custom 
configure your disk system for, 
say, 35 track format in Drive Po- 
sition 0, 40 track format for Drive 
Position 1 and 80 track format in 
Drive Positions 2 and 3. It cor- 
rectly computes FREE and is 
easy to use with multi drive sys- 
tems with a cue card such as 
that supplied for version 1.0 by 
MTC, Incorporated. 

Apparat's Approach 

Apparat recently introduced 
version 2.0 of NEWDOS80, with 
an option specifically for dual 
headed drives. If your NEWDOS- 
80 version 1.0 has all the zaps 
through number 53, you also 
have the option of having up to 
three double sided drives on 
line. Since I do not recommend 
eliminating a 35 track drive from 
your system this approach will 
allow you two additional dual 
headed drives. There is a pen- 
alty for this: You can only ac- 
cess those drives using NEW- 
DOS80. The disks will be un- 
readable by any other DOS, in- 
cluding TRSDOS. 

With the option activated, 
NEWDOS80 redefines a track to 
contain 20 rather than 10 sec- 
tors, with the first 10 sectors on 
Side and the remaining 10 sec- 
tors on Side 1 of the disk. NEW- 
DOS80 looks upon each dual 
headed 80 track drive as a single 
80 track drive with each track 
split between the two sides. Pin 



32 carries the multiplexing sig- 
nal, while pins 10, 12 and 14 of 
the drive cable provide the ac- 
tual Drive Select signal. Each 
dual-headed drive requires two 
simultaneous signals which ex- 
plains why you are limited to 
three drives. Drive 3 is undefined. 

Under NEWDOS80 the inter- 
facing scheme in Figs. 2 and 3 
W!!l woe inly ■i'h one dual 
headed drive in drive position, if 
you need more than one dual 
headed drive, eliminate the 
diode and the wire between pin 
32 of the drive and pin 5 (Fig. 2). 
or pin 6 (Fig. 3) of the header. 
You must also jumper the ap- 
propriate shunts on the DIP 
header for drive selection. With 
a Radio Shack cable with pins 
missing you can jumper all three 
drive select shunts. You will 
have to daisychain pin 32 of 
each dual headed drive PC 
board to pin 32 of Drive Position 
3 socket. 

Although Apparat advises 
buying their disk drive cable 
with pin 32 present in each of 
the sockets, this is not neces- 
sary if you are willing to run the 
single wire instead. With the Ap- 
parat cable you have to cut the 
trace to pin 32 on the PC board 
of any single sided drive, such 
as a 35 track system drive. 

With the interfacing you will 
gain 314 grans (392.5K bytes) of 
user accessible storage in an 80 
track dual-headed drive, or 4.7 
times the capacity of a 35-track 
data disk. You will be up to date 
with today's technology— and 
ready for double density.B 

Matt Robins is a scientist- 
turned-computer specialist. He 
gained experience with floppy 
disks in the R&D department of 
Compucorp in Los Angeles. 



PROGRAMMING TOOLS FOR YOUR 
TRS-80® MODEL I AND MODEL III 



INSIDE LEVEL II 

The Programmers Guide to the TRS-80 ROMS 
INSIDE LEVEL II Is a comprehensive reference guide to the Level II ROMs which allows 
the machine language or Basic programmer to easily utilize the sophisticated routines 
they contain Concisely explains set-ups, calling sequences, and variable passage for 
number conversion, arithmetic operations, and mathematical functions, as well as 
keyboard, tape, and video routines. Part II presents an entirely new composite program 
structure which loads under the SYSTEM command and executes in both Basic and 
machine code with the speed and efficiency of a compiler. In addition, the 18 chapters 
include a large body of other information useful to the programmer including tape 
formats, RAM useage, relocation of Basic programs, USR call expansion, creating 
SYSTEM tapes of your own programs, interfacing of Basic variables directly with ma- 
chine code, a method of greatly increasing the speed at which data elements are stored 
on tape, and special precautions for disk systems. INSIDE LEVEL II is a clearly organized 
reference manual. It is fully typeset and packed with nothing but useful information. It 
does not contain questions and answers. ROM dumps, or cartoons. 
Includes updates for Model III. INSIDE LEVEL II S15.95 

SINGLE STEP THROUGH RAM OR ROM 

STEP80 allows you to step through any Basic or machine language program one 
instruction at a time, and see the address, hexadecimal value, Zilog mnemonic, register 
contents, and step count for each instruction. The top 14 lines of the video screen are left 
unaltered so that the target program may perform its display functions unobstructed. 
STEP80 will follow program flow right into the ROMs, and is an invaluable aid in learning 
how the ROM routines function. Commands include step (trace), disassemble, run in 
step mode at variable step rate, display or alter memory or CPU registers, jump to 
memory location, execute a CALL, set breakpoints in RAM or ROM, write SYSTEM 
tapes, and relocate to any page in RAM. The display may also be routed to your line 
printer through the device control block so custom print drivers are automatically sup- 
ported. 
Specify Model I or Model III. STEP80 $16.95 

TELECOMMUNICATIONS PROGRAM 

This machine language program may be used as a smart terminal with time share 
systems or for high speed file transfers between two disk- based micros over modems or 
direct wire II is menu driven and extremely simple to use. Functions include real-time 
terminal mode, save RAM buffer on disk, transmit disk file, receive binary files, examine 
and modify UART parameters, program 8 custom log-on messages, automatic 16-bit 
checksum venfication of accurate transmission and reception, and many more user 
conveniences Supports line printers and lowercase characters. With this program you 
will no longer need to convert machine language programs to ASCII for transmission, and 
you will know immediately if the transmission was accurate. This program comes on a 
formatted disk. 
Specify Model I or Model III. TELCOM $39.95 

PROGRAM INDEX VERSION 2.0 

Assemble an alphabetized index of your entire program library from disk directories. 
Program names and free space are read automatically (need not be typed in) and may be 
alphabetized by disk or program. The list may also be searched for any disk, program, or 
extension; disks or programs added or deleted; and the whole list or any part sent to the 
printer. Printer output may be requested in three different formats including labels. The 
list itself may also be stored on disk for future access and update. It also includes a 
PURGE mode for quickly killing unwanted files. Directory reads and alphabetizing is 
done in machine code for speed 1.000 programs may be sorted in less than 10 seconds- 
Works with TRSDOS, NEWDOS, and NEWDOS'80 single or double density. One drive 
and 32K required 
Specify Model I or Model III. INDEX $24.95 

4 SPEED OPTIONS FOR YOUR TRS-80 

The SK-2 clock modification allows CPU speeds to be switched between normal, an 
increase of 50%. or a 50% reduction, selectable at any time without interrupting execu- 
tion or crashing the program. Instructions are also given for a 100% increase to 3.54 MHz. 
The SK-2 may be configured by the user to change speed with a toggle switch or on 
software command. It will automatically return to normal speed any time a disk is active, 
requires no change to the operating system, and has provisions for adding an LED to 
indicate when the computer is not at normal speed. It mounts inside the keyboard unit 
with only 4 necessary connections for the switch option (switch not included), and is 
easily removed if the computer ever needs service. The SK-2 comes fully assembled 
with socketed IC's and illustrated instructions. 
Model I only. SK-2 S24.95 



INSTANT ASSEMBLER 

The INSTANT ASSEMBLER is a new, powerful tape-based assembler and debugger for 
the TRS-80. Now you can assemble directly to memory and immediately debug your 
program with the built in single stepping debugger. Quickly switch from assembler to 
debugger and back again without losing the source code. This feature makes INSTANT 
ASSEMBLER an excellent learning tool for assembly language programming. 
INSTANT ASSEMBLER is absolutely unique among tape based assemblers in that it 
produces relocatable code modules that can be linked with the separate LINKING 
LOADER, which is supplied in two versions for loading programs into either high or low 
RAM. This lets you build long programs with small modules. INSTANT ASSEMBLER also 
features immediate detection of errors as the source code is entered, a compactly coded 
source format that uses 1/3 as much memory as standard source, and many operational 
features including single stroke entry of DEFB and DEFW, pinpoint control of listings, 
alphabetic listing of symbol table, separate commands for listing error lines or the symbol 
table, block move function, and verification of source tapes. 

INSTANT ASSEMBLERS debugger provides single stepping with full register displays, 
decimal or hex entry of addresses, forward or backward memory displays, disassembly 
of object code in memory, memory display in ASCII format, and hex-to-decimal or 
decimal-to-hex conversion. The single-stepper will step one instruction at a time or at a 
fast rate to any defined address. 

INSTANT ASSEMBLER occupies less than 8400 bytes of memory. In a 16K machine this 
will leave you enough memory to write assembly language programs of around 2000 
bytes. This and its module-linking feature make INSTANT ASSEMBLER ideal for users 
with only 16K machines. The instruction manual may be purchased separately for $3. 
which will apply towards the purchase of the INSTANT ASSEMBLER. 
Specify Model I or Model III. INTASM $29.95 

RAM SPOOLER AND PRINT FORMATTER 

This program is a full feature print formatting package featuring user defmeable line and 
page length (with line feeds inserted between words or after punctuation), screen dump, 
printer pause control, and baud rate selection In addition, printing is done from a 4K 
expandable buffer area so that the LPRINT or LL 1ST command returns control to the user 
while printing is being done. Ideal for Selectnc or other slow printers. Allows printing and 
processing to run concurrently. Output may be directed to either the parallel port, serial 
port, or the video screen. 
Specify Model I or Model III. SPOOLER $16.95 

MACHINE CODE FAST FOURIER TRANSFORM 

This complete package includes 3 versions of the machine language FFTASM routine 
assembled for 16, 32, and 48K machines, a short sample Basic program to access them. 
a 10K Basic program which includes sophisticated interactive graphing and data manipu- 
lation, and a manual of instructions and examples. The machine language subroutines 
use variables defined by a supporting Basic program to make data entry and retrieval 
extremely fast and easy for custom implementation. They perform 20 to 40 times faster 
than their Basic equivalent (256 points in 12.5 seconds), and require less than 1550 bytes 
of memory. The FFT is useful in analyzing stock market and comodity trends as well as for 
scientific information. 

Specify Model I or Model III. FFTASM $49.95 

DUPLICATE SYSTEM TAPES WITH CLONE 

Make duplicate copies of any tape written for Level II. They may be SYSTEM tapes or 
data lists. The file name, load address, entry point, and every byte {in ASCII format) are 
displayed on the video screen. Model III version allows changing tape speed. 
Specify Model I or Model III. CLONE $16.95 

RAMTEST FOR LEVEL II 

This machine language program is a very thorough test for several types of RAM errors. 
A complete test of each individual bit in a 48K machine takes just 14 seconds. Includes a 
separate test for power line glitches. 
Model I only. RAMTEST $9.95 

EDIT BASIC PROGRAMS WITH ELECTRIC PENCIL 
Load Basic programs or any other ASCII data file into the disk version of Electric Pencil 
for editting. One command from DOS quickly modifies existing files to Pencil format One 
disk and 32K required. 
Model I only. PENPATCH $9.95 



UMFOR 

ICRO 

YSTEMS 



ORDERING: Complete satisfaction is guaranteed or a full refund will be made. All programs 
(except TELCOM) are shipped on cassette unless $5 is included for a formatted (no system) 
disk. Include $1.50 for postage and, handling. California residents add 6% sales tax. Visa. 
Mastercharge and COD orders accepted: SPECIFY MODEL I OR MODEL III. Dealer 
inquiries invited. 

Box 400-E Summerland, California 93067 (805) 969-4557 



^■See List ol Advertisers on page 402 
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BUSINESS 



A versatile business computer. 



CC— Color Computer or 
Chamber of Commerce? 



Richard S. Adcock 
141 NW Lorna 
Burleson, TX 76028 



A rumor is circulating that 
the Color Computer is not 
intended as a business machine 
and that Radio Shack envisions 
it will find only home applica- 
tions. Is the rumor correct? The 
keyboard, for instance, does ap- 
pear insubstantial— more like a 
calculator than a computer; and 
the low band width gives poor 
resolution to the typical color 
television. However, my clients 
continue to point out a rather 
ideal niche in the business 
world for the machine. Tandy 
may be overlooking some real 
business applications for the 
Color Computer. 

The primary appeal of the Col- 
or Computer is low cost. To 
utilize fully the machine's capa- 
bilities, most home users con- 
nect the device to their some- 
what expensive (though probab- 
ly still fuzzy) color televisions; 
but the Color Computer works 
quite well with $80 black and 
white sets. This gives you a 
rather impressive amount of 
computing power in a fairly 
small package for well under 
$500 (or If you use mall order 
franchise dealers, very nearly 
under $400). Because of this and 
the fact that this machine has a 
built in RS-232 port, the Color 
Computer is an attractive alter- 
native for a variety of applica- 
tions which require smaller 
amounts of internal memory. (If 
you want more memory, devices 
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such as Spectral Associates 
Rarncharger add substantial 
amounts of memory for very lit- 
tle extra cash.) With the RS-232 
port, the computer transfers 
data utilizing an industry stan- 
dard format. The following app'i- 
cations all owe their existence 
to the Coior Computer's low 
cost. This low cost system per- 
forms well when you use a little 
ingenuity to help it along. 

Employee Monitor 

An architectural firm needed 
a way for the switchboard oper- 
ator to monitor who was in the 
office and who was out. This 

was a serious problem because 
they used a multiplexed, single 
line phone system. The switch- 
board operator needed to keep 
the phone iine free, in a firm of 
this one's size, fifty people or so 
are constantly in and out. Trying 
to locate one of these people 
could burden the phone line for 
several minutes. Their off ice lay- 
out placed the operator at the 
least used company exit. 

Two Color Computers solved 
the problem. The program cre- 
ated a tv typewriter which for- 
matted data and displayed it. 
When leaving, office personnel 
type in pertinent information, in- 
cluding their whereabouts and 
their expected return time. This 
exit procedure works at either 
end of the building. We put a sig- 
nal splitter on the output of the 
Coior Computer at the far end of 
the building from the operator 
(the other machine was on her 
desk). One output from the split- 
ter feeds a monitor at the back 
computer allowing exiters to 



see what they are typing. The 
signal runs through 150 feet of 
coaxial cable and combines 
with the output from the second 
Color Computer in a 300 to 75 
ohm transformer and is input in- 
to the second tv. Since the video 
output from a Color Computer 
switches to either tv channel 
three or four the television tuner 
separates the information. The 
operator can check both screens 
by changing channels on the tv 
set. Without this built-in feature, 
screen selection would have 
been more involved. After many 
months of operation, this sys- 
tem works well. This system fills 
a real need in a unique way that 
one could not consider without 
an inexpensive computer. If you 
do not believe this, consider us- 
ing an IBM System 34 to perform 
the same task. 

Job Monitoring 

A local print shop, running 
roughly forty different jobs each 
day, needed to compile in-plant 
information about which jobs 
were running and how much 
time was spent on each until the 
data and a storage procedure 
could be transferred to a host 
computer for processing. The 
economically priced Color Com- 
puter was an ideal choice made 
even easier due to the built-in 
RS-232 port. Connecting a cas- 
sette with the computer allowed 
data to be stored, then fed to the 
host computer over an RS-232 
line. With a Model III as the host, 
data transfer between the two 
machines was easy. The printer 
port (serial port; from The Color 
Computer outputs data at 600 



baud, a figure easily matched in 
the Model III. Since we were us- 
ing a hard wired connection 
rather than modem/phone lines, 
there were no line limitations on 
the baud rate. 

The company starts the Color 
Computers in the morning, and 
runs them all day, accepting 
available job data from several 
locations, then writing this infor- 
mation out as a cassette data 
record. At the end of the day, all 
the cassettes are rewound and 
carried to the Color Computer 
which is wired into the Model III. 
A program reads the data files 
and prints them (using Color 
Basic's PRINT#-2 statement) to 
the serial port. The host Model 
III accepts and saves the data as 
a disk file thus transferring data 
on each cassette. Then the Mod- 
el III processes the information 
as required by the application. 

You can duplicate this ar- 
rangement in almost any situa- 
tion where on-site data can be 
collected for later processing. 
Hardwiring the Model III or prob- 
ably any other RS-232 port to the 
Color Computer is a matter of ty- 
ing pin 1 of the printer port high, 
using pin 3 as ground and pin 2 
as data out. You can change 
baud rates in the Color Comput- 
er by POKEing values into RAM 
as outlined in the operations 
manual. 

In the preceding examples, 
the program resident in the Col- 
or Computer (which could be 
stored in a ROM pack) could 
prompt the user. However, the 
host computer can also prompt 
the user. This approach to re- 
mote data gathering is ideal for 



the Color Computer especially 
since you. .can use a Videotex 
Terminal (a Color Computer with 
the Videotex terminal program 
in ROM) instead of the whole 
computer. Since a Videotex ter- 
minal costs about the same (or 
from some sources somewhat 
less) than the Color Computer, 
and since Radio Shack includes 
the terminal software and a built- 
in direct connect modem, this 
approach seems ideal for any 
situation where phone lines 
must transfer data. 

Monitoring Sales Data 

The owners of a chain of six 

convenience stores were inter- 
ested in collecting sales data 
from each of the stores at cer- 
tain times of the day. In this ap- 
plication the host computer 
prompts the sales clerk through 
the Videotex Terminal. It is an 
excellent solution because all it 
requires is that the person re- 
sponsible for data entry turn on 
the machine and type. 

A corollary application would 
allow salespeople at the end of 



a day on the road to call their 
home offices and place orders 
or transfer sales data. They 
could plug their computer or ter- 
minal into the phone jack, and 
send or receive data as required. 
In this instance, they might not 
need to carry a television with 
them since they could attach 
the computer to the one in their 
motel room. 

The combination of small 
size, light weight and low cost 
makes the Color Computer an 
ideal on-the-spot data gather- 
ing/data communications de- 
vice. The machine is also reli- 
able. Add the new software for 
the machine, such as Scripsit 
and Spectaculator, a program 
similar to Visicalc, and this ma- 
chine may prove to be one of the 
most widely and uniquely ap- 
plied computers in the Radio 
Shack lineup. ■ 

Richard Adcock is president 
of Arkyler Computer Services 
Inc., a Fort Worth based com- 
pany specializing in custom ap- 
plications for microcomputers. 



Model 953A EPROM 
PROGRAMMER 




Programs 2508, 2758, 2516, 2716, 2532 and 2732 five volt EPROMS. 
Complete - no personality modules to buy. 

Intelligent - microprocessor based, programs and verifies any or all bytes. 
RS-232 serial interface ■ use with computer or terminal. 

Verify erasure command verifies that EPROM is erased. 

Extended diagnostics - error output distinguishes between a bad EPROM 
and one which need:- erasing 

May be used for extremely reliable data or program storage. 

All power on programming socket under processor control. LED warning 
light indicates when power is applied. 

Complete with Textool zero insertion force socket. 

High performance/cost ratio. 

Standard DB-25 I connectoi 

PRICE $289 



BAY TECHNICAL ASSOCIATES, inc. 




HWY. 603. P.O. BOX 387 
BAY ST. LOUIS. MISSISSIPPI 39520 

(60! i 467-8231 



T80- 



Simu 




__.50 on disk (with 

enhancements) All versions require 16K. 




you order direct, please specify whether you have Model I or 
Model III (the media are different) and whether you want disk or 

Include $1 .50 and indicate UPS or first class mail. Illinois 
add 5% sales tax. Visa and Mastercard accepted. 

you don't yet own a disk, don't fret. You can upgrade anytime, 
(tie users may send back their cassette (but not the manual) 
with $10 (first class shipping included) and receive the disk 



yourdeale 



LOGI 

Communications Corp. 
713 Edgebrook Drive 

Champaign, I L 618; 
(217)359-8482 
Telex: 206995 



ass 




sSee List ol Advertisers on page 402 
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UTILITY 



A monitor for your Color Computer. 




Douglas R. Cook 

3895 West Wetland Drive 

West Jordan, UT 84084 



I wrote the program Colormon 
to answer the need for moni- 
tor systems and other programs 
for the TRS-80 Color Computer. 
It will aid programming and ex- 
ploration of the Basic color com- 
puters. A small portion of it can 



run on an Atari. Colormon runs 
with Extended Color Basic and 
16K of memory. Though it is too 
large for the 4K computer, sec- 
tions can be removed and run on 
systems without Extended Col- 
or Basic, 4K of memory, or both. 
You can PEEK and POKE all 
addresses with ease. I have run 
this monitor for several months 
with success. It is clean and 
there are no areas of memory 
locked out by this program or 



Basic. You may work any area of 
memory. 

Machine-code programs and 
data may be placed into memory 
and changed. You can save to 
tape either data or programs. 
Later, you can load your saved 
data or program with the 
monitor. Colormon puts infor- 
mation into correct format to 
save to tape. The load command 
expects data or programs to be 
in uniform format when loading. 



The PEEK and Print com- 
mands allow you to retrieve pro- 
grams, data or Basic by dense- 
ly filling the screen with 
characters. ■ 



The Key Box 

Color Computer 
Extended Color Basic 
16K RAM 



Color Monitor Instructions 






CLOAD 


Load this program from 


Enc address •• &H8100 


expects data to be in the 




cassette. It occupies ap- 


Start address - 32768 


format used in the Save 




proximately 4K of memo- 


End address - 33024 


■ command. Enter key to re- 




ry and starts ai Hex 1 EGG 


Enter key returns you to 


turn to selections, 




with Extended Color 


selections. 


(PE) PEEK— displays decimal 




Basic. Extended Color 


(EN) ENTER— enters machine- 


address, hex address, 




Basic is required to run 


language programs or 


decimal data and hex 




parts of the program. 


data in hex or decimal. 


data, in that order. When 






For example: Start ad- 


cursor returns, Enter key 


SELECTIONS: 


Dump. Eiiier. Save. Load, 


dress - &H1E00 Enter 


returns you to selections. 




PEEK, Examine, Print 


data, either hex or deci- 


(EX) EXAMINE— displays dec- 




and Instructions. 


mal, then hit Enter key 


imal address, hex ad- 


(IN) 


INSTRUCTIONS — Input 


again to continue or R 


dress, decimal data and 




decimal or hex numbers 


(Enter key) to REDO. End 


he : cm :-• r ti a< order. 




(decimal numbers direct- 


(Enter key) returns you to 


You have the option to 




ly, hex numbers preceded 


selections. 


change data: Y (Enter 




by&H, i.e. &H8000). Shift 


(SA) SAVE— saves data or 


key) to change data; 




@ will stop execution of 


programs from memory 


Enter key to go to next 




program and any key will 


to cassette. Enter start 


address; End (Enter key) 




resume. Enter key re- 


address and end ad- 


returns you to selections. 




turns you to selections. 


dress. When cursor re- 


(PR) PRINT— displays hex ad- 


(DU) 


DUMP— a hex dump. It 


turns, save is completed. 


dress and print charac- 




displays the first address 


Enter key returns you to 


ters of data in memory 




in decimal and then eight 


selections. 


between selected ad- 




bytes of data. For ex- 


(1.0) LOAD— loads data or pro- 


dresses. When cursor re- 




ample: 


grams from cassette to 


turns, Enter key returns 




Start address - &H8000 


the selected address. It 


you to selections. 
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PEEK, EXAMINE, 



10 ' TRS-80 COLOR COMPUTER 

20 • MONITOR PROGRAM (C) BY 

30 ' DOUGLAS R COOK WB7SOW 

40 ' 3895 WEST WESTLAND DR 

50 ' WEST JORDAN, UTAH 84084 

60 ' 801-561-4005 

70 CLS:DIM A (16) 

80 INPUT "SELECT- DUMP, ENTER, SAVE, LOAD, 

PRINT OR INSTRUCTIONS" ;C$ 

90 IF LEFT${C5 f 2)="DU" THEN 190 

100 IF LEFT$(C$,2)="EN" THEN 310 

110 IF LEFT$(CS,2)="SA" THEN 390 

L20 LF LEFT$(CS, '-) = "LO" THEN 480 

130 IF LEFT$(CS,2)="PE" THEN 570 

140 IF LEFT$(C$,2) ="IN" THEN 620 

150 IF LEFT$(C$,2)="PR" THEN 680 

160 IF LEFTS(CS,2) ^"EX" THEN 790 

170 GOTO 80 

180 ' DUMP SUBROUTINE 

190 INPUT-START ADDRESS" ;AD 

200 INPUt"END ADDRESS"; EN 

210 FOR A=AD TO EN STEP 8 

2 20 PRINT A; 

23 FOR D=0 TO 7 

240 F=PEEK(A+D) 

250 PRINT HEXS(F);" " ; 

260 NEXT D 

270 PRINT 

280 NEXT A 

290 INPUTQ:CLS:GOTO 30 

300 REM ENTER SUBROUTINE 

310 PRINT" Y=YES, ENTER KEY FOR NO, END 

DDRESS ' ;AC 

320 FOR A=AD TO 32768: "32K 

330 PRINT A;" "f: INPUT H 

340 POKE A,H 

350 PRINT A;H;: INPUT" ENTER KEY TO RESUME, 

P ";Q$:IF Q$="Y* THEN GOTO 330 

360 IF Q$="END" THEN CLS: GOTO 80 

370 NEXT A 

380 REM SAVE SUBROUTINE 

390 INPUT'START ADDRESS", -AD 

400 INPUT" END ADDRESS"; EN 

410 OPEN"0",-l,"DATA" 

420 FOR B=AD TO BN STEP 16: FOR J=0 TO 15 

430 A(J+1)»PEEK(B+J) :NEXT J 

440 PRINTt-l,A(l) ,A(2) ,A(3) ,A(4) ,A(5) ,A(6) ,A(7) ,A(8) ,A(9) ,A(10) 

A(ll) ,A(12) ,A(13) ,A(14) ,A(15) ,A(]6) : CLS: PRINT B;A(1) -.NEXT B 

4 50 PRINTJ-1, 18, 0,0, 0.0, 0,0, 0,0, 0,0, 0,0, 0,0,0 

460 CLOSE-1:INPUTQ:GOTO 80 

470 GOTO 80 



TO END": INPUT'START A 



TC REDU, END TO STO 



480 INPUT" LOAD ADDRESS"; AD 
490 OPEN"I",-l,"DATA" 

500 FOR C = AD TO 32767 STEP 16 

510 INPUT»-1,A(1) ,A(2) ,A(3) ,A(4) ,A(5) ,A(6) ,A(7) ,A(8) ,A(9) ,A(10) , 

A(ll) ,A{12) ,A(13) ,A(14) ,A(15) ,A(16) 

520 FOR J = TO 15:POKE C+J , A ( J + l ) : PRINT C+J ; HEXS (C+J) , A ( J + l) : NEX 

T J 

530 IF A(1)+A(2)+A(3)+A(4)+A(5)+A(6)+A(7)+A(8)+A(9)=18 THEN GOTO 

550 
540 NEXT C 

550 CLOSE-1:INPUTQ:GOTO 80 
560 REM PEEK SUBROUTINE 
570 INPut"START ADDRESS", -AD 
580 INPu.-END ADDRESS", -EN 
5 90 FOR D=AD TO EN 

600 S=PEEK(D) :PRINT D; HEXS (D) ,S ; HEXS ( S) ; " " ; CURS ( S) : NEXT D 
610 INPUT Q:GOTO 80 

620 CLS: PRINT" INPUT DECIMAL OR HEXADECIMAL NUMBERS THIS W 

AY-" 

630 PRINT" DECIMAL NUMBERS DIRECT" 
640 PRINT" HEX NUMBERS PRECEEDED BY- SH LIKE THIS &HA7A7 

SHIFT % WILL STOP PROGRAM AND ANY KEY WILL CONTINUE 

PROGRAM" 
650 PRINT: PRINT" THIS PROGRAM WILL NOT RUN THE PEEK,SAVE OR DU 
MP FUNCTION WITHOUT EXTENDED COLOR BASIC 1" 

660 PRINT:PRINT" ***ENTER KEY FOR SELECTIONS***" 
670 INPutQ:GOTC Hi 
(.Sf> INPUT'START ADDRESS"; AS 
690 INPUt'END ADDRESS";ES 
700 FOR A=AS TO ES STEP 25 
710 PRINT HEX$(A) ," 
720 FOR D=0 TO 2 4 
730 S=PEEK(A+D) 
740 PRINT CHRS(S) ; 
750 NEXT D 
7 63 PRINT 
770 NEXT A 

780 INPUtQS:CLS:IF QS="END" THEN END ELSE GOTO 80 
790 INPUT'START ADDRESS", -AF 
800 INPUt'END ADDRESS" ; EF 
810 EF =32768 
820 FOR A=AF TO EF 

830 C=PEEK(A) :PRINTA;I1EXS(A) ,C;" ";HEXS(C)j" " ; CURS ( C) : INPUT'CHA 
NGE";QQ$:IF LEFTS (OQS , 1 ) ="Y " THEN 850 
840 IF LEFTS (QQS,1)="E" THEN GOTO 370: 
845 IF LEFT$(QQ$,1)="" THEN GOTO 860 
850 INPUt"CHANGE TO ";D:POKE A,D:PR1NT A; HEXS ( A) ,D; " ";HEX$(D);" 

";CHRS(D) :INPUTQS:IF OS="END" GOTO 870 
860 CLS: NEXT A 
870 CLS: GOTO 80 
880 END 
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Z8 BASIC 
COMPUTER/CONTROLLER 




Byte Magazine, July and August 1981 

•On board tiny BASIC Interpreter. 

•2 on board parallel ports. 

•Serial I/O port 

•6 interrupts. 

•Just attach a CRT terminal and 

immediately write control programs 

in BASIC. 
•BAUD RATES 110-9600 BPS. 
•Data and address buses available for 

124K memory and I/O expansion. 
•4K RAM, 2716 or 2732 EPROM 

operation. 
•Consumes only 1 V2 WATTS 

Z8 Basic Microcomputer/Controller 

Assembled & Tested $195.00 

Complete Kit $165.00 

Universal Power Supply 

( + 5, +12, &-12v) $ 35.00 

Z8 .'; a trademark of Zilog Inc 



SWEET-TALKER, 

IT GIVES YOUR COMPUTER 

AN UNLIMITED VOCABULARY. 




As Featured In 
Byte Magazine, September 1981 

• Utilizes VORTRAX SC-01A speech 
synthesizer chip. 

• Unlimited vocabulary. 
•Contains 64 different phonemes 

which are accessed by an 8-bit code. 
•Text is automatically translated into 

electrically synthesized speech. 
•Parallel port driven or 

Plug-in compatible with APPLE II. 

• On board audio amplifier. 
•Sample Program for APPLE II on 

cassette 

SWEET-TALKER 

Assembled and Tested 

Parallel Port Circuit Card $139 

APPLE II Plug-in Card $149 

VORTRAX is a trademark ot Federal Screw Works 



To Order: Call Toll Free - 1-800-645-3479 
(In N.Y. State Call: 1-516-374-6793) 
For Information Call: 1-516-374-6793 



DISK-80 

EXPANSION INTERFACE 

FOR THE 

TRS-80 MODEL I 




As Featured In 
Byte Magazine, March 1981 

•Disk controller (4 drives) 

• Hardware data separator 
•Buffered TRS-bus connector 
•Real-time clock 

• Printer port (optional) 

DISK 80-ASSEMBLED & TESTED 

with 32K RAM $329.95 

Centronics Printer 

Port add $ 50.00 

DISK-80 pc board $ 48.00 

Printer/Power Supply 

pc board $ 16.00 

Complete Kit with 32K 

RAM and Printer Port $275.00 

TRS-80 is trademark of Tandy Corp. 



MICROMINTINC. 
917 Midway 
Woodmere, N.Y. 11598 
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UTILITY 

[HEl 

LOAD 80 



Screen dumps whenever you want them. 



ase 2 Screenprinter 



William S. Kent 
22315 6th Avenue, S. 

if B -304 

Des Moines. WA 98188 

I have wanted a Screenprinter 
for my Base 2 lineprinter for 
sometime; Ruth Lewart's article 
"Paper Tiger Screenprinter" (80 
Microcomputing, February 1981) 
inspired the Program Listing. 

I used a slightly different al- 
gorithm to generate the alpha- 
numeric strings. Since the Base 
2 uses 7-bit characters in the 
graphics mode, things were a lit- 
tle easier than for the 6-bit Paper 



Tiger. I used a 3-line rather than 
a 4-line format. ■ 

Mr. Kent is an engineering 
manager with The Boeing Com- 
pany and works in Flight Sim- 
ulation. 



The Key Box 

Basic Level II 
Model I 
48KRAM 
NEWDOS 
2 Disk Drives 
Base2 Printer 



10000 
10001 

10010 

10020 

10030 

10040 

10050 

10060 

10070 

10080 

10090 

DER 

10100 

)AND4 
10120 
10130 
10140 
10150 
10160 
10170 
10180 
10190 
10200 
10210 
10220 
10230 
10240 



'SCREENPRINTER FOR BASE 2 MODEL 800 LINEPRINTER 

'WRITTEN BY K.S.KENT, DES MOINES, WA 

IFQ1=0GOSUB10190 

LPRINTQ6S;Q7$ 

QV=15360 'START OF VIDEO MEMORY 

LPRINTQ1$;Q2$;Q4$;Q4$;Q2$ 'DRAW UPPER CORNERS AND BORDER 

FORQI-0TO15 

PORQJ»0TO63lQN(QJ)»PEEK(QV+QJ) :NEXT 'READ ONE LINE 

FORQK=0TO2 

IFINKEY$="B"THENLPRINTQ8S:RETURN 'LEAVE GRAPHICS 

LPRINTQ1$;Q2$;Q3$; 'ENTER GRAPHICS MODE AND DRAW LEFT BOR 

FORQJ=0TO63 

IFQN(QJ) >127THENLPRINTQG$(QM(QN(QJ)AND21) ,QK) ; QGS ( QM (QN (QJ 
2) ,QK) ;ELSELPRINTQZ$;QA$(QN(QJ)-32,QK) ; 
NEXTQJ 

LPRINTQ3$;Q2$ 'DRAW RIGHT BORDER 
NEXTQK : QV=QV+Q8 : NEXTQI 

LPRINTQ1$;Q2$;Q5$;Q5$;Q2$ 'DRAW LOWER CORNERS AND BORDER 
LPRINTQ8$:RETURN 'RESET LINEPRINTER AND RETURN TO PROGRAM 



INITIALIZATION 
DEFINTQ:Q1=1:Q8=6 4:QZ$=CHR$(128) : Ql $=CHRS ( 27) +CHRS ( 99) 
Q2S=STRINGS(3,255) : Q3 $=STRING$ ( 21 , 128) 
Q4S=STRING$(213,135) : Q5$=STRING$ ( 213 , 2 40) 
Q6$=CHR$(27) +CHRS14 8) :Q7 $=CHR$ ( 27 ) +CHRS ( 98) +CHR$ ( 14 ) 
Q8$=CHRS(27) +CHR$(74) 



10>50 DIMQG$(7,3) ,QA$(90,3) ,QM(42) ,QN(90) 

10260 - 

10270 FORQJ=0TO7:FORQK=0TO2 'CREATE GRAPHIC STRINGS 

10280 READQC:QG$(QJ,QK) -STRINGS ( 3 ,QC0R1 28 ) 

10290 NEXTQK, QJ 

13300 ' 

10310 FORQJ=0TO90;FORQK=0TO4 'CREATE GRAPHICS STRINGS 

10320 READQC:QW=(12*(QCANDl)+24*(QCAND2)+16*(QCAND4))OR128:QAS(Q 

J,0)=QA$(QJ,0)+CHR?(QW) 

10330 QW=(.25*(QCAND4)+.75*(QCAND8)+1.5*(QCAND16)+3*(QCAND3 2) ) OR 

128:QA$(QJ,1)=QA$(QJ,1)+CHR$(QW) 

10340 QW=((3*(QCAND64) ) /64) OR128 :QA$ (QJ ,2) =QA$ (QJ , 2) +CHR$ (QW) 

10350 NEXTQK, QJ 

10360 ' 

10370 QM(0)=0:QM(1)=1:QM(4)=2:QM(5)=3:QM(16)=4:QM(17)=5:QM(20)=6 

:QM(21)=7 

103 80 QM(2)=1:QM(8)=2:QM(10)=3:QM(32)=4:QM(34)=5:QM(40)=6:QM(42) 

= 7 

10390 RETURN 

10400 ' 

10410 ' 

10420 DATA 0,0,0,127,0,0,0,127,0,127,127,0 

10430 DATA 0,0,127,127,0,127,0,127,127,127,127,127 

10440 DATA 0,0,0,0,0,0,0,95,0,0,0,7,0,7,0,20,127,20,127,20 

10450 DATA 36, 42, 127, 42, 18, 35, 19, 8, 100, 98, 54, 73, 86, 32, 80, 0,0, .7,0 

,0 

10460 DATA 28,34,65,0,0,0,0,65,34,28,34,20,127,20,34,8,8,62,8,8 

10470 DATA 0,64,48,0,0,8,8,8,8,8,0,0,64,0,0,32,16,8,4,2 

10480 DATA 62,81,73,69,62,0,66,127,64,0,98,81,73,73,70,33,65,73, 

77,51 

10490 DATA 24,20,18,127,16,39,69,69,69,57,60,74,73,73,49,1,113,9 

,5,3 

10500 DATA 54,73,73,73,54,70,73,73,41,30,0,0,20,0,0,0,64,52,0,0 

10510 DATA 8,20,34,65,0,20,20,20,20,20,0,65,34,20,8,2,1,89,5,2 

10520 DATA 62,65,93,89,78,124,18,17,18,124,127,73,73,73,54,62,65 

,65,65,34 

10530 DATA 127,65,65,65,62,127,73,73,73,65,127,9,9,9,1,62,65,65, 

81,113 

10540 DATA 127,8,8,8,127,0,65,127,65,0,32,64,64,64,63,127,8,20,3 

4,65 

10550 DATA 127,64,64,64,64,127,2,12,2,127,127,4,8,16,127,62,65,6 

5,65,62 

1056 DATA 127,9,9,9,6,62,65,81,33,94,127,9,25,41,70,38,73,73,73 

,50 

10570 DATA 1,1,127,1,1,63,64,64,64,63,31,32,64,32,31,127,32,24,3 

2, 127 

10580 DATA 99,20,8,20,99,3,4,120,4,3,97,81,73,69,67,4,2,127,2,4 

10590 DATA 16,32,127,32,16,8,28,42,8,8,8,8,42,28,8,64,64,64,64,6 

4 

106 00 DATA 62,65,93,89,78,32,84,84,84,120,127,40,68,68,56,56,68, 

68,68,40 

10610 DATA 56,68,68,40,127,56,84,84,84,24,0,8,126,9,2,76,82,82,8 

2,60 

10620 DATA 127,8,4,4,120,0,68,125,64,0,0,32,64,68,61,0,127,16,40 

,68 

10630 DATA 0,65,127,64,0,124,4,120,4,120,124,8,4,4,120,56,68,68, 

68,56 

10640 DATA 126,12,18.18,12,12,18,18,12,126,124,8,4,4,8,72,84,84, 

84,40 

1065 DATA 0,4,63,68,32,60,64,64,32,124,28,32,64,32,28,60,64,48, 

6 4,60 

10660 DATA 68,40,16,40,68,14,80,80,80,62,68,100,84,76,68 
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SPEAK 
-EAZY 


HARDWARE 

The HUMAK QUALITY VOICE STUTHESIZER for your 
MODEL I or III computer. The complete 297 word 
vocabulary is contained In ROM. Ready to use 
HARW/ARE and SOFTWARE for ONLY $229.95 


DD SO 
* 


A DOUBLE DENSITY adapter for the MODEL I that 
allows you to write and read twice as such data 
on a disk. Plugs Into your EXPANSION INTERFACE 
and Is compatible with all existing SINGLE or 
DOUBLE DENSITY software and hardware. $129.95 


TRANS 

- DATA 


Now an Inexpensive means to TRANSMIT-RECEIVE 
data over the phone lines WITHOUT Expansion 
Interface, RS232, or software. DIRECT CONNECT 
to phone lines and your cassette port. $59.95 


EAZY 
LOADER 


EAZY LOADER is a signal conditioner for your 
MODEL I TAPE SYSTEM that CORRECTS the volume 
sensitivity problems associated with tape 
loading on the MODEL I. 

CAN BE USED EXTERNAL or INTERNAL 

$24.95 $12.50 j 


PROGRESSIVE ELECTRONICS 

Hours 643 E Chestnut St. 
9-6 Lancaster, Ohio, 43130 
Hon - Sat Phone 614-687-1019 ^143 




SOFTWARE 



1607 North Cochran 

Hutchinson, Ks. 67501 

(316) 663-1047 




ANNOUNCING 

cJ rzecJwe nly - c7 Irs t 

* A Club for all TRS-80 Computer Owners. 

Wholesale prices on popular products, saving up 
to 50% of retail prices. 
Objective, Unbiased, Tough Reviews of Hardware 
Sofware, Systems, Supplies, Critical Analysis 
of products: revealing what they can and can not 
do. 
*Ne\vsletters with your stories, Articles, Industry 
Reviews, Practical Uses for Business, Personal, 
Professional, Hobby and Entertainment. 

* Programing Support for Compilers, Basic, etc., 
Beginners and advanced. 

* Comparisons of Product Groups by cost, Cap- 
abilities, Etc. 

* A source for selling your own Programs and In- 
ventions. Up to 80% Royalty. Why let others 
have the lions share? 

* Membership- - * $25.00 per year. 

* WANT MORE INFORMATION? Please send $1.00 
to cover cost of Info.& Postage. 




A NEWSLEI I ER FOR POCKE'l COMPUTER USERS 
This timely, compact publication provides up to the minute 
information on pocket computers, including models such as 
the Radio Shack TRS-80 PC, Sharp Electronic's PC-1211, the 
Casio FX-702P, Panasonic's RL-H1000, and others as they are 
announced. We only cover pocket computers that are capable 
of executing a high level language such as BASIC. 
G Up to the Minute News D Product & Equipment Reviews 
O Important Operating Tips D Practical Programs □ More 
By Subscription Only: for a calendar year period (January — 
December). You get all issues published to date for the calen- 
dar year in which you subscribe, at the time you subscribe. 

MC/VISA Phone Subscriptions: (203) 888-1946 
D 1981/82 Charter Subscriber (Issues 1 - 20). $40.00 in U.S. 

(U.S. $48.00 to Canada. U.S. $60.00 elsewhere.) 
D 1982 Regular Subscriber (Issues 11 - 20). $30.00 in U.S. 

(U.S. $36.00 to Canada. U.S. $45.00 elsewhere.) 
□ Sample issue. $3.00 in U.S. (U.S. $4.00 elsewhere.) *Due to 

credit card minimum, this item cannot be charged. 

Orders must be accompanied by payment in full. We do not 

issue invoices for the POCKET COMPUTER NEWSLETTER. 

Thank you for your remittance. 

Name: 

Addr: 

City: State: Zip: 

MC/VISA #: Expires: 

Signature: 

|g POCKET COMPUTER NEWSLETTER 

m 35 Old State Road, Oxford, CT 06483 




all hardware Model I Lowercase 



TRS-80 is a Trademark of 'andy Corp 



DUALCASE 

UPPER/lowercase, full time 
from power-up: NO software; 
Standard typewriter keyboard 
operation (shift to UPPER- 
CASE): Control characters can 
be displayed; 128 Total char- 
acter set plus full graphics. 

ELECTRONIC SHIFT-LOCK 

No extra keys or switches. Sim- 
ply tap either shift key. UPPER- 
CASE lock, normal shift un- 
locks. 

DE-B-B-BOUNCE At no extra cost 
(At your option) 

BLOCK CURSOR If you like (No chg) 

SWITCHABLE from key board 




"THE PATCH" is covered with a 
one year limited warranty on materi- 
als and workmanship. (Does void 
Radio Shack's 90 day warranty.) 



"THE PATCH" is a trademark of 
CECDAT.INC. 



"THE PATCH" is compatible 
with any word processor, any DOS 
and also other languages which use 
ROM sub-routines. 

"THE PATCH" unit plugs into 
the ROM sockets (does not replace 
existing ROM). Lowercase does re- 
quire installation of the extra video 
ROM (supplied with "THE PATCH"). 

Detailed instructions guide 
even the most inexperienced owner 
to complete installation in about 30 
minutes. 

Assembled and tested .5127.00 

Texas residents add 5% sales tax. 
WHEN ORDERING SPECIFY: 

"Mem Size" 11 "Memory Size" !j 



To order, send payment plus $2.00 
shipping and handling. 



HACKS 



P.O. BOX 12963 
Houston. Texas 77017 



National Dist. for CECDAT, Inc. 



713-455-3276 



80 Microcomputing, March 1982 • 215 



UTILITY 



LOAD 80 



Hide sensitive data, protect your software. 



Secrets 



Stephen Mills, Ph.D. 
611 Woodlawn Ave. 
Springfield. OH 45504 



Even users of microcom- 
puters sometimes need a lit- 
tle privacy. You may have made 
your computer do some things 
you don't want just anyone to 
know about. In the case of a 
small business, the confiden- 
tiality of financial records or 
clients is essential, but even for 
the personal computerist and 
hobbyist, privacy might be 
valuable: perhaps in personal 
finance or your computerized 
"little black book," Perhaps you 
and your spouse have your own, 
no-holds-barred counterpart to 
Interlude, which you don't want 
the kiddies to run when they're 
tired of Star Trek. Perhaps you 
simply want to keep everyone 
from meddling with your Basic 
software when you're not super- 
vising things. 

But as computers go, the 
TRS-80 is not particularly good 
at keeping secrets. Of course 
any computer has some intrin- 
sic inclination to keep a secret. 
For many people a computer is a 
mysterious and unapproach- 
able keeper of information. 
Totally lacking in finesse, a 
computer is by nature unforgiv- 
ing of syntactical errors; you 
cannot coax, persuade, flatter 
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or seduce any computer into giv- 
ing up secrets unless you speak 
the language fluently. Unfor- 
tunately, the TRS-80 has "been 
around." Its popularity, along 
with the general popularity of 
Basic, make this the least 
mysterious of all computers. All 
too many people know how to 
load and run a program. Fewer, 
but still many, can list and an- 
alyze a Basic program that is 
not working right, and defeat the 
computer's tendency to keep 
the secret. 

One obvious and inelegant 
way of ensuring secrecy is simp- 
ly to hide the software under 
lock and key. As the critical 
need for security — and the 
likelihood of deliberate meddl- 
ing—grows, this technique may 
become more and more tempt- 
ing. But it has two drawbacks. 
First, it may be inconvenient. It 
clearly breaks with the ritual of 
cassette-based software if you 
cannot quickly pull your pro- 
gram out of the rack or storage 
box beside the computer. A 
lockable storage compartment 
may not be conveniently nearby. 
Second, it is obvious. Anything 
that has to be hidden or secured 
behind lock and key automati- 
cally provokes interest and 
curiosity. What better way is 
there to advertise that some- 
thing is secret, than to hide it 
physically? If the hidden soft- 
ware is found, whether by acci- 

1982 



dent or by design, you can be 
pretty sure what the finder will 
do next. 

How to Keep a Secret 

This article presents a soft- 
ware alternative for keeping 
secrets. It is subtler, cleverer 
and (for the programmer) more 
interesting than physically 
hiding things. It avoids the two 
shortcomings of hiding: The 
secured software can be stored 
conveniently with non-secured 
programs and, even when 
loaded, it is not apparent that a 
security program is operating. 

The alternative is Censor, a 
utility program which, when ad- 
ded to the resident Basic pro- 
gram, produces special format 
cassette recordings of your pro- 
gram. These programs can be re- 
loaded by the TRS-80's normal in- 
put operations, but they will not 
run until a correct security code 
is entered. Incorrect responses 
or attempts to perform any oper- 
ation before the code is given will 
cause program memory to be 
wiped out. Included are versions 
for Level I (any size RAM) and 
Level II 16K Basic; DOS is not 
covered, but such systems have 
far more elaborate security 
techniques available. 

Although the Level I and Level 
II versions are quite different, 
they have several common char- 
acteristics. Both are machine 
language utilities which can be 



loaded while the Basic program 
to be secured is already in mem- 
ory. Both will accept a security 
code up to 20 characters in 
length for that program. They 
will make as many cassette 
dumps as required, using a sin- 
gle keystroke command (Break 
will return to command mode). 
In addition, in both formats the 
output code includes a control 
program. When the secured 
tape is reloaded, the control pro- 
gram snatches control from the 
ROM-based command mode. 
However, the correct command 
mode prompt is displayed, to 
mislead the would-be tamperer; 
the only cue for the initiated is 
the absence of the underscore 
cursor. The control program 
tests for a correct security code, 
and returns control to command 
mode when it is received. Both 
versions feature checksum 
testing of the load (a feature not 
part of Level II CLOAD). 

Both versions of Censor are 
relatively short and simple. 
Their brevity represents a com- 
promise: convenience and ver- 
satility against complexity and 



The Key Box 

Model I 
Level I and II 
16K 




Does your CP/M** or TRS-80* Word Processor need help? 
Aspen Software has the finest document proofreading tools available. 



QRAMMATlk" 

Beyond Spelling Checking 

Spelling checkers are useful, but they are not enough! 
Grammatik can find many errors that a spelling checker can't. 
It detects many errors commonly found in text entered on 
computers, such as doubled words ("the the"), inconsistent 
capitalization ("STicky shift key"), incorrect punctuation, and 
others. That's not all! Grammatik also checks your document 
for good writing style using a dictionary of over 500 misused 
phrases as defined in many writer's style manuals. It marks 
and classifies the problems it finds in the document file for 
eas\ correction with your word processor, and provides sug- 
gestions for correcting the problems. The phrase dictionary- 
can be easily extended to include checking for esoteric jargon 
or your own pet peeves. Grammatik also collects other stylistic 
information that can be used to revise the document to im- 
prove its readability such as average sentence and word 
length. It can produce a profile with the number of times each 
unique word in the document was used, helpful for identifying 
overworked vocabulary. Grammatik is not only a valuable 
proofreading tool, it is also a useful learning tool. You will 
notice significant improvements in your own writing style after 
using Grammatik for only a short time. Grammatik is fast, 
easy to use, and works with all popular TRS-80 and CP/M 
word processors. Model I /III version requires a minimum 
32K, 1 drive system. Model II TRSDOS* version requires 
(>4K and I drive. CP-M version requires CPM release 
2.2and48K. 



The Aspen Software Company Spelling Checker. 

Don't buy a spelling checker until you've considered Proof- 
reader. Recently, several ads for other spelling checkers have 
compared themselves to "others". They weren't comparing 
themselves to Proofreader! Proofreader has all the features 
you need for checking your documents for spelling errors and 
typos. Proofreader looks up every word in its 38,000 word 
dictionary,. and does not increase its "vocabulary" by using 
less accurate root word analysis like some others do. You 
won't need to spend as much time adding new words as you 
would with a smaller dictionary. Proofreader is easy to use -- 
you can start checking your documents immediately. Proof- 
reader is fast -- it can check even your largest document (20 
pages or more) in less than 5 minutes! Unknown words are 
listed on the screen, and can be saved in a file for later 
manipulation. The Proof-Edit feature (optional on the Model 
I III version, included with Model II and CP/M) allows you to 
interactively correct the unknown words in context. New 
words can. easily be added to (he dictionary, and expansion is 
limited only by disk capacity. Proofreader works with all 
TRS-80 operating systems and word processors, so if you 
change systems, you won't need a new spelling checker. On 
the TRS-80 Model 1/ III, only 32K RAM and 1 disk drive are 
needed. Proofreader also works with all popular CP/M word 
processors. Add up the facts and the low price, and you will 
conclude thai Proofreader is the best value available in 
spelling checkers. 



Aspen Software programs are professional quality, reliable software 
tools developed for the TRS-80 and CP/M by a Ph.D. in Computer 
Science. All software is protected by Aspen Software's low cost 
upgrade privilege for new versions. Other tools include: 

- SOFT-SCREEN™, a powerful, state of the art full screen text 
editor. Over a year in development, Soft-Screen is compatible with 
all TRS-80 programming languages, including BASIC, FORTRAN, 
MACRO. Ratfor, and COBOL. Commands are easy to learn, yet 
versatile and complete to satisfy the most experienced user. Soft- 
Screen is also available for P&T Model II CP/M. 

- SOFT-TEXT™. Aspen Software's text formatter. When used 
with Soft-Screen, provides a powerful word processing system. Full 
featured, including automatic pagination, even and odd page 

headings, underlining, index generation, footnotes, support for 



advanced printer capabilities, arid much more. Mode' 1 iil version 
supports serial printers ai full speed. Soft-Text offers a real alter- 
nate e for Model 11 TRSDOS users. Please write or call for 
more details. 

— RATFOR. a structured language preprocessor for Fortran de- 
veloped at Bell Labs. Aspen Software Ratfor is one of the best 
versions available, and the only one with a pretty printer option. 

Totally compatible with Microsoft F80. Includes several extensions, 
including "case", "string", and conditional compilation. User's 
manual contains all information needed to learn and write Ratfor 
programs. Requires FORTRAN. 

— PP-RATFOR, a pretty printer. Automatically formats and 
indents Aspen Software Ratfor source programs. An essential 
program development tool 



Proofreader 

Proof-Edit 

Grammatik 

Soft-Screen 
SorVText 

both 
Ratfor 
PP-Ratfor 

both 

IMPORTANT t Specify computer model, operating system, memory size, and number of drives when ordering! For CP/M, 
currently only 8" single density CP/M versions available. Please inquire about other CP/M disk formats. All TRS-80 ver- 
sions available. Manual only orders can be applied to final purchase. CP/M prices are introductory. 

Orders sent postpaid by first class mail. Terms: Cash, check, money order, VISA, or Master Card. NM residents add 4% tax. 

Proofreader, Grammatik, Soft-Screen, and Soft-Text are trademarks of Aspen Software. 

♦♦trademark of Digital Research 



Model i 


Model II 
(64k,ld) 


Model III 


CP/M 

(2.2,48k) 


Manual only 


$54.00(32kld) 

$30.00 

$59.00(32kld) 


$119.00 

incl. 

$99.00 


$64.00(32kld) 

$30.00 

$59.00(32kld) 


$129.00 

incl. 

$149.00 


$8.00 

incl. 
$8.00 


$69.00<48kld) 
$69.00(48kld) 
$129.00 


$99.00 

$99.00 

$179.00 


$75.00(48kld) 
$75.00(48kld) 
$139.00 


$99.00(P&T) 
$99.00 
$179.00 


$15.00 
$15.00 
$25.00 


$49.00(48k2d) 
$30.00(48k2d) 
$74.00(48k2d) 


$99.00 

$49.00 

$139.00 


$59.00(48kld) 

$34.00 

$84.00 


$99.00 
$49.00 

$139.00 


' $15.00 



♦trademark of Tandy Corp. 




T.M. 



sSee List of Advertisers on page 402 
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tightness of security. Because 
of this, it can hardly be claimed 
that Censor has undefeatable 

security, but its features should 
make it an adequate resource 
for many personal computer- 

ists. It automatically usurps 
control from ROM, requiring im- 
mediate input of the correct 
security code (out of billions of 
possibilities); and it operates 
secretly. 

Level I Censor 

The Level I version of Censor 
is given in Program Listing 1. 
The Basic program to be cen- 
sored is not at all modified (or 
encrypted); it is merely made 
inaccessible by the control pro- 
gram. Both Censor and the con 
trol program which it attaches 
to Basic are loaded in a pro- 
tected area below the RAM dedi- 
cated to Basic programming. 
Thus Level I Censor has no 
special memory requirements. 

Producing Censor requires 
the Radio Shack Editor/ 
Assembler program, orT-Bug, or 
some equivalent. Whichever 



method is used, producing Cen- 
sor is a two-step process. Cen- 
sor cannot be directly tran- 
scribed by T-Bug because they 
both occupy the same region o? 
memory, and T-Bug would 
destroy itself in the process, it 
cannot be loaded under System 
program control for the same 
reason. The first step, then, is to 
prepare a program which will 
produce a properly formatted 
version of Censor. When this 
program (Program Listing 1; is 
executed, Censor itself will be 
recorded on tape. This second- 
generation Censor may then be 
CLOADed with a Basic program 
already in memory; it is self- 
starting and does not conflict 
with any program RAM. 

Listing 1 clearly shows the 
second-generation source file 
for Censor (lines 25-1 18). To pro- 
duce the working version of Cen- 
sor, this file is shifted to its 
proper location, 4107H-41FEH. 
The displacement for this move, 
2304 bytes (or 900 H bytes), is 
represented by the label DIS, 
which is used in assembly to 



Program Listing 1. 



T is 

THIS 
ENTERED 



R E . 

4A07 

4107 

4A07 310041 

4A0A 0605 

4A0C 115B41 

4,-CU CDbl09 

P 

4A12 10FB 

4A14 2A6840 

LOC 



20001 

.-' 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
013 

0012 

00013 

00014 

0003 : > 
1 6 

: v 

I 8 
00019 

00020 

Dfli'Z! 

00022 

00 23 
002 4 
00025 

:■ 6 
00 27 
00028 
2 9 

I'fiOOi 
00031 



LISTING 1. LEVEL I A. L. VERSION 



LEVEL I CENSOR PROGRAM 
(C) 1981 STEPHEN HILLS 

; CENSOR SECURITY PROGRAM 
.•PREVENTS UNAUTHORIZED LOADING OF " 
; LEVEL I BASIC PROGRAMS. CENSOR IS 
•LOADED OVER BASIC. MACHINE LANGUAG 

;ROOTINE WRITES OUT SECURITY CODE AN 

; SAVES BASIC PLUS SECURITY BOOTSTRAP 

;WHEN PROGRAM IS LOADED A FAKE PROMP 

.•DISPLAYED (THERE IS NO CURSOR) . AT 

; POINT PROPER SECURITY CODE MUST BE 

;OR ENTIRE MEMORY CONTENTS DESTROYED 

fEDTASM VERSION PRODUCES A 2S0 BAUD 
.•PROGRAM TO LOAD BELOW BASIC 

;2ND GENERATION SOURCE F 

; FOR CENSOR BEGINS HE 



ORG 4A07H 

ENTRY DEFL HEAD-DIS 

HEAD LD SP.4100H ,-MOVE STACK 

LD B,5 

LD DE.DISPLA-DIS 

CALL 0951H ;LEVEL I DISPLAY LOO 

DJNZ S-3 ; RETURNS EACH 13 

LD HL r (4068H) ;GET CURSOR 

30032 ;NOTE AFTER THE DISPLAY ROUTINE IS EXECUTE 



90033 
90034 



THE CURSOR LOCATION RESIDES IN THE 
ALTERNATE HL REGISTER 

Program continues 



FREE EPSON MX-80 PRINTE 



With the 
purchase of 



For a limited time. Data Services, Inc., will 
give you a FREE Epson MX-80 Printer ($645 
value), when you buy a TRS 80 Model III, 48k, 
with 2 PERCOM 40 track drives, at a regular 
price of $2,495. 

(Optional RS 232, $90 extro. Radio Shack w/RS 232 - $ 1 70 ' 
extra. Printer cable - add $35.00) 

The perfect system, the perfect price! 

TRS 80 Model III, 48k - two PERCOM 40 

track drives - EPSON MX-80 Printer. 

Data Services offers more — APPAfW'S 
NEWDOS 80, version VER 2.0, regularly $149.95 
— now only $129.95 . 

Up to 20% savings on TRS computers — 
accessories — programs, Plus: EPSON / 
PERCOM / APPARAT / HAYES SMARTMODEM / 
VERBATIM DISKETTES. 

*TP,S-80 is a trademark of Tandy Corporation. 




■ FREE SHIPPING in 48 contiguous states. 

■ No Sales Tax on out-of-state orders. 

■ Visa/Master Card welcome. 

■ Personal checks, allow 3 weeks to clear. 

■ (International orders, freight F.O.D. Wichita, 
Kansas) 

CALL TOLL FREE: 1 -800-835-1 1 29 
or order by mail from: 

DATA SEFMCES, INC. 

COMPUTER SERVICES SINCE 1 970 ^ ne 

P.O. Box 1 1 57 Wichita, Kansas 67201 -1 1 57 

(In Kansas, call 1-316-838-9021) 
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PROFESSIONAL 

■ KirnME TAX SYSTEM 

•80* MODEL I, II or III 

For four successive years! 

Our system, running on the magnificent line of TRS-80 computers, has 
prepared thousands of lightning-fast, error-free tax returns a day in 
accounting offices nationwide. 

Now we introduce! 

SYSTEM THREE! 

SYSTEM THREE is an improved, still more interactive version — Totals W-2's and 
computes FICA overpayment — Includes "QWIKTAX," a fast tax calculator for tax 
planning — Has automated Client Billing — More! 

And, as always— 

1. Full interactive user control, in tax-form language only, line-by-line. 

2. Screen display of full 1040 and all schedules, prior to printout. 
3 All formats IRS and State approved. 

4. Schedule amounts automatically entered on Form 1040. 

5. Your Preparer's Information automatically printed at bottom of Page 2, Form 1040. 

6. Built-in Validation Check tests entire system, hardware and software. 

7. Special printer adjustment routines: Margin Offset, Text Position, etc. 

8. Fills in pre-printed forms (we supply) or use overlays. Your choice. 

9. AUTOMATICALLY COMPUTES: Tax - Earned Income Credit — Maximum/Minimum Tax - Least Tax 
Method — Ali Percentage of Income Limitations — All Fixed Limitations. 

DOES INCOME AVERAGING IN EIGHT SECONDS! 

10. Full support through the tax season, no charge. 

11. Inexpensive yearly updates in accordance with tax-law changes. 

SYSTEM THREE comes in four modules. You select the ones you need. There is no 
system like it, for any computer, and the cost is literally nothing. In one season, our users 
have paid, out of savings, for the software and the computer. 

35-page Descriptive Manual ■ $7.50 

(Refundable on order) 

MINIMUM SYSTEM REQUIRED: Model I, 48K, 1 Disk Drive 

CONTRACT SERVICES ASSOCIATES 8 

706 SOUTH EUCLID • ANAHEIM, CA 92802 • TELEPHONE: (714) 635-4055 



'TRS-80 is a trademark of Tandy Corp 



vSee List of Advertisers on page 402 80 Microcompu ting, March 1982 • 219 



Program continued 




















4ADA 2009 


30099 


JR NZ, CANCEL 


4A17 D?' ' :- 


00035 INPUT1 


EXX 


;DO THIS TO GET CURSOR 


4ADC 23 


00100 


INC HL 


4A18 362A 


0003 6 


LU 


(HL),2AH ; ASTERISK 


4 ADD 13 


007 02 


INC DE 


4A1A D9 


00037 


EXX 


;BACK TO OTHER REGS 


4ADE 10F8 


00102 


DJNZ COMPAR 


4A1B CD400B 


00038 INPUT2 


CALL 


0B40H ; INPUT LOOP 


4AE0 Fl 


00103 


POP AF (RESTORE FLAGS FROM LOAD 


4A1E 28FB 


;.i a s 9 


JR 


Z r INPUT2 


4AE1 El 


5 4 


POP HL (RESTORE END OF PROG ADDR 


4A20 FE0D 


00040 


CP 


13 ; INPUT RESETS ON <BREAK> 








4A22 38E6 


00041 


jr< 


C,HEAD+3 ;OR <CLEAR> & 


4AE2 CAEC0E 


00105 


JP Z,0EECH 


4A24 20F1 


00 04 2 


.;;< 


NZ,INPUT1 (TERMINATES ON <EN 


4AE5 219140 


00106 CANCEL LD HL.4091H 


TER> 








4AE8 119240 


00207 


LD DE,4092H 


4A26 119E4A 


00043 


I.D 


DE r BUFFER 


4ABB 016F3F 


00108 


LD BC,8000H-4091H 


4A29 011400 


4 4 


1.0) 


BC,20 


4AEE EDB0 


00109 


LDIR 


4A2C EDBB 
4A2E 115441 
4A31 CD4F09 
4A34 21BA41 
4A37 22FE41 
START 

4 A3 A 3A4038 
4A3D FE04 
4A3F CAC901 


00045 
00046 DUMP 

4 7 
00048 

00049 


LDIR 

r.n 

CALL 

ld 

LD 


;MOVE THE INPUT TO BUFFER 

DE.CASMES-DIS 

094FH [DISPLAY LOOP 

HL,NEKADR-DIS 

(41FEH),HL ;PUT IN NEW 


4AF0 0000 

4AF2 0000 
4AF4 0000 
4AF6 0000 
4AF8 00 
4AFA 0000 


00110 CKSUM DEFW 
J ! 1 DEFW 
0112 DEFW 
1 1 3 DEFW 
00114 DEFW 
1 1 :. DEFW 


00050 EDGE 

0005: 

00052 


I.D 
C? 
JP 


A,(3840H) 

4 [BREAK? 

Z.01C9H 


4AFC 0000 

4AFE 07 
900 


00116 . 

ooi ; 7 i 

00118 D 

00119 ( 

00120 ; 


DEFW 
AIL DEFB ENTRY&0FFH 
IS DEFL S-41FFH 


4A42 IF 


00053 


RRA 


;TEST ENTER BIT 




THE FIRST GENERATION PR 


4A43 30F5 


00054 


JP 


?JC,EDGE 


O G R A H 






4A45 CDE90F 


00055 DOWN 


CALL 


0FE9H ;TURN ON CASSETTE 


00121 ? 

00122 ; 




4A48 219E4A 
4A4B ED5B6C40 


300 56 
0057 


LD 

LD 


HL, BUFFER 
0:L, (406CH) 


SOURCE 


THE FOLLOWING SECTION TRANSFORMS THE ABOVE 


4A4F CD4B0F 


5 << 


CALL 


0F4BH [DUMP BASIC & LEADER 


00123 ( 


CODE INTO A LEVEL I READABLE PROGRAM 


4A52 18DA 


00059 


JR 


DUMP 


TAPE 






4A54 43 


00060 CASMES 


DEFM 


'CSAVEV 




012 4 ■ 




4A5A 0U 


00001 


DEFB 


13 




00125 ( 


**** IMPORTANT **** 


4A5B 0C 


00062 DISPLA 


DEFB 


12 ; CLEAR SCREEN 




00126 ( 




4A5C 0D 


a o <. 2 


DEFB 


13 




00127 ,• 


USER MUST PREPARE BLANK TAPE FOR OUTPUT B 


4A5D 43 


00064 


DEFM 


'CENSOR SECURITY CONTROL' 


E F O R E 






4A74 0D 


00065 


DEFB 


13 




00128 ( 


RUNNING THIS PROGRAM! 


4A75 46 


00066 


DEFM 


•FOR LEVEL I BASIC PROGRAMS' . 




00129 ( 












4AFF 31FF4A 


00130 ADJ LD SP,S 


4 ASF 15 D 


00067 


DEFB 


13 


4B02 11FE41 


1 3 J 


LD DE,41FEH 


4A90 0D 


00068 


DEFB 


13 


4 B0 7 21F0 4A 


1 7 2 


LD HL,TAIL 


4A91 45 


00069 


DEFM 


•ENTER CODE (UP TO 20 CHARAC 


4B08 01F800 


00133 


LD BC,TAIL-HEAD+1 


TERS) ' 








4B0B AF 


0:3.; 


XOR A 


4AIU BD 


00070 
00071 ; 


DEFB 


13 




00135 ,• 

00136 ( 


MOVE CENSOR INTO PLACE & CALC ITS CHECKSUM 




00072 ;THE CENSOR CONTROL PROGRAM WHICH IS SAVED 




00137 , 






00073 ; 


ALONG 


WITH BASIC BEGINS HERE 


4B0C 96 


00138 LOOP SUB (HL) 




00074 ; 






4B0D EDA8 


013 9 


LDD 


419E 


00075 BUFFER 


DEFL 


S-DIK-20 (OVERWRITES 


4B0F EA0C4B 


00140 


JP PE,LOOP 


DISPLA 








407 o 7)0.;; 


00141 


SUB 41H (CORRECT FOR MSB OF STAR 


4AB2 52 


00076 READYM 


DEFM 


' READY ' 


T ADD!-; 






4AB7 0D 


00077 


DEFB 


13 


4B14 32F041 


014 2 


LD (CKSUM-DIS) ,A (ADJUST ITS CK 


4AB8 3E 


00078 


DEFM 


'>' ;FAKE PROMPT 


SUM 


00143 

014 4 
814 b 
00146 




4AB9 00 
4 ABA i:5 
4ABB F5 


00079 

00080 NBWADR 

00081 


DEFB 
PUSH 
PUSH 


;END OF MESSAGE 

HL (START OF BOOTSTRAP 

AF 




PREPARE TO MAKE MULTIPLE 
25 0-BAUD DUMPS OF CENSOR 


4ABC 2027 


00082 


JK 


NZ, CANCEL 






4ABE 21B241 


00083 


LD 


HL,READYM-DIS [FAKE PROMPT 


4B17 11544A 


00147 LP2 LD DE, CASMES 


4AC1 3E0D 


00084 


I.D 


A, 13 (LOAD CARRIAGE RETURN C 


4B1A CD4F09 


00148 


CALL 09 4FH 


ODE 










0014<< 




4AC3 D7 


00085 FAKEIT 


RST 


101! 




001^0 


TURNING ON CASSETTE BEFORE KEYSCAN LOOP 


4 AC 4 7E 


0086 


ED 


A,(HL) 




00121 


■ WRITES EXTRA LEADER BETWEEN DUMPS 


4AC5 23 


00087 


INC 


HL 




00152 




4AC6 B7 


08088 


OR 


A 


4B1D CDE90F 


00153 


CALL 0FE9H 


4AC7 20FA 


000 89 


JR 


NO, FAKEIT 


4B20 0600 


017 4 


LD ,B,0 


4AC9 D9 


00090 


17 XX 


;GET CURSOR POSITION 


4022 CD400B 


o o : o. 7 


LP3 CALL 0B40H 


4ACA 3620 


00091 


LD 


(HL) r 20H (KILL CURSOR 


4B25 FE03 


00156 


CP 3 [TERMINATE ON <BREAK> 


4ACC CD400B 


009 2 KTZ 


CALL 


0B401! 


4R2 7 CAC901 


00157 


JP Z,01C9H 


4ACF FE0D 


00093 


CP 


13 ;DO KEYBOARD INPUT 


4B2A 10F6 


1 b o 


DJNZ LP3 


4AD1 20F9 


00094 


JR 


NZ.WTZ (TIL <ENTER> 


4B2C 2107a 


0015 9 


LD HL, ENTRY 


4AD3 0614 


00095 


LD 


B,20 (COUNT FOR TEST 


4B2F 11FF-11 


] 6 


LD DE,41FFH 


4AD5 119E41 


00096 


LD 


DE, BUFFER 


4 733 2 CD4BI F 


1 1 


CALL 0F4BH 


4AD8 1A 


00097 COM PAR 


LD 


A,(DE) (FETCH CODE 


4B35 18E0 


OBlf.2 


JR LP2 


4AD9 BE 


000"'! 


CP 


(HL) (COMPARE TO WHAT'S ON S 


4AFF 


00163 


END ADJ 


CREEK 















correct all direct addresses (cf. 
lines 25, 28, 46, etc.) in the file. 

The first-generation program 
(beginning at line 120) will per- 
form the block move, arid cai 
culate and adjust the checksum 
of the file. Level I's CLOAD func- 
tion will be storing the check- 
sum in the stack area (at 
41FFH); this value must be 41 H 
if Censor is to be self-starting. 

Once the program is 
transcribed and checked, it 
should be saved to ensure 
against untrapped errors (ED- 
TASM users use the W com- 
mand: T-Bug users execute P 
4A07 4B37). Now you are ready 
to prepare Censor. Load the 
first-generation program but, 
before executing it, put a blank 
tape m the recorder and press 
the record and play keys. Once 
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prepared, execute the program 
by entering / for the System ver- 
sion, or J 4AFF for the T-Bug ver- 
sion. The recorder will start up 
right away, recording the final 
version of Censor. Note that, as 
written, the first-generation pro- 
gram will record Censor over 
and over again. Output for each 
complete recording will only 
take about seven seconds (and 
about half that is leader!). You 
will be prompted for each 
recording with the appearance 
of the message CSAVE? which 
will help you count the record- 
ings, but the program does not 
wait for your response. When 
you have as many dumps as you 
want, press and hold down the 
Break key. When the current out- 
put is completed, control will be 
passed back to the Basic com- 

1982 



mand mode. 

When you are ready to save a 
program that is to be Censor- 
protected, CLOAD the Censor 
tape. The process will not affect 
the resident program in any way, 
as loading another Basic pro- 
gram would do. The program will 
start itself, clearing the screen 
and displaying: 

CENSOR SECURITY CONTROL FOR 
LEVEL I BASIC PROGRAMS 

ENTER CODE (UP TO 20 CHARAC- 
TERS) 

The asterisk which appears here 
is your cursor, which will move 
along the screen as you type in 
the code. If you press Break or 
Clear, the coding routine will 
start anew. When the code is 
entered, the program will ask if 
you wish to save the coded ver- 



sion. When you are ready, press 
Enter and the program will be 
CSAVEd. When that is com- 
pleted, another Enter will cause 
another recording to be made, 
while Break will return to the 
command mode with the Basic 
program undisturbed. 

To run the Censored program, 
CLOAD it. When the recorder 
stops, the screen will show the 
usual Ready prompt. The only 
clue that things are not as they 
seem is that there is no cursor 

(' ') after the prompt. At this 

point, enter your security code. 
Do not type List, Run or even 
press Break before you have 
done so. If this is done correctly, 
command mode will be returned 
with the Basic program ready to 
run. If there has been a CLOAD 
checksum error, the user will not 



Mow my account 
run on CP/M as well 

So they'll work wit 





I'm Irwin Taranto, and I originally designed my 
Model II systems to work with TRSDOS, the operating 
software Radio Shack supplies with the TRS-80. 

I designed them extremely carefully, with features 
other microcomputer accounting systems don't have. 
Mine all integrate with the general ledger, and, 
where it helps, they integrate with each other. 

My general ledger system gives year-to-year 
comparisons, in dollars and percentages. It figures 
budgets and it even has a report generator. 

My accounts receivable systems can do sales 
analysis by product code and figure in salesmen's 
commissions. They generate mailing lists by customer 
code or zip code for up to 2000 customers. 
You can choose either an open item system or a 
balance forward system which works on a cash or 
an accrual basis. 

My payroll system can handle up to 600 
employees in multiple departments, with any state 
tax routine (we provide them all). It can make any 
miscellaneous deductions you ask it to —it even 
does tips and meals. 

SBBS 




: .";- ;'•:":: ; 




TRSDOS and TRS-80 are trademarks of the Tandy Cor; 
CP/M is a trademark of Digital Research Corporation. 



My inventory control system stores up to 5000 
items. It can report by vendor, tell you when you're 
out of stock or when you need to reorder. It can 
update price or cost automatically, and integrates 
fully with my invoicing system. 

There's a lot more, too. Over the years, I've 
had thousands of phone conversations with 
my customers, working out the bugs and kinks and 
adding desirable features. Everybody talks about 
"user-oriented" systems, but because of all these 
phone calls, it really means something when I say it. 
These may well be the most thoroughly researched 
small business accounting programs in the world. 

They're also the best supported, at least as 
far as microcomputer systems go. If you have a 
problem, just call If your problem is tough enough, 
I'll get on the phone myself. There's no charge for 
phone assistance, ever. 

All these calls keep me upgrading my systems 
constantly If you own one, you're eligible for a 
standing offer I've made all along: send me your 
diskette, and I'll send you the latest upgrade for 
only $25. 

Now I've taken another step. More and more 
owners are switching over to CP/M software these 
days. It seems to be where the whole microcomputer 
industry is heading. 

That's fine with me, because I've just converted 
all these accounting systems, and can sell them for 
the prices I've listed: 

General Ledger/Cash Journal $ 299 

Accounts Payable/Purchase Order 349 

Open Items Accounts Receivable/Invoicing 349 
Balance Forward Accounts Receivable 399 

Payroll 299 

with Job Costing Option 399 

Inventory Control 399 

For mail-order programs, these prices may seem 
high. But for serious accounting programs, nothing 
can touch them. 

Michael Tannenbaum, the "80 Accountant" 
in 80 Microcomputing, just called them "a very 
impressive product at a very reasonable price." 

Our TRS-80 Model I and Model III systems 
aren't quite as sophisticated. But they're tremendous 
buys at $99 each ($149 for general ledger). 

So call me and take your choice —CP/M or 
TRSDOS. Same price, same support. My systems 
are ready and waiting. 



,.- 70 



&A£ 



OOULlni HiO, UnL/. 



121 Paul Drive, San Rafael CA 94903 

Outside California, toll free (800) 227-2868. In California, (415) 472-2670. 



■See List of Advertisers on page 402 
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Program Listing 2. 



00300 ; LISTING 2 



ASSEMBLY VERSION OF LEVEL II. 



R, 






E. 



00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
30110 

0120 
00130 



] Vi ,'.,, VERS. 2 

; SECURED ACCESS PROGRAM FOR LEVEL II BASIC 
! (C) 1981 STEPHEN MILLS 

■CENSOR CONVERTS BASIC PROGRAMMING INTO 
;A SECURITY CODED SYSTEM TAPE, WHICH CAN 
;BE LOADED UNDER SYSTEM AND DECODED BY 
(PROPER <=20 CHARACTER CODE. 

'; WITH BASIC IN MEM, SYSTEM LOAD CENSO 

; ENTER TAPE FILENAME & SECURITY ACCESS CODE 
; CENSOR WILL SAVE CODED BASIC AS SYSTEM TAPE 

[TO RECOVER BASIC, LOAD <FILENM> UNDER SYSTE 

;AND RESPOND TO '" PROMPT WITH SECURITY COP 



00160 
00170 
00180 



002E 
41E3 

E TO MAKE 

41E3 BF7E 00190 

ARTING 

4 16 0020 

a:*;.' dcb (to 

4016 E303 00210 

-MEM KB ROUTINES 

40A4 00220 

4 0F9 0230 



KEY EQU 

ORG 

DEFW 

CPG 

DEFVv 

BASBEG EQU 
B AS END EQU 



7 El 2 
7E12 C7 
7E13 0000 



ICH 
KED 



7 )■:','. E5 
7 El 6 C5 
7E17 CD2B00 
7E1B 

7E1A FE01 
7E1C CA191A 
7E1F FE0D 
7E21 282A 
7E23 FE20 
7E25 38F0 
7E27 77 
7E28 23 
7E29 CD3300 
7E2C 10E9 
7E2E CI 
7E2F El 
7E30 C9 
7E31 CDD67E 

ILL BE HERE 

7E34 4 2 

7E41 0D 

7E42 C37200 

0014 

7E45 0R 

MS THE 

7E46 23 

E 1 AND 

7E47 7 8 

THAT 

7E48 Bl 

7E49 C0 

IF NO CHANGE 

7E4A El 

7E4P El 

7E4C C9 

INE 

7E4D 3620 

7E4F 23 

7E50 10FF5 

7E52 04 

7E53 18D4 



7E55 AF 
ER 

7E56 C5 
7E57 P3 
7E58 8613 
7P3A 86 
7D5b 23 
7E5C 10FC 
7E5E El 
7E5F CI 
7E60 0F 
7E6D C9 
7E62 AF 
BAD INPUT 
7E63 67 
7E6 4 4C 
7E65 6 9 
7E6 6 5C 
7E67 16 3C 
7E6 9 4 5 
7E6A EDB0 



00810 
00820 
00830 KILL 

00840 

00850 

00860 

00870 

00880 

00890 

00900 

00910 ; 

00920 ; 

00930 ; 



2 EH 
41E3H 

ENTRY2 

40 1';:; 

3E3H 

40A4H 
40F9H 



PUT ADDRESS IN PLAC 
OUTPUT CODE SELF-ST 
RE-INITIALIZE KEYBO 

AVOID CRASHES W/ 11 1 

START OF CODE 

END+3 OF BASIC HERE 



00240 

00250 INIT 
00260 PROLEN 
00270 ; 
00280 ; 

00290 ; 

80388 ; 

80310 ; 

00320 INPUT 

0033 

00340 INL1 

00350 DSABL 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 IN2 

00450 

00460 

00470 

00480 

004 90 ACCODE 



00520 

00530 ACLEN 
00540 CTDONE 

00550 

00560 

00570 
00580 

00590 
00600 
00610 

00620 INDONE 
0638 
00640 
00650 
00660 
00670 i 
00680 ; 
00690 ; 
00700 ; 
00710 ; 
00720 CODEWD 

00730 
00740 
00750 
00760 
00770 
007 80 
00790 



ORG 7E12H 

RST 

DEFW ; PROGRAM LENGTH BUFFER 

SUBROUTINES USED BY CENSOR OUTPUT WH 

WILL INITIALLY BE SCRAMBLED ARE STAC 

HEPS 

;HL HAS BUFFER ADDR 



PUSH 

PUSH 

CALL 

EQU 

CP 

JP 

CP 

JR 

CP 

J R 

LD 

INC 

CALL 

DJN2 

POP 

POP 

RET 

CAM, 

DEFM 
DEFB 
JP 
EQU 

DEC 

INC 



POP 
POP 

PET 



INC 

DJNZ 

INC 



h ;, 

PC 
2BH 
S+l 
1 

Z,1A19H 
13 ;CAR RET? 
Z , I NDONE 

' ' ; LOWEST ALLOWED 
C,INL1 [AS INPUT 
(HL) ,A ;PUT IN BUFFER 
HL 
33H 
INL1 
BC 
HL 



;KEYSCAN 

; DISABLE BREAK HERE 

;TEST FOR BREAK 



; DISPLAY IT 



PRINT ; SCRAMBLED KEYWORD W 

'BASIC SPOILED' 

13 

72H 

S- AC CODE 

BC ;THIS ROUTINE PERFOR 

HL /COUNTING FOR 'DIVID 

A,B ; PROVIDES EXIT FROM 

C I SUBROUTINE 

NZ ; RETURN TO 'DIVIDE' 

HL ;UNSTACK RET ADDS 

HL ; RESTORE POINTER 

; EXITS FROM 'DIVIDE' SUBROUT 



(HL) , 



1 ;FILL BUFFER 
;WITH SPACES 



;ADJ FOR IK1 1 



FOLLOWING CALCULATES A ONE BYTE 
NUMERICAL KEY TO START ENCODING 

OR DECODING 



XOP 

PUSH 
PUSH 

1.3 

ADD 

IMC 

DJNZ 

POP 

POP 

RRCA 

RET 

XOP 

LD 



LD 
LD 

LDIR 



;MAKE CODE FROM BUFF 



BC ;SAVE WHAT'S THERE 

HL ;SAVE BUFFER ADDP 

B,ACLEN-1 

A,(HL) (ACCUMULATE CODE 

HL 

S-2 

HL 

BC 

;ADDTI. CHANGE 



P., A 

C,H 

L,C 

E,H 

D,3CH 

B,L 



(GENERATES CPASP ON 

•SET UP FOR 

(BLOCK MOVE Of 
; RAM 



NEXT SUBROUTINE MODIFIES FILE. ON 



(HL) = START ADDR OF CODE 
(BC) - NUMBER BYTES TO CODE 







9 ': ,• 






(D) = A 


KEYWORD 






30960 ; 


SINCE THESE OPERATIONS ARE SYMMETRIC • 


AL, SAME 














00970 ( 


ROUTINE 


will scrambl: 


SOURCE. 














00980 ; 








7E6C 


•D43137E 


00990 DIVIDE 


LD 


BC, (PROLEN) 


7E70 


E5 


01(181:' 


PUSH 


HL 


SAVE START OF PROG 


7E71 


7F. 


01318 ENCDL 


LD 


A, (HL) 


FIRST BYTE 


7E7 2 


\h 


1 2 


XOR 


D 


D HAS CODE WORD J 


7E73 


77 


01030 


DP 


(ilL) ,A 




7E74 


CD457E 


0104 


CALL 


CTDONE 




7E77 


7E 


01050 


LD 


A,(HL) 


•GET IT 


7E78 


ED6 7 


810', 


RRD 


(JUMBLE 


BITS 


7E7A 


CD457E 


0107 


CALL 


CTDONE 




7E7D 


7E 


01080 


LD 


A,(HL) 


(BYTE 3 


7E7E 


2-- 


01090 


CPL 


,• INVERT 


IT 


7E7F 


77 


0110 


LD 


(HL) ,A 




7E80 


CD457E 


I 1 1 


CALL 


CTDONE 




7E83 


1.8 PC 


0PPP8 
i 130 ; 


.JP 


ENCDL 








0114 ; 


MAIN OPERATION OF OBJECT PROGRAM BEG 


INS HERI 














01150 ; 


NOTE: THIS 


CRAMBLEI 














0116 ; 


OP TAPE. 


CUT ION. 














0117 ; 








7E85 


CDD67E 


31180 COHT2 


CALL 


PRINT 




7E88 


0A 


01190 


DEFB 


10 


(LINE FEED 


7E89 


2 A 


1.00 


DEFM 


i »•) i 




7E8B 


0D 


1210 


DEFB 


13" 




7E8C 


21E27E 


01220 


LD 


HL,HIGH 


;LOAD ACCESS 


7E8F 


0614 


01230 


LP 


B, ACLEN 




7E9I 


CD157E 


01240 


CAP!. 


INPUT 




7E94 


CD5 57E 


0125 


CALL 


CODEWD 


•DECODE INPUT 


7E97 


11317E 


01260 


LD 


DE, ACCODE 


7E9A 


4F 


0.127 


LD 


C,A 




7E9B 


1A 


01280 CDP 


LD 


A, (DE) 




7E9C 


13 


01290 


INC 


DE 




7E9D 


A 9 


01300 


MOP 


C 


j CORRECT IT 


7E9E 


AE 


01310 


POP 


(HL) 




7E9F 


20C1 


01320 


JR 


NZ.KILL 




7EA1 


23 


01330 


INC 


HL 


(BUMP BUFFER 


7EA2 


10F7 


0134 


DJNZ 


CLP 




7EA4 


51 


1. 3 3 


LD 


D,C 




7EA5 


2APD7P 


01360 FOLLOW 


PD 


HL, (LOWPT) 


7EA8 


CD6C7E 


01370 


CAPP 


DIVIDE 




7EAB 


ED4B137E 


013 30 


LD 


BC , ( PROLEN ) J COUNTER 


7EAF 


ED5BA440 


017 9.; 


LD 


DE, (BASBEG) (STORAGE PLACE 


7EB3 


EDB0 


0:400 


PD1P 


(MOVE II 


BACK 


7EB5 


ED53F94S 


01410 


LD 


(basend; 


,DE 


7EB9 


C37 200 


014 28 


JP 


72H 




00A6 




0I43O FIRST 


EQU 


S-INPUT- 


1 j LENGTH OF S 


CRAMBLED FTP: 










7 DSC 


78 


01440 TERM 


PPPP 


7 8H 




7EBD 


0000 


014 30 LOWPT 

1460 ; 


DEFW 





(LOW ADDR HERE 






01470 ; 


INITIAi 


DECODINC 


OF OBJECT FILE DONE 


HERE 














01480 ; 








7EBF 


3EC9 


01490. ENTRY2 


LD 


A, 201 


[RETURN OPCODE 


7 PCI 


3 2E241 


013 


LP 


(41E2H) 


A (CORRECT AUTOSTART 


I ec •; 


06A6 


0151 


PD 


D.PIPSP 


; COUNT 


7EC6 


21147P 


13 2 


LD 


HL,INPUT-1 (LESS FOR INC 


7 EC 9 


0E2E 


013 3 


LD 


C,KEY 


(GET UNSCRAMBLER 


7ECB 


7.3 


013 40 UKSCR 


INC 


HL 


;BUMP PTR 


7 pre 


7E 


015 30 


LD . 


A, (HL) 


[GET MODIFIED BYTE 


7 PCD 


Ft 


01 360 


PUSH 


AF 


[SAVE IT 


7 PCD 


91 


01570 


SUB 


C 


; SUBTRACT OLD BYTE 


7ECF 


7 7 


1330 


LD 


(HL),A 


[RESTORE LOCATION 


7ED0 


Pi 


0X390 


POP 


AF 




7ED1 


4F 


01600 


LD 


C,A 




7 ED 2 


10F7 


01610 


DJNZ 


UNSCR 




7PD4 


18AF 


01620 CONVRT 




CONT2 


; CONTINUE EXECUTION 


OV DECODE 










7ED6 


E3 


01630 PRINT 


EX 


(SP) ,HL 


(GET BUFFER ADDP 


7PD7 


7E 


01640 PL1 


LD 


A. (HL) 




7 ED 8 


23 


1650 


INC 


HL 




7ED9 


CD3 30 


01660 


CAM. 


33H 




7EDC 


FE0D 


01670 


CP 


13 




7EDE 


20F7 


01680 


JR 


NO, PL! 




7EE0 


E3 


013 90 


EX 


(SP) ,HL 




7EE1 


DP 


017 


RET 






7EE2 


oo 


017.10 PD3P 

01720 ; 


NOP 










01730 ( 


CASSETTE OUTPL 


CONTROL OF INITIALIZ 


INC, 
















01740 ; 


PROGRAM 11 


UTINES 














01750 ; 












01760 ; 


1 BLOCK 


DOES MEMORY OUTPUT. ON ENTR 


Y : 




01770 ; 




(HL) = 


START ADDRESS OF MEM 






017 80 ; 




(B) = 


COUNT FOR OUTPUT 






01790 ; 


RUNNING SUM ! 






013011 ; 








7EE3 


7E 


01 310 BLOCK 


IP- 


A,(HL) 


(GET NEXT 


7EE4 


F5 


0.1820 


PUSH 


AF 




7EE5 


81 


0.133 


ADD 


A,C 


;CALC CKSUM 


7EE6 


4F 


01840 


LD 


7, A 


[STORE IT 


7EE7 


Fl 


01 330 


POP 


AF 




7EE8 


CD6 40 2 


01 3,10 


CALL 


264H 


[SAVE IT 


7EEB 


23 


01870 


INC 


HL 




7 EEC 


10F5 


01880 


DJNZ 


BLOCK 




7EEE 


C9 


01890 


RE'l 










01900 














01910 




1 03 AVE 


CONTROLS ' ' ORMAT 






19 2 




OUTPUT 


. USES ' 


P. LOO P. ' 






01930 




WRITES 


LINK CODE, STARTING ADDRESS 






1 9 4 






AND CHECKSUM 






1 9 7 










7EEF 


3E3C 


013 6 


'SAVE 


PD 


A,3CH 


;LINK CODE 



Program continues 
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Designing a computer that people could use in business and leisure, 
without spending alot of money was once a problem. Thanks to the 
TRS-80* there are now over 200,000 Microcomputers in homes and 
business today. 

Unfortunately in keeping the price of the TRS-80 down, the Random 

Access Memory was kept down to only 17K. Yes. 17K. (16K User Memory 
and IK Video Memory. 128 x 48 or 6,144 Independently controlled dots') 
BUT WE'VE CHANGED ALL THAT. 

NOW HIGH RESOLUTION GRAPHICS 
ARE HERE! 



S^ffltir-- 



FEATURES 
YOU'VE NEVER SEEN BEFORE. 



• Hardware total screen inverse video 

• Two modes of density: 

384 x 192 or 192 x 192 for Model I 
512 x 192 or 256 x 192 for Model III 

• Every dot can be set, reset or tested. 

• 12288 bytes Video Memory 

• Select normal, high or very high resolution with or 
without inverse video via output port. 

• Disable Mikeeangelo's memory via output port. 



MIKEEANGELO is 16 times better with the Model III 
and 12 times better for the Model I. 

That's 512 x 192 or 98,304 dots for Model III, 
and 384 x 192 or 73,728 dots for Model I. 

MIKEEANGELO connects to your TRS-80 easily, -s You can 
do it yourself with our instruction book *5 in minutes and a 
handy tool kit is available, if you need one for $15. Please 
specify Model I or III TRS-80. 

Order Now For Only $369. Complete 

Order today complete with power supply, case, software and excellent manual for $369. Check, 
Money Order, Master Charge, Visa. Mastercard or COD's accepted. '4 

Or write for free booklet and more information. 

MIKEEANGELO 



•1 MIKEEANGELO is a trademark for Mikee Electronics Corp 

'2 TRS-80 is a trademark for the Tandy Corp. 

*3 Opening your TRS-80 will void the limited warranty. 

*4 90 day warranty, full refund or replacement. 

*5 The manual is available separately for $15. The full price of this manual wil 

be deducted from the purchase price of MIKEEANGELO when ordered. 



sSee Lis! ol Advertisers on page 40? 



MIKEE ELECTRONICS CORPORATION 

P.O. Box 3813 Bellevue, Washington 98009 

Telephone 206/451-0574 

Stock to 30 days for delivery. 
Washington residents must add sales tax. 

"Dealers Inquiries Invited" "* y2 
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Program continued 






7F91 0A 


02690 


DEFB 


10 ;LINE FEED 










7F92 4C 


02700 


DEFM 


'LOAD CASSETTE' 


7EF1 CD6402 


01970 


CALL 


26 41: 


7F9F 0D 


B2710 


DEFB 


13 


7EF4 78 


01980 


LD 


A,B ; RECORD COUNT 


7FA0 CD2B00 


(3 27 2 WAIT 


CALL 


2BH 


7EP5 CD6402 


01990 


CALL 


26 4!! 


7FA3 FE01 


02730 


CP 


1 ; BREAK? 


7EF8 7D 


02000 


LD 


A,L (STARTING ADDR 


7FA5 284C 


02740 


J P. 


Z, FINAL 


7EF9 4F 


02010 


LD 


C,A ; START CHECKSUM 


7FA7 B7 


02750 


OB 


A ; ANYTHING? 


7EFA CD6402 


02020 


CALL 


264H 


7FA8 28F6 


02760 


J P. 


2, WAIT 


7EFD 7C 


02030 


LD 


A,H 


7FAA 3EC3 


02770 


LD 


A,0C3H (JP OPCODE 


7EFE CD6 402 


02040 


CALL 


26 4H 


7FAC 32E241 


27 80 


LD 


(41E2H) ,A 


7F01 81 


02050 


ADD 


A,C 


7FAF AF 


02790 


XOR 


A 


7F02 4F 


02060 


I D 


C,A 


7FB0 CD1202 


02800 


CALL 


212H ;DEF1NE DRIVE 


7F03 CDE37E 


02070 


CALL 


BLOCK 


7FB3 CD8702 


02810 


CALL 


287H ; WRITE LEADER 


7F06 79 


02080 


LD 


A,C ;GET CKSUM 


7FB6 210A7F 


02820 


LD 


HL, FILNAM 


7F07 C36402 


02090 


JP 


264H (WRITE & RET 


7FB9 0607 


02830 


LD 


B,7 ; WRITE HEADER 


7F0A 55 


02100 FILNAM 


DEFB 


55H ; SYSTEM TAPE IND1CAT 


7FBB CDE37E 


02840 


CALL 


BLOCK ;W/0 CHECKSUM 


OR 








7FBE 21127E 


02B50 


LD 


HL, INIT 


7F0B 11127E 


02110 RUN 


LD 


DE,INIT 


7FC1 06D1 


02860 


LD 


B,HIGH-INIT+1 (COUNTER 


7F0E 2AF940 


02120 


LD 


HL,(BASEND) ;CONFLICT 


7FC3 CDEF7E 


02870 


CALL 


CSAVE 


7F11 E5 


02130 


PC Si! 


HL ;SAVE IT A WHILE1 


7FC6 0603 


02880 


LD 


B,3 


7F12 ED52 


02140 


SBC 


HL,DE 


7FC8 21E241 


02890 


LD 


HL,41E2H 


7F14 El 


02150 


POP 


HL 


7FCB CDEF7E 


02900 


CALL 


CSAVE 


7F15 D2317E 


02160 


JP 


NC,ACCODE ;AT 1ST HAS CODE 


7FCE 2ABD7E 


02910 


LD 


HL, (LOWPT) 


7F18 ED4BA440 


02170 


LD 


BC,(BASBEG) ;GET START 


7FD1 ED5B137E 02920 


LD 


DE, i PROLEN) 


7F1C 3F 


02180 


CCF 


; CLEAR CARRY 


7PD5 14 


02930 


INC 


D 


7 FID E5 


02190 


PUSH 


HL ;SAVE FOR BLOCK MOVE 


7FD6 15 


02940 OUTLP 


DEC 


i) (DECREMENT MSB OF CT 










7FD7 2807 


02950 


J K 


Z, FINISH 


7F1E ED42 


02200 


SBC 


HL,BC ;CALC PROG LENGTH 


7FD9 0600 


02960 


LD 


B,0 ;0 FOR MAXIMUM DUMP 


7F20 22137E 


02210 


LD 


(PROLEN) ,HL 


7FDB CDEF7E 


02970 


CALL 


CSAVE ;SAVE A BLOCK 


7F23 3E02 


02220 


LD 


A, 2 ; RESULT IF 


7FDE 18F6 


02980 


JR 


OUTLP 


7F25 84 


02230 


ADD 


A,H ;NO PROGRAM 


7FE0 7B 


02990 FINISH 


LD 


A,E ;GET REMNANT 


7F26 AD 


02240 


XOR 


L (IN MEM 


7FE1 4 2 


03000 


LD 


B,E 


7F27 CA7200 


02250 


JP 


2, 7 2 SI 


7FE2 B7 


03010 


OR 


A ;TEST FOR 


7F2A CDD67E 


02260 


CALL 


PRINT 


7FE3 C4EF7E 


03020 


CALL 


NZ, CSAVE ;SAVE ODD BYTES 


7F2D 46 


02270 


DEFM 


'FILENAME? ' 


7FE6 21BC7E 


03030 


LD 


HL,TERM 


7F36 0D 


02280 


DEFB 


13 


7FE9 0603 


03040 


LD 


B,3 


7F37 0606 


02290 


LD 


B,6 


7FEB CDE37E 


03050 


CALL 


BLOCK ; WRITE AUTO START 


7F39 210B7F 


02300 


LD 


HL, FILNAM +1 


7FEE CDF801 


03060 


CALL 


1F8H ;TURN OFF CASSETTE 


7F3C CD157E 


02310 


CALL 


INPUT ;PUT FILENAME 


Tl'i'j 189B 


03070 


JR 


LUMP 


7F3F CDD67E 


02320 


CALL 


PRINT 




03080 ; 






7F42 0A 


02330 


DEFB 


10 




03090 ( 


FOLLOWING ■■, : , . „. .\ .. v !-.. .. ,.<.„:■: 


7F43 41 


02340 


DEFM 


'ACCESS CODE?' 


INTO 








7F4F 0D 


02350 


DEFB 


13 




03100 ; 


A SUBROUTINE IN ORDER TO RESTORE BAS 


7F50 21 31 7 E 


02360 


LD 


HL,ACCODE 


IC 








7F5i 0614 


02370 


LD 


B,ACLEN 




03110 ; 


PROGRAM IN MEMORY. . i 


7F55 CD157E 


02380 


CALL 


INPUT 


ODE 








7F58 CD557E 


02390 


CALL 


CODEWD ;GET CODE VALUE 




22 121! ; 


SEGMENT, ,-....■■!■. 


7F5P. 327B7F 


02400 


LD 


(SPOT1) ,A 


AND 








7F5E 32FC7F 


02410 


LD 


(SPOT2) ,A 




03130 ; 


JUMPS INTi I;. :.. . .-. :■■..: i.i 1 ....;■■ Li'. 


7F61 57 


02420 


LD 


D,A ;.i. i I - - IN 


SECTION 








FIELD OVERFLOW 








0314 ; 


RETURN 


TO BASIC IS AUTOMATIC 


7FC2 3EFF 


02430 


LD 


A,-l ; DISABLE BREAK 




03150 ; 






7F64 321B7E 


02440 


LD 


(DSABL) ,A ;IN INPUT 


7FF3 3 EC 9 


03160 FINAL 


LD 


A,0C9H (RETURN OPCODE 


7F67 7E 


n;:450 ENCL 


LD 


A, (HL) ;GET BYTE 


7FF5 32D47E 


03170 


LD 


(CONVRT) ,A 


7F6 8 A;, 


02460 


XOR 


D (MODIFY IT 


7FF8 CDBF7E 


03180 


CALL 


ENTRY 2 


7F6 9 77 


02470 


LD 


(HL) ,A ;1ST CHANGE FOR 


7FFC 


03190 SP0T2 


EQU 


S+l 


7F6A 23 


02480 


t NC 


HL 


7FFB 1600 


03200 


LD 


D,0 (CODE WORD if: RECOVERED 


7F6B 10FA 


02490 


DJNZ 


ENCL TRANSMITTED CODE 


7FFD C3A57E 


03210 


JP 


FOLLOW 


7F6D ED4B137E 02500 


LI) 


BC, (PROLEN) (MOVE LENGTH 


3C00 
3C00 20 


03220 
03230 


OHO 
DEFM 


3C00H (VIDEO MESSAGE 


7P71 11117E 


02510 


LD 


DE,INIT-1 








' 


7F74 El 


02520 


POP 


HL 


3C40 20 


03240 


DEFM 


• * * * LEVEL I 


7F75 2B 


02530 


DEC 


HL ;BACK UP ONE TO PROG 


I BASIC CENSOR » * * 




' 


RAM 








3C80 20 


03250 


DEFM 


1 VERS. 2 (C) 


7F76 EUB8 


02540 


LDDR 


; BLOCK MOVE IT 


1981 STEPHEN MILLS 




1 


7F78 13 


02550 


INC 


DE ;BUMP UP 


3CC0 2.0 


03260 


DEB M 


' CONVERTS RESIDENT BASIC 


7F79 EB 


02560 


EX 


DE,HL >GET LOW IN HL 


PROGRAM TO 


LIMITED ACCESS 


SYSTEM 


1 


7F7B 


2570 SPOT1 


EQU 


$+1 


3D00 20 


03270 


DEFM 


' FORMAT OUTPUT. USER M 


7F7A 1600 


02580 


LD 


D,0 ;CODE WORD IS HERE 


UST SUPPLY SYSTEM FILENAME 


(UP TO 


' 


7F7C 22BD7E 


02590 


LD 


(LOWPT) ,HL 


3D40 20 


03280 


DEFM 


1 6 CHAR) AND SECURITY CO 


7F7F CD6C7E 


02600 


CALL 


DIVIDE ; ENCODE 


DE (UP TO 2, 


CHARACTERS) . 




1 


7F82 06A6 


02610 


LD 


B, FIRST 


3D80 20 


03290 


DEFM 


' * AFTER ENCODED TAPE I 


7F84 211571; 


02620 


LD 


HL, INPUT 


S RELOADED, 


SECURITY CODE 


4UST BE 


1 


7F87 3E2E 


02630 


LD 


A, KEY ; SCRAMBLER 


3DC0 20 


03300 


DEFM 


1 TYPED IN IMMEDIATELY & 


7F89 86 


2640 LOOP 


ADD 


A,(HL) ;MIX IT 


CORRECTLY WHEN *? PROMPT 


APPEARS 


1 


7F8A 7 7 


2 2651; 


LD 


(HL) ,A 


4020 


03310 


ORG 


4020H (CURSOR STORAGE 


7F8B 23 


02660 


INC 


HL 


4020 C03D 


03320 


DEFW 


3DC0H (SET CURSOR BELOW ME 


7F8C 10FB 


02670 


DJNZ 


i.COP 


SSAGE 








7F8E CDD67E 


26 80 DUMP 


CALL 


PRINT 


7F0B 

00001 TOTAL 


09999 
ERRORS 


END 


RUN 



be informed until after the 
security check. At this point the 
Basic program is in accessible 
memory and everything is nor- 
mal. If the security code is not 
correctly entered, all memory 
(up to 16K) will be erased. 

Level II Censor 

The Level II version of Censor 
(see Program Listing 2) is longer 
and more complex than that for 
Level I, mainly because of the 
greater flexibility of Level II. 
Without software control, the 
Level I user is tightly bound to 
ROM, while the knowledgeable 
Level II user can move about 
freely in the system. I have 
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therefore gone to somewhat 
greater lengths to defeat the 
meddler. In the Level II version, 
the secured program code is 
scrambled. The control pro- 
gram, as it is recorded, is mostly 
encrypted, and the security 
code itself is doubly encrypted 
and never decoded. The Level II 
version has memory require- 
ments: Although it is not 
necessary to reserve memory, 
there must be 500 bytes of 
memory left above the Basic 
program for Censor to occupy. 
Censor does perform a test to 
determine if there is a conflict. 
Censor can be transcribed 
through an editor/assembler or 

1982 



a monitor program, or it can be 
produced directly from Basic by 
means of POKEs. The first 
method is most convenient; 
however, because Censor con- 
tains discontinuous sections of 
code, which T-Bug is incapable 
of outputting. Also, the as- 
sembler technique makes it 
easy to revise Censor for dif- 
ferent memory configurations 
(simply change the ORG ad- 
dress in line 240). 

If you are a 16K user, who can- 
not use this method, you have an 
alternative in Program Listing 3. 
This Basic program provides a 
way of producing Censor as a se- 
cond-generation program. Cen- 



sor is contained in the data state- 
ments of Listing 3, along with a 
USR function program that does 
the output (T-Bug users who have 
already put the program in mem- 
ory need only transcribe the first 
two lines of data, if they change 
the value of S in line 140 to 
32273). With memory size set to 
32160, run the program in Listing 
3. It will POKE the Censor pro- 
gram into place, performing a 
checksum test of the data as it 
does so. If all is well, the program 
will allow you to make multiple 
recordings of Censor. During re- 
cording, the video message for 
Censor appears on the screen; it 
should not be omitted because 
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• IMMEDIATE 
AVAILABILITY 

• CPM OPTION 

• GREAT DISK 
STORAGE 

• MODEL III 
COMPATIBILITY 




*cPfr 

• WINCHESTER 
HARD DISK 



lorLAY 



MOD III PLUS/140 

We have taken the basic 16K 

Model III expanded the memory 
lo 48K and added our MTI Double 
Density. Dual Disk Drive System. 
System is fully compatible with 
Radio Shack DOS and peripherals. 

FROM S1998 



MOD 1 1 1 240 

Same as the MOD III PLUS/140 
but has double storage capacity, 
and 2 dual headed 40 track 

drives. 

S2449. 

CP/M-80: Option to run CP/M 2.2. 
with 80x24 video board tor word 
processing and many other 
applications. 



•4 Mhz 
OPERATION 



MOD HI/280 

Has 1.5 megabytes of storage 

and utilizes 2 dual headed 80 
track double density disk drives 
with DOS plus 3.3. 

$2799. 

4 Vihz Speed-up enhancement 
Doubles the processor speed of the 
Mod III 140, 240, or 280 systems, 
when used with the DOS plus 
operating system. 

$149. 



Anchorage, AK (907) 333-8322 

Rodgers. AR (501) 636-9168 

Mesa, AZ (602) 833-8949 

Phoenix. AZ (602) 244-9739 

Sierra Vista, AZ (602) 458-2479 

Tucson, AZ (602) 323-9391 

Anaheim. CA (714) 773-0240 

Covina, CA (213) 332-4088 

Goleta. CA (805) 967-7628 

Huntington Beach, CA (714) 842-1348 

Inglewood, CA (213) 673-3295 

Lancaster, CA (80S) 942-5747 

Montclair, CA (714) 626-4813 

Northridge. CA (213) 886-9200 

Orange. CA (714) 771-0880 

Pacheco, CA (415) 689-2260 

Placerville. CA (916) 622-4640 



MTI AUTHORIZED SALES AND SERVICE CENTERS 



Port Huememe. CA 



(805) 985-2329 



Redondo Beach, CA . (213) 370-5556 

Riverside, CA (714) 781-6361 

San Diego, CA (714) 275-4243 

San Jose CA . (408)946-1265 

Santa Ana. CA (714) 850-1228 

Santa Monica. CA (213) 393-5785 

Vallejo. CA (707) 554-4933 

Walnut, CA (714) 594-9760 

Westlake Village, CA . (213)706-0333 

Colorado Spring, CO (303) 630-3334 

Grand Junction. CO (303) 434-3616 

Groton, CT (203) 445-5166 

Wilmington, DE (302) 762-0227 

Hollywood, FL (305) 981-101 1 

Lynn Haven, FL (904) 265-6452 

Mary Esther, FL : (904) 243-5793 

Tampa, FL (813) 247-6023 

Norcross. GA (404) 449-8982 




Buckingham. IA (319) 478-2826 

Belleville, IL (618) 277-2354 

Collinsville, IL (618) 345-5068 

Oak Park, IL (312) 386-3323 

Shawnee, KS (913) 631-2029 

Ashland, KY (606) 325-2210 

Shreveport, LA (318) 865-7189 

Anoka. MN (612) 427-5783 

Cameron. MO (816) 632-6528 

Great Fails. MT (406) 737-0901 

Missoula. MT (406) 549-9715 

Raleigh, NC (919) 755-1175 

Grand Forks, ND (701) 772-7848 

West Milford. NJ (201)728-8080 

Las Vegas. NV (702) 870-4138 

Jericho. NY (516)333-2266 

New Roche!l°. NY (914) 235-4444 

Syracuse. NY (315) 487-5000 



• 90 DAY 
WARRANTY 

• LOCAL DEALER 
SERVICE 

• 1 YR. EXT. 
WARANTEE AVAIL. 



MOD lll/WINCHESTER 
Our largest business computer 
system. 5.7 megabytes of 
storage. Includes a 5 megabyte 
Winchester hard disk drive and 
80 track dual head disk drive 
used as back up and for con- 
ventional floppy disk operation. 
S5399. 



Troy NY (518) 273-8411 

White Plains. NY (914) 761-9283 

Tonkawa. OK (405) 628-2693 

Tulsa, OK (918) 836-9503 

Portland. OR (503) 281-7640 

Dallas, TX (214) 247-6679 

Missour City. TX (713) 499-5241 

San Angelo. TX (915) 658-3781 

Cheyenne. WY (307) 632-9132 

Buenos Aires. ARG 32-1858 

Paris. FRANCE 306-4606 

Holm. GERMANY 4103-4315 

Florence. ITALY 55-45-4319 

Singapore. JAPAN . ... 220-7182 

Cape Town. S.AFRICA 2145-1047 

Tahiti. F.P 2-54-47 

Taichung. TAIWAN 4228-5523 

Bang Kok, THAILAND 314-1161 



MICROCOMPUTER TECHNOLOGY INC. 

3304 W. MACARTHUR, SANTA ANA, CA 92704 
(714) 979-9923 • TWX 910-595-1902 MTISNA y 



Call or write for free brochure: 

U.S. PRICES. F.OB SANTA ANA 

CALIFORNIA AND MAY VARY BY AREA. 

CP M is a registered trademark of Digital 

Research, Inc 



sSee List of Advertisers on page 402 
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the lower portion of video mem- 
ory is beingdumped onto tape. 

When -you. are ready to use 
Censor to protect a resident 
Basic program, enter the system 
mode and load Censor from cas- 
sette. During the load, informa- 
tion about the use of Censor will 
be written directly onto the 
screen, cutting down the 
memory requirements for the 
program itself. Also during the 
load, keyboard control (in the 
keyboard Device Control Block) 
is restored to ROM. This last fea- 
ture is important if you are using 
keyboard utilities which reside in 
high memory (like a debounce 
routine or an encoding utility like 
UNIKEY). Without this correc- 
tion, a system crash would prob- 
ably result. 

When the cassette has stopped, 
enter "/" to start the program. 
Because the output of Censor is 
a system tape, it is necessary to 
assign a file name for the record- 
ing. This six-character label is 
not part of the security code, and 
need have no connection at all 
with the code. When that has 



been entered, the program re- 
quests an access code. Here 
type in your security code (up to 
20 characters). Now Censor is 
ready to dump your program in 
encrypted form. It will permit 
multiple dumps, stopping and re- 
turning to the command mode 
when you press the Break key. 

To reload the protected pro- 
gram, you must get into the 
System mode and enter the 
filename you have assigned to 
the program. Censor converted 
your Basic program to this for- 
mat because, unlike Level I, the 
Level II CLOAD function does 
not derive program addresses 
from the cassette itself. Instead, 
Level II simply buffers the pro- 
gram wherever its pointers dic- 
tate. This makes it very easy to 
merge programs in Level II 
Basic, but it also makes it im- 
possible to usurp control from 
ROM during the load. In the 
System format, on the other 
hand, the loaded program is 
stored according to informa- 
tion read from the cassette. 
Therefore, the tape can insert 




PERTEC FLIPPY 



$205 



ONE YEAR 
WARRANTY 



M III FDC KITS 

J & M SYSTEMS $350 
A. M. ELECTRONICS $350 



M III SYSTEMS Model III RS232 $75 

48K 2 DISK DRIVE (No RS232) $1895 
48K 2 DISK DRIVE with RS232 $1973 

DISK DRIVES BARE 

40 TK TANDON 40TK TEAC 40TK PERTEC 

$230 $230 $205 

Add $45 00 to Bare Price for Complete Models. 

PRINTERS 

OKIDATA 82A $525 
OKIDATA 83A $725 
OKIDATA 84 $11 OO 

DOSPLUS 4.0 
and 5 MEG. 
WINCHESTER 

FOR MODEL III $2895 

This is complete and ready to plug 
into data bus for use as drive No. 4. 

MODEL III 16K $850 



120 CPS Bidirectional with RS232 & Parallel. 
120 CPS Bidirectional with RS232 & Parallel. 
200 CPS Bidirectional with RS232 & Parallel. 




638 S. Dillard St. 

West Orange Shopping Cntr. 

Winter Garden, FL 32787-0915 

Store: 305-877-2830 
" ,78 DATA: 305-877-2829 



an address which redirects the 
program counter to Censors 
control program. In this case, 
we do not write directly into 
the stack (as in Level I), but 
change the System vector ad- 
dress 41 E2H to 41 E4H. 

When the load is completed, a 
bogus System prompt sans cur- 
sor will appear. At this point 
type in She correct security code 
for your program. You will note 
that the control program ex- 
ecutes an automatic carriage 
return after the prompt, a clear 
reminder to the user that a con- 
trol program is operating. This 
input process is very stringent: 
No breaks, clears or backspac- 
ing will be permitted, so be 
careful what you type. 



If the entered security code is 
correct, the Basic program will 

be decoded and transferred to its 
normal location (beginning at 
42E9H), at which point it is ready 
to run. If the control program is 
not satisfied, a system crash will 
result, erasing the program, fill- 
ing the screen with vibrant gar- 
bage and causing an unreset- 
table lock-up. This dramatic 
touch is intended to frighten off 
the more naive meddlers ("Oh- 
oh! I've broken it now!"). If the 
user finds this annoying, a slight 
modification of the Kill routine in 
Listing 2 should take care of it. 

After all, it seems that the 
popular TRS-80 can be trained to 
keep secrets. If only it were so 
easy with all our friends . . . ■ 



LEVEL II CENSOR BASIC VERSION 



10 CLS: PRINT" 



LEVEL II CENSOR (C) 1981 STEPHEN MILLS 



Basic-based first generation prograffi 
Requires MEMORY SIZE? set to 32160 



30 REM 



T-BUG USERS WHO HAVE ENTERED MAIN 

PROGRAM INTO 7E12H TO 7FFFH ONLY 

NEED DATA LINES 50-60 * MUST 

CHANGE VALUE OF S TO 32273 (LINE 140) 
40 FORX=13T094:SET(X,4) :SET(X,10) :NEXT: FORX=5T09 : SET( 13 ,X) :SET(9 
4,X) :NEXT 

50 DATA33, 191, 126, 34, 227, 65, 33 ,227, 3, 34, 22, 64, 33, 192, 61, 34, 32, 64 
,17 5,205,18,2,205,135,2,33,246,125,6,7,205,227,126,33,32,64,6,2, 
205,239,126,33,22,64,6,2,205,239,126,33,227,65,6,2,205,23 9,126,3 
3,18,126,17,23 8,1,205,253,125,33,0,60,17 

60 DATA0, 2, 205, 253, 125, 6, 3, 33, 15, 126, 205, 227, 126, 195, 248, 1,85, 67 
,69,78,83,7 9,82,20,21,40,7,6,0,205,239,126,24,246,123,183,200,67 
,195,239,126 

70 DATA1 20, 11, 127, 199, 0,0, 229, 197, 205, 43, 0,254, 1,202, 25, 26, 254,1 
3,40,42,254,32,56,240,119,35,205,51,0,16,233,193,225,201,205,214 
,126,66,65,83,7 3,67,32,83,80,7 9,73,76 

80 DATA69, 6 8, 13, 195, 114, 0,11, 35, 120, 177, 192, 225, 225, 201, 54, 32, 35 
,16,251,4,24,212,175,197,229,6,19,134,35,16,252,225,193,15,201,1 
75,103,76,105,92,22,60,69,237,176,237,75,19,126,229,126,170,119, 
205,69,126,126,237,103,205,6 9,126,126,47,119 

5 DATA205, 6 9, 126, 24, 236, 205, 214, 126, 10, 42, 63, 13, 33, 226, 126, 6, 20 
,205,21,126,205,85,126,17,49,126,79,26,19,169,174,32,193,35,16,2 
47,81,42,189,126,205,108,126,237,75,19,126,237,91,164,64,237,176 
,237,83,249,64,195,114,0,120,0,0,62,201,50,226,65,6,166,33 
100 DATA20, 126, 14, 46, 35, 126, 245, 145, 119, 241, 79, 16, 247, 24, 175, 227 
,126,35,205,51,0,254,13,32,247,227,201,0,126,245,129,7 9,241,205, 
100, 2, 35, 16, 245, 201, 62, 60, 205, 100, 2, 1-20, 205, 100, 2, 125, 79, 205, 100 
,2,124,205,100,2,129,7 9,205,227,126,121,195,100,2,85,17,18,126 
110 DATA42, 249, 64, 229, 237, 82, 225, 210, 49, 126, 237, 75, 164, 6 4, 63, 229 
,237,66,34,19,126,62,2,132,17 3,202,114,0,205,214,126,70,73,76,69 
,78,65,77,69,63,13,6,6,33,11,127,205,21,126,205,214,126,10,65,67 
,67,69,83,83,32,67,79,6 8,69,63*13,33,49,126,6,20,20 5,21,126 
120 DATA205, 85, 126, 50, 123, 127, 50, 252, 127, 87, 62, 255, 50, 27, 126, 126 
,170,119,35,16,250,237,75,19,126,17,17,126,225,43,237,184,19,235 
,22,0,34,189,126,205,108,126,6,166,33,21,126,62,46,134,119,35,16 
,251,205,214,126,10,76,79,65,68,32,67,65,83,83,6 9,84,84,69 
130 DATA13, 205, 43, 0,254, 1,40 ,76, 183, 40, 246, 62, 195, 50, 226, 65, 175, 
205,18,2,205,135,2,33,10,127,6,7,205,227,126,33,18,126,6,209,205 
,239,126,6,3,33,226,65,205,239,126,42,189,126,237,91,19,126,20,2 
1,40,7,6,0,205,239,126,24,246,123,67,183,196,239 

140 DATA126, 33, 188, 126, 6, 3, 205, 227, 126, 205, 248, 1,24, 155, 62, 201, 5 
0,212,126,205,191,126,22,0,195,165,126 

150 POKE16562, 125 :P0KE16527, 125 :P0KE16526, 158 :POKEl 6561, 158 :CLEA 
R50 : DEFINTN-S : S=32767 : FORL=32160TOS : PEADN : C=C+N : POKEL , N : NEXTL 
160 IFS=32767ANDC=65431THEN180. 

170 IFSO322730RCO11263THENPRINT-BAD DATA":END 
180 PRINT" 

•*** PREPARE FOR CASSETTE OUTPUT ***" 
190 A$=INKEY$:IFA$OCHR$(13)THEN190 • 
200 CLS:PRINT@79,"* * * LEVEL II BASIC CENSOR * * *", 3143 , "Vers . 

2.2 (c) 1981 Stephen Mills" 
210 PRINTl?196, "CONVERTS RESIDENT BASIC PROGRAM TO LIMITED ACCESS 
SYSTEM" ,@260, "FORMAT OUTPUT. USER MUST SUPPLY SYSTEM FILENAME 
(UP TO",@324,"6 CHAR) & SECURITY CODE (UP TO 20 CHARACTERS)." 
220 PRINT@388,"* AFTER ENCODED TAPE IS RELOADED, SECURITY CODE 
MUST BE"; £452, "TYPED IN IMMEDIATELY & CORRECTLY WHEN *? PROMPT 
APPEARS" 

230 PRINT@652, "CENSOR SYSTEM TAPE IS NOW BEING RECORDED" : PRINT"!' 
HE ABOVE INFORMATION WILL LOADED DIRECTLY ONTO TAPE WHEN CENSORI 
S USED." 

240 N=USR(0) :M=M+l:CLS:PRINT@192,"Copy";M;"of CENSOR <filename> 
has been recorded. ": INPUT"Do you want another copy" ;AS:IFLEFT$(A 
$,1)<>"Y"THENEND 
250 PRINT"PRESS <ENTER> WHEN CASSETTE IS READY" :GOTO190 



Program Listing 3. 
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A new adult computer party game that stimulates the 
intellect as well as the libido. How far do you dare to 
go? Your partner? Your friends? It's all under your 
control when you play LIVE DANGEROUSLY. 
LIVE DANGEROUSLY features lively screen 
graphics — though not all the "action" is on the screen. 
As many as 1 2 (or as few as 2) players interact with the 
computer— and with each other. 

LIVE DANGEROUSLY— a game of risk-taking in 
which everybody scores. 

Now available for TRS-80' Model I 
with 32K or 16K and disk (please 
specify). 

Send S19.95 (check, m.o.) to: 

METAPHOWCMSOCIATES %£$*& 15212 

'Trademark of Tandy Corporation ^ 330 




/CMD creates on a formatted diskette a LOG tile from 1 to 170 pages long, 
^ page containing 1 full screen o* information. Pages are accessed 
ivi dually or sequentially, a* l 4 thumbing through a book. Information is 
dded, updated, or deleted from each page in tree form by an integral 
jrsor-or lented te*t editor. Each diskette becomes a separate organized 
□tebook to use and re-use as you please. 



™I : 



ert. Delete, Tab, Clear, and full cursor positioning are sup( orted, 
linking cursor and auto-repeat. All functions operate with th# • 
ngle keystroke including Global Search. Output to printer 
LOG can even be accessed from BASIC without loss of program. 



i 1 and pape 



co-nput ':■'■ , 
Usf yen if 



do you still keep r% 
computer as you nev*« 



-<is by I" 
dr earned 



< upper cat 

(Uppl'f - I L 



Uinimuffl system: 32K, 2 disk drives, 
DOS 2.5 <1> or 1.2 (III) required) 



1 for 


further info 


KSott 


^331 




JIB L 


ales ids 


Drive 


Br 4'iOor;, MS 


3904 2 



(601 ) 992 2239 

"fl^terCdrcl and Visa a.Lepted. 
MS Residents pay 5% sales tax 

«fe- pay snipping and handling. 



PRINTER DRIVER EXTRAORDINAIRE 




EPSON MX— OO ' 



* SUPPORTS ALL MX — SO PRINT STYLES 

* TOTAL CONTROL PROM TEXT OR MENU 

* TRUE PROPORTIONAL JUSTIFICATION 

* L»C^Bg»5?i=I.NES * SUPERSCRIPTS 

* SUBSCRIPTS * CENTERS TITLES 



Maxprint is an extraordinary printer driver program for the 
standard Epson MX-80 printer. It allows the user to select print 
types and functions such as underlining on a character by char- 
acter basis from the body of word processing text. A menu mode 
also allows selection of print types, plus choice of margins, 
line spacing in 1 / /2 inch increments, and many other features. 



For professional results, Maxprint features true 
right margin justification of printed text in the 
per inch emphasized or double emphasized print modes 
pie, notice the uniform right margin and proportion, 
this advertisement text produced entirely with Ma> 
MX-80. Justification precludes use of other 



pr opor t 1 onal 
10 character 
For exam- 
1 sp ac i ng of 
print and an 
f eat ur es. 

3K bytes 



This ingenious user oriented software consists of i 

of ultra-fast Z -80 assembly language for maximum speed pr 

Minimum system requirements are a 32K Model I with one disk 

drive. Maxprint will work with most word processing programs 

including Scripsit. Model III version available shortly. 



Unleash the true potenti al c 
supplied on disk with extenss 



f yc 



Epsc 
lual i 



MX-80. Maxpr 
1 shi pp i ng for 



Call (408) 737-2233 Visa / Mastc 
Send check or money order tos 
p«cgcg y-fc r- on i «=m, 

381 First Street, Suite 3147 
Los Altos, California 94022 



■S 333 




CUBE 

^ Level II 
16 K 



QUI CK 

TRS-80* 
Model 
I/III 



Guaranteed to solve any Rubik's 
Cube <TM) or triple your money 
back. Enter 54 color faces of 
cube or let program set up 
random pattern to be solved. 
Program run can be interupted 
to allow user to enter his/her 
own moves. Interesting program. 
Send *19.95 plus *1.50 postage & 
handling tos 

Alpha Queue Systems 
Dept. A 

P.O. Box 20885 
Dallas, TX 75220 

Texas residents add 5"/. <*1.00) 
sales tax. Checks only please. 

# Trademark of Tandy Corp. 

TM Trademark of Ideal Toy Corp. 



-See List ol Advertisers on page 402 
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CALL TOLL FREE 

ii 424 -273 




I rom Cornsoft Croup 

Avl!::'; filled arcade tjame that pits yen against 
the monsters. Race your Scarfman around a 
maze, gobbling up scoring dots. You are pur- 
sued by five monsters: if you eat a "+" they'll 
lower then eyes and you can eat them, othei - 
wise they 'II eat you! 

With exciting graphics and sound, SCARF- 
MAN may be played using the keyboard or 
Alpha Product's Joystick. WARNING: MAY BE 
HABIT-FORMING! 

Tape... 16.95 

Disk (specify mod. I or III) . . .$20.95 

Alpha Joystick 
mod. I: $39.95, mod. Ill: $49.95 

DEFENSE 
COMMAND 



By William Demas from Programmer's Guild 
A classic adventure by one of today's leading 
program authors. You will travel not only 
through space in this game, but through time 
as well. From prehistory to the distant 
future, you must confront many unusual 
dangers as you seek the treasures this prog 
ram holds. Travel through the fourth dimen- 
sion for the adventure of a lifetime. 

32K disk.. .$24.95 

DUNJONQUEST 

Sorcerer of Siva 





From I- PYX 

All the treasures and tools of a Dunjonquest 
await you in the magical mines of Siva. You 
are a wizard in this realtime dungeons & 
dragons game, wandering through the 
graphic depictions of more than 300 cham- 
bers. Your powers are staggering, but not so 
much, perhaps, as the evil wizard. He lurks 
about, hoping to cast his favorite spell, for 
getfulness, which deprives you of your magic. 

16K tape. . .$29.95 
32K disk. ..$29.95 



By Hogue & Konyu from Big Five 
You are the lone defender~bf 10 Krotnium fuel 
cells essential for the survival of the planet. 
Aliens swoop down from above to steal the 

fuel: it's your job to destroy them. You can 
still save the cells after a raid, but you must 
shoot the alien and simultaneously move under 
the cell to catch it. If things look bad you can 
set off one of your 4 antimatter bombs and 
destroy all enemies on the screen! Arcade fun 
with a< tion and sound . 

18K tape. ..$15.95 32K disk. . . $19. 95 



«"A 




Crush,Crumble 
and Chomp! 

From Epyx » 

It's a monster movie, and you are the 
monster! You can be The Glob, Kraken, Man- 
tra, Mechismo, Arachnis, or Goshilla -- or 
even design your own "custom" monster (disk 
version only) . This hilarious action game is 
loaded with graphics and sound as you prac 
tice your villany. With 6 monsters, 4 cities, 
and 5 game objectives, you get a choice of 
more than 100 possible scenarios. A monster's 
life is not all carnivorous crunching, though: 
The combined resources of the police, 
science, and armed forces are bent on your 
destruction. 

TRS-80 (16K tape or 32K disk) .. .$29. 95 

FORBIDDEN CITY 

By William Demas from Fantastic 
The talking adventure continues, pitting 
your skill against the city's master computer 
and robots. While a continuation of "Forbid- 
den Planet," you don't have to have the 
earlier program to play FORBIDDEN CITY. 

48K disk.. .$39.95 

STONE OF SISYPHUS 

From Adventure Int. 

Relive the wonderment of an ancient era in 
this installment of the Maces 6 Magic Series. 
You create your own character using attrib- 
utes of IQ, strength, constitution, dexterity 
and charisma. Then arm him and send him into 
a world where man's worth was measured by 
courage and cunning! Includes 2 disks that 
will run on a one-disk system. 
Model I 32K...$29.95 
Model III 48K..S29.95 



MACRO-MONITOR 
...THE SHADOW 



By George Duisman from Personal Software 
Whether novice or expert at bridge, this 
program will help you practice ami improve 
your play. You and the dummy hand play 
against the computer's skilled defensive 
hands. After a hand is played, the real learn 
ing begins: You can replay the hand to try 
different strategies, replay the two declarer 
hands against new defensive hands, rotate 
the hands, and more. Hands may also be 
saved for future use. Useful and fun. 

Model I 16K tape. ..$19.95 

Visit our other stores: Seven Corners 



By David Hanes from Liberty 
If you've never tried an adventure game, or if 
you've been "turned off" by the advanced 
games available, here's the adventure for 
you! Designed as an introduction to this form 
of game playing, MEDIEVAL MAGIC allows 
you to develop the approach necessary to 
become an adventurer. Once trapped in the 
ancient castle, you'll not escape until you 
have found all the treasures and tools it 
holds. 

16K tape. ..$13.95 Model I 32K disk. . .$59. 95 

16K disk...S17.95 Model III 32K disk. . .$69.95 

Center • Falls Church, VA & W.Bell Plaza • 66OO Security Blvd. • Baltimore, MD 



By Jake Commander from AOS 
A 6K machine language monitor that provide 
incredible power in programming and debug 
ging. In addition to all the monitor functions 
you would expect (like T-BUG or DEBUG), 
THE SHADOW gets its name from being able to 
execute programs at a hugely reduced speed. 
This gives you the power to closely monitor 
program flow with complete control . You can 
stop to examine or change registers/ disas- 
semble, or debug. Comes with 2 programs and 
an extensive manual in a sturdy binder. 



TOOI 



FREE 800 424-2738 



For information 
Call (202)363-9797 



E PROGRAM STORE ° 

4200 Wisconsin Avenue NW, Dept. 8E03 Box 9609 
Washington, D.C. 20016 



MAIL ORDERS: Send check or M.O. for total purchase 
price, plus $1 .00 postage & handling. D.C. residents, add 
6% tax. Charge card customers: include all embossed 
information on card. 



Get the most from your micro with 
software and accessories from one of 
the worlds largest selections. 



The 
frog ram 

Store. 





By Steven K earns from Acorn 
Gigantic antimatter rocks appear on the Tact 
ical Display Screen of your spacecraft. You 
blast away with lasers and they just explode 
into smaller chunks. To score in this fast ar 
cade game with sound, you must destroy the 
rocks. To stay in the game at all. you must 
avoid them! 

To add to your woes, time bombs appear peri 
odically. If their timers reach rero — BOOM! 
And if that's not enough, the aliens will be 
glad to send out some spaceships loaded with 
antimatter torpedoes. Fire thrusters to move, 
shoot laser cannon, jump to hyperspace 
anything to avoid the onslaught. One or two 
players can compete, with five levels of diffi - 
culty. 

16K protected tape. ..$19. 95 
32K protected disk... $19. 95 




By John Allen from Acorn 

More features, thrills, and sound than even 
John Allen's famous PINBALL. Once you load 
ASTROBALL into your TRS-80, the arrow 

keys become flipper buttons, the screen be- 
comes the play board, and you become the 
"Pinball Wizard!" 

A flying saucer, spaceships, meteors, and 
black holes add to the fun as your ball realist 
ically zings around the board. ASTROBALL 
will have all your family and friends lining up 
for the pinball action and challenge. Five 
skill 'evels. 

16K protected tafae... $19. 95 

16K protected disk. . .$19. 95 



TYPING 




By Ainsworth £ Baker from Microsoft 
Speed up your programming and word pro 
cessing with this excellent touch typing in 
Structional program. Divided into two sec 
tions, the program first teaches proper finger 
positioning. You practice keying various 
characters, the program adding new ones as 
you progress. In the practice paragraph sec- 
tion, you are evaluated for accuracy and 
rated in words per minute. The program con 
tinuously adjusts to your increasing skill, 
telling you which characters you miss and 
where you are slow. One of the most practical 
programs we know ol for TRS 30. 

Model I 16K tape. .. $11. 95 
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From P80NUT Software 

If you would love to De able to document your 
programs with a flowchart but lack the time, 
talent, or inclination, this proqram is for 
you. THE DOCUMENTER will produce a logi- 
cal flowchart directly from any suitable 
BASIC program and print it on the screen or 
most lineprinters. 

You get a flowchart and branch map that will 
help you follow program flow and aid your 
debugging efforts. Even memory-filling pro- 
grams can be broken down into segments and 
flowcharted. 

16K tape. . .$19.95 32K tape. . . $19. 95 

48K tape... $19. 95 

48K tape for disk. .. $29.95 




By Chuck Acree from Acorn 

A comprehensive genealogical program. It 
quickly and easily sets up a data base that 
holds name, date and place of birth, marriage 
and death information, plus a comment line for 
each ancestor. 

YOUR FAMILY TREE will display /print a com 
plete 'pedigree" for any family member; a 
3 generation chart may be displayed/printed 
showing the number of known ancestors 
beyond each branch of the tree. The program 
will also display a U.S. outline map showing 
migration across the country. You get full 
search capabilities on any key field. Capaci 
ties: 16K tape: 45 55 ancestors. 32K tape: 
175, disk: 100. 48K tape: 300, disk: 225. 

16K Tape or Disk. , .$29.95 



By Andrew P. Bartorillo from Acorn 
A complete management tool for the home bud- 
get, it accurately keeps track of your check- 
book and provides an easy method of budget 
allocation. You can store information on up to 
100 checkbook entries per month (250 with 
48K ) , specify any automatic withdrawals, 
keep records of tax-deductibles, and record 
expenses by category. You can even break up 
charge account payments into the proper 
categories . 

32K disk... $39. 95 

Prices Subiect to Change 



By Southern Systems from Hayden 
A special database system for your personal 
effects. This easy to use, easy to maintain 
program holds ITEM, DESCRIPTION, SERIAL 
NUMBER, and VALUE for each item. Especial 
ly useful for insurance and tax purposes. 
Capacities: 16K-100 records, 32K-300 

records, 48K-500 records. For more storage, 
you can break down items into categories 
(stereo, photography, etc.) and maintain 
separate files. 

16K tape... $11. 95 



BASIC 

From Allen Celder 

Turns your BASIC program into a machine 
language/BASIC hybrid that may run many 
times faster. For those who plan to sell their 
programs, compiling by ACCEL 2 offers the 
additional advantage of protection: the source 
code and REMarks are not included in the 
compiled version. 

While all compilers may require some modifica 
tion of the BASIC program (usually because 
of improper structuring), we have found that 
ACCEL 2 requires the least, and even works 
with program "tricks" like string-packing, 
etc. 

ACCEL 2 works with models I or III, requires 
a minimum amount of memory, supports either 
disk or tape (with TSAVE, optional at $9.95), 
and does not require extensive rewriting of 
your BASIC programs. Unlike other compil- 
ers, no royalty is required when selling 
ACCEL-compiled programs. 

Supplied on tape for 16-48K . . . $88.95 



From Allen Celder 

A powerful utility for editing BASIC pro- 
grams. Allows full-screen, word processor- 
type editing to save you time and frustra- 
tion. This machine language program loads 
into upper, protected memory and is invisible 
until invoked from the keyboard. 

EDIT uses a command structure similar to the 
popular SCRIPSIT word processor, so it is 
easy to use right away. Block and global 
commands are supported, so deletions, re- 
placements and other changes to the entire 
proqram are extremely easy to do. 

16 U8K relocatable tape for tape or disk 
systems. . . $39. 95 

DISASSEMBLER 

By Roy Soltoff from Misosys 6 Acorn 
A two-pass disassembler for TRS-80 that con 
verts machine code to Z-80 assembly language 
listings. DISASSEMBLER produces symbolic 
labels with output to video, printer or tape 
(or disk in version 2 only) . Radio Shack's 
Editor /Assembler will read and load the tapes 
for easy modification and reassembly. Extend 
the capabilities of Editor/Assembler with this 
utility. On tape for two different memory loca- 
tions. 

Version 1. . .$14.95 
Version 2.. .$19.95 
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TECHNIQUE 



Use Basic's ON ERROR-GOTO function to get out of trouble! 




Err Is . . . Okay 



Richard S. Ad cock 
141 NW Lorn a 
Burleson, TX 76028 

It's 3:10 AM and dark outside. 
It is probably Thursday though 
you're no longer certain. You ac- 
cidentally enter a instead of 
$522.36. Your TRS-80 might re- 
turn a "10" error message. Even 
late at night this may not present 
a severe problem. All you may 
have to do is restart the program 
and be more cautious the next 
time. On the other hand, $522.36 
may have been number 72 of 75 
data entries, 71 of which you 
have just entered for the fourth 
time in your diligent effort to bal- 
ance your checkbook. You again 
type in "RUN", realizing that all 
your variables will be reduced to 
a pile of useless zeros. 

All is not lost. The Basic inter- 
preter inside your TRS-80 allows 
you to bypass its built-in error 
handling routines. You can take 
those errors, slap them around a 
bit and create something which, 
though not always useful, is at 
least somewhat less destruc- 
tive. You will write your own er- 
ror handling routines, in Basic. 

A user written error handling 
routine contains two parts. The 
first part inserts a statement 
early in the program which func- 
tions as the door to an error trap. 
In a TRS-80 this statement takes 
the form of: "On Error GOTO 



nnnn." Most people wish it had 
more teeth. (The device is less 
humane than it appears. I once 
returned to an error trap several 
days after it was sprung to find 
that the error had gnawed off its 
number to escape. All my usual- 
ly verbose Model III could say 
when I asked, "CMD E?" was, 
"NO ERROR FOUND!".) The 
"nnnn" refers to a line number 
which contains the error handl- 
ing routine. It tells the computer 
what to do if any errors are 
caught. Basically, there are four 
options to an error handling 
routine: Print a number related 
to the error which just occured 
using "Print Err." Print the line 
number in which the error occur- 
red using "Print Erl." Take some 
action based on the nature of 
the error. Reset your computer's 
built-in error handling routines. 
You will often use several of 
these options simultaneously. 

Rules 

Building an error trap is not 
difficult, but as with most pro- 
gramming you must follow def- 
inite rules. 

First rule: isolate the error 
handling routine from your pro- 
gram. If you neglect to isolate 
the error handling routine off in 
some corner, you will probably 
generate an RW error. This 
means Resume without Error 
and only including an error 



handling routine in your pro- 
gram can cause it. 

Second rule: the error han- 
dling routine must terminate 
with "Resume." Your 
"Resume" statements may 
assume several forms. "Re- 
sume" prompts the computer 
to pick up where the error oc- 
curred. The "Resume 0" does 
the same thing as the unadorn- 
ed "Resume." "Resume nnnn" 
tells the computer to try 
another part of your program 
where there should be fewer 
bugs. Finally, "Resume Next" 
sends the computer to the 
statement following the one 
where the error occurred. 

If you fail to include a "Re- 
sume" statement of some sort, 
you will have committed "NR", 
no resume, which is an error 
that can only happen when 
handling errors. 

The following program incor- 
porates an error routine: 

5 ON ERROR GOTO 1000 
10 INPUT "INPUT A NUMBER";A 
20 INPUT "INPUT ANOTHER 

NUMBER";B 
30 X = X + 1 
40 B = B + A 

50 PRINT "AVERAGE = ";B/X 
60 GOTO 10 
1000 IF ERR/2 + 1 = 11 THEN PRINT 
"YOUR FIRST NUMBER WAS A 
ZERO. TRY AGAIN.":RESUME 10 
1010 ON ERROR GOTO 

Line 5 tells the computer to han- 
dle errors your way. No more 
vague messages and zeroed 



variables. The program uses two 
"On Error GOTO nnnn" state- 
ments. This is legal, and quite 
useful. If you have been having 
syntax troubles in a subroutine, 
before you can check that part 
of the program, you must enter 
tedious data. You can use an er- 
ror handling routine which sim- 
ply points out the syntax error 
and then performs a "Resume 
nnnn" at the first line of the sub- 
routine. If another error occurs 
you will still resume at the first 
line of the subroutine. By setting 
several different error traps 
each with its own "nnnn," you 
can utilize a different error han- 
dling routine for each part of the 
program. Thisenhancesthe use- 
fulness of an error handling rou- 
tine immensely. In the example, 
if the If ... Then statement in line 
1000 fails, the statement in line 
1010 will restore the computer's 
built-in error handling routines. 
The now enabled built-in rou- 
tines will display both the error 
and its line number. This forces 
a restart which zaps the data, 
but we need to know what the er- 
ror is and often the built-in rou- 
tines are the easiest way to get 
that information. 

The error we are trying to trap 
in the example is division by 
zero. The key to trapping a par- 
ticular error is the "ERR/2 + 
1 =nn" statement. By replacing 
"nn" with one of the numbers in 
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new breed of computer specialist 



NRI teams up with Radio Shack 

advanced technology to teach 

you how to use, program and 

service state-of-the-art 

microcomputers . . . 
lis no longer enough to be just a 
programmer or a technician. With mi- 
crocomputers moving into the fabric of 
our lives (over 250,000 of the TRS-80™ j 
alone have been sold), interdiscipli- 
nary skills are demanded. And NRI can 
prepare you with the first course of its 
kind, covering the complete world of 
the microcomputer. 

Learn At Home 
in Your Spare Time 

With NRI training, the programmer 
gains practical knowledge of hardware, 
enabling him to design simpler, more effec- 
tive programs. And, with advanced pro- 
gramming skills, the technician can test 
and debug systems quickly and easily. 

Only NRI gives you both kinds of 
training with the convenience of home 




Training includes new TRS-80 Model III micro- 
computer, 6-function LCD Beckman multimeter, 
and the NRI Discovery Lab with hundreds of tests 
and experiments. 

'IKS 80 is a trademark of the Radio Shack division of 'land; Corp i 




study. No classroom pressures, no night 
school, no gasoline wasted. You leani at 
your convenience, at your own pace. Yet 
you're always (nicked by the NRI staff and 
your instructor, answering questions, giving 
you guidance, and available for special help 
if you need it. 

You Get Your Own Computer 
to Learn On and Keep 

NRI training is hands-on training, 
with practical experiments and demonstra- 
tions as the very foundation of your knowl- 
edge. You don't just program your computer, 
you go inside it... watch how circuits in- 
teract . . . interface with other systems . . . 
gain a real insight into 
its nature. 

You also work 
with an advanced liquid 
crystal display hand 
held multimeter and 
the NRI Discovery Lab, 
performing over 60 
separate experiments. 
You learn troubleshoot- 
ing procedures and gain 
greater understanding of 
the information. Both 
microcomputer and 
equipment come as part 
of your training for you 
to use and keep. 



Send for Free Catalog. . . 
No Salesman Will Call 

Get all the details on this exciting 
course in NRI's free, 100-page catalog. It 

shows all equipment, lesson outlines, and 
facts on oilier electronics courses such as 
Complete Communications with CB, 
TV/Audio and Video, Digital Electronics, 
and more. Send today, no salesman will ever 
bother you. Keep up with the latest technol- 
ogy as you learn on the latest model of the 
world's most popular computer. If coupon 
has been used, write to NRI Schools, 3939 
Wisconsin Ave., Washington, D.C. 20016. 




NRI Schools 

McGraw-Hill Continuing 

Education Center 
3939 Wisconsin Avenue 

Washington, D.C 20016 



NO SALESMAN WILL CALL. 

Please check for one free catalog only. 

n Computer Electronics including 

Microcomputers 
G Color I'V; Audio, and Video System 
_ Servicing 

□ Electronics Design technology 

□ Digital Electronics 

□ Communications Electronics • ECC 
Licenses • Mobile CB • Aircraft • Marine 




□ Basic Electronics 

□ Small Engine Servicing 

□ Appliance Servicing 

□ Automotive Servicing 

□ Auto Air Conditioning 

G Air Conditioning, Heating, 

Refrigeration, & Solar 'lechnology 
D Building Construction 



Xiiinr 



(I'lease Print) 



Siree: 



■ City/State/Zip 

I Accredited by the Accrediting Commission of the National Home Study Council 



#179-032 
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1,111 A ~° COLOR 

ALL PROGRAMS USE TESTED 

MICRO -TYPIT A text editing program that uses the keyboard 
"asis" like a typewriter. All edit and prompt functions are 
"t>uilt in" so instruction or learning is minimum. Text can be 
generated three pages at a time and printed either numbered, or 
unnumbered single or double spaced. Also, right justification 
is optional. Does not require substitution of @ for commas or 
any other character revision. Slowest function is transferring 
text to and from tape. Neat error free text with large print 
titles. Excellent for specifications, agreements, instructions, 
form letters or announcements. Complete with sound for TRS-80 
I, III & COLOR and Microteck printer easily adaptable to most 
other printers. PRICE $25.00 

CLIENT FILES Allows keeping several contracts for. up to 20 
clients. Enter contracts including either payment amounts or 
percentages. As bills are sent out and payments received, the 
programis a record by contract of amounts outstanding and not 
billed including a summary of receivables and work in progress. 
Works well with one to 3 projects for a dozen or so clients. 

PRICE $25.00 

ENGINEERING PROGRAMS 

LIGHTING CALCULATIONS Calculates the required number of 
fixtures for a room given the dimensions and reflectances by 
the zone cavity method. Three standard fixtures are "built in" 
so that 8 room calculations are made to compare results such as 
watts, footcandles and number of fixtures. PRICE $30.00 

HVAC PROGRAM This program calculates sensible and latent 
cooling and heating load by zone each two hours of the typical 
hottest and coldest days. Equations per 19?? ASHRAE Fundamental 
Guide page 25.2. Three programs are: Calculations. Geographic 
and Variable Data and Data Generator. PRICE $35*00 

All tapes furnished with full documentation and instructions. 
Documentation, Instructions and Source List alone $15.00 

All programs on tape require Level II and 16K. Printer is 
required for MICRO-TYPIT and optional on all others. Do not 
forget to include the Model Type with your order. 

Send Check or Money Order (no COD's please) to: 

Coolidge St Associates 



2050 S. LAMAR #10 



AUSTIN , TEXAS 78704 



(512) 443 -5329 

^170 



the appendix of your reference 
manual under error codes you 
can set the number for any spe- 
cific error. If you check the ap- 
pendix, 1 1 corresponds to a "10" 
error. A lot of other numbers and 
error codes are also back there. 
They are why it is often easier to 
resort to the "On Error GOTO 0" 
statement rather than trying to 
cover all possibilities yourself. If 
you don't expect any particular er- 
ror and use a simple "Resume", 
you could put the computer into 
the endless loop of error, resume, 
commit error. . . . You might as 
well let the computer handle the 
problem. The results will be about 
the same. 

The formula "ERR/2 + 1 " iden- 
tifies which error has occurred. 
If you include a "Print Erl" 
statement in your error handling 
routine it will tell you the line 
where the error occurred. This 
can be useful information espe- 
cially in the event that your ex- 
pected error occurred but not 
where you think it did. It is easy 
to spend a lot of time looking for 
a bug at one point which is really 



somewhere else. The "Print Erl" 
statement can help you avoid 
trying to fix something that's 
not broken. 

One final trick is available to 
you when you're setting up an 
error handling routine. The "Er- 
ror nn" statement makes the 
computer think a specific error 
has occurred. By inserting the 
"Error nn" statement in your 
program and replacing "nn" 
with the numeric code for the er- 
roryour routine is handling (11 in 
my example), you can check 
the routine long before you need 
it. This gives the computer a 
chance to practice, and helps 
you avoid another source of in- 
finite frustration, the error trap 
that won't. 

Error trapping is a useful addi- 
tion to any program and can 
save time and frustration when 
you debug or run the thing that 
you have newly created. ■ 

Richard Adcock is president of a 
Fort Worth-based company spe- 
cializing in custom applications 
for microcomputers. 




Word Processing for the Color Computer 



51 column x 24 line screen display Real lower cose characters 
Sophisticated full screen editor Powerful format features 
Works with any printer Special MX-80 driver 
Runs in 1 6K or 02K Disk and cassette I/O 
Absolutely no hardware modifications required 



As a Color Computer 
owner, you know you've got 
the most powerful lo-cost 
computer available today. 
You also know that its one 
glaring weakness is its too 
small (32 by 16) screen 
display. For serious word 
processing, that's simply 
inadequate. And reverse 
video in place of lower case, 
just makes things worse. 

Telewriter eliminates these 
shortcomings by creating a 

Apple II is a trademark of Apple Computer, 



whole new character set 
that gives you real lower 
case letters, and a 51 x 24 
screen display. That's more 
on-screen characters than 
Apple II, Atari, or the Model 
III. That's more than double 
the Color Computer's 
standard display. And, 
because Telewriter solves 
the screen display problem 
entirely in software, there 
are no expensive hardware 
i'iods to install telewriter 

Inc., Atari is a trademark ot Atari. Inc.' TRS 



is ready to use the moment 
you receive it. 

Telewriter's feature-packed 
full screen editor lets you 
enter and edit text quickly 
and simply. The powerful 
text formatter lets you 
specify exactly the way 
your final manuscript will 
look — using any printer. 
The disk and cassette 
handlers painlessly store, 
retrieve and append your 
text files and let you 

80 is a trademark of Tandy Corp ; MX l 



transfer easily between 
media. 

You can no longer afford to 
be without the power and 
efficiency word processing 
brings to everything you 
write. The TRS-80 Color 
Computer is the lowest 
priced micro with the 
capability for serious word 
processing. Telewriter is the 
only software that fully 
unleashes that capability. 

is a trademark of Epson America, Inc. 



Available now for $49.95 from: 

Cognitec 

704 Nob Ave. 

Del Mar, Ca. 92014 



. . . 1 1 state of the art word processor . . . Outstanding in every respect. 

-the RAINBOW 
The 51 x 24 display is very legible . . . 

— Color Computer News 

(l-'ree shipping in U.S.. California residents add ()' •'<• sales tax. Personal checks require 2 weeks to clear. I 



^121 



Or call (714) 755-1258 

for more information. 

We will gladly 

answer your questions. 
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l&Llststoon 



T*7T 



illlli 



MX-80F/T 





Wide carnage • Graltrax 
WE HAVE ACCESSORIES! 



PRICES 



dl 



25cps parallel S 1380 45cps parallel 

TYPEWRITER QUALITY • FRICTION FEED • DAISYWHEEL 




IY1ICR0LINE80 $ 385 



MICR0LINE82A s 529 



MICR0LINE83A s 755 



UDS MODEM 
UDS MODEM 
LEXICON MODEM 



105LP 
105JLP 
LEX-11 



MICR0LINE82A&83A 
FEATURES: 120cps • 
9x9 dot matrix 
• true lower descenders 



■ W.li'in'iiiMJUINHrPU?^ 



DIRECT >169 

AUTOANSWER S210 

ACOUSTIC COUPLED $125 



SCOTCH 3M DISKETTES 



8 "SSSD 10/S2.79ea. 50/$2.69ea. 
5'/4"SSSD 10/S2.69ea. 50/S2.59ea. 



P.O. BOX 305 
MASSAPEQUA, NY 11758 

TERMS: M.O.. Certified or Cashiers Check. 
Allow 2 weeks lor personal checks. 
NY State residents, add sales tax 



(516)798-7448 



^i6a 



Visa/MasterCard: Add 2% 

FOB. Shipping Point 
PRICES SUBJECT TO CHANGE 



THE BIGGEST NAME IN LfTTLE COMPUTERS" 

TRS-80 Model H— Your Best Buy 
In a Business Microcomputer 

UP 
TO 

15% 
OFF! 

TRS-80 computers, ° n 
software and peripherals 




Similar values 



merchandise 



CALL COLLECT: 

800-351-1580 

Texas Residents call: 915-283-2920 

Van Horn Office Supply 

701 W. Broadway -PO Box 1060 
Van Horn, Texas 79855 

DEALER G055 ^ 

Form F48 Provided ™ 

Standard Warranty in Effect 
THE NATIONWIDE SUPERMARKET OF SOUND* 




A FREE plastic box of Verbatim Data-Life Diskettes 
when you purchase an APPARATS NEWDOS/80, 
2.0 for only $149.95. 

Copy Model III Seripsit© 
and Visicalc -$20.00 

Works with the New Model 111 Visicalc/Scripsit and 
allows unlimited backups of master disks. Works 
even if you have already backed up twice. Comes 
as a simple 17 line basic program. 



ST80D© Patch, 
only $20.00 

Makes your Model I ST80D 
work on Model 111. Comes as 
a simple 30 line basic pro- 
gram. (Version 1.3/1.4 only.) 



Layman's Guide 
toNewdos*7.50 

An easy-to-understand, plain 
English guide to the most 
commonly used features of 
NEWDOS/80. 



VISA - Mastercard - Money Orders - COD - Allow 2 weeks for 
personal checks. Kansas residents add 3.5% sales tax. 




A X- 



526 E. 4th 



TA.INC 

Hutchinson, Kansas 67501 / 316/665-36 



S 142 




w- 



^ 




Attache style cases for carrying and protecting a complete computer set-up. 
Constructed of the highest quality luggage material with saddle stitching. Will 
accommodate equipment in a fully operational configuration along with 
manuals, working papers and disks. Never a need to remove equipment 
from case. Simply remove lid. connect power and operate. Lid can be 
replaced and locked for security and protection without disconnecting 
cables. Fully tested. 

• RS201 TRS-80 Model I, Expansion Unit & Drives . . $109 

• RS202 TRS-80 Monitor or TV set 84 

• RS204 TRS-80 Model III 129 

• RS205 Radio Shack Color Computer 89 

• P401 Paper Tiger 440/445/460 99 

• P402 Line Printer ll/IV 89 

• P403 Epson MX70 or MX80 89 

• P404 Epson MX1 00 99 

• CC90 Matching Attache Case 75 

compiler case company 

5650 INDIAN MOUND CT COLUMBUS. OHIO 43213 (614) 868-946-1 



■■■ n^nanMB am 



-.. ■■.*».- -*k&&mmmBB^tmfBmmmuBammm 



►'See List ol Advertisers on page 402 



80 Microcomputing, March 1982 • 233 



GENERAL 



When one-way is the wrong way. 



Two- Way ANOVA 



Richard C. McGarvey 
221 Hirsch field Drive 
Williamsville, NY 14221 

I bought my first computer in 
order to speed up my study 



time while taking some re- 
quired courses in Statistical 
Analysis. When I bought the 
computer I expected to be able 
to find the necessary statistical 
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programs, but I was wrong. I did 
find many programs but I was 
unable to find some of the more 
important ones. 

One example of a program I 
needed was Analysis of Vari- 
ance, called ANOVA in sta- 
tistical circles. I found one-way 
ANOVA all over the place but I 
couldn't find two-way ANOVA. I 
tried to get by with the pro- 
grams I could find but I really 
wasn't getting much done. I 
decided to take matters into my 
own hands. 

Since one-way ANOVA was 
pretty much out of data (statisti- 
cal procedures change often) I 
was forced to write my own pro- 
gram, i go; the necessary formu- 
lae from my statistics book and 
wrote my first important Basic 
program. This was not hard to 
do since ANOVA handles data 
in several different ways. After 
many hours of work I finally de 
veloped a workable two-way 
ANOVA program which I used a 
lot for one semester. 

The next semester I found 
that my two-way ANOVA was 
fine for school book problems 
but fell short for more complex 
problems, such as problems in- 
volving differential attrition 
When differential attrition oc- 
curs (usually in human subject 
experiments), it is necessary to 
make adjustments in the handl- 



ing of the data. The adjustments 
are the inclusion of grand mean 
and harmonic mean in the 
calculations. 

It was twee to get back to 
work and adjust my program to 
properly compensate for dif- 
ferential attrition. Several more 
hours of work were required to 
make those adjustments. Final- 
ly, after a few 'false starts' and a 
few 'almost quits', I managed to 
get a workable program. I will 
now make this program, with a 
minimum of instructions, avail 
aole to anyone who is interested 
(see Program Listing 1). 

The Formulae 

I wish I could give credit to the 

source of the formulae I used tor 
this program but I don't know 
what publication they came 
from. I was given the formulae 
on a handout sheet by Dr. Joel 
Raynor, State University of New 
York at Buffalo who I credit as 
their source. See Table 1 for the 
exact formulae. 

If an equal number of scores 



The Key Box 

Basic Level II 
Model I 
16K RAM 
Printer (optionai) 



r SAVE/ 



CH EXT E XT- 
Let your TRS-80' do the proofreading on 
your SCRIPSIT text files" 

Features of this program include: 

• Complete dictionary maintenance in- 
cluding the addition and deletion of 

words 

• Menu driven for ease of operation. 

• Spelling Checker 

• FREE expanded dictionaries avail- 
able, depending on your drive 
storage capabilities. 

NEW LOWER PRICE $59.95 



MODEL III PRICE LIST 

(All 48K with TANDON drives) 

1 single bided 40 track drive $1695.00 

2 single sided 40 track drives 1895.00 

1 dual sided 40 track drive. ... . . . . 1 820.00 

2 dual sided 40 track drives 2145.00 

1 single sided 80 track dnve 1845. OO 

2 single sided 80 track drives 21 75.00 

1 dual sided 80 track drive 1995.00 

2 dual sided 80 track drives 2395.00 

with RS 232 C Add 1 1 5 00 

NOTE: These Model III computers contain Apparat 
istalled disk drives and memory They are warranted 




MISCELLANEOUS SUPPLIES 

DISKETTES 

Double density-soft sectored-replacement guaranteed Spindle/Hub 
protected. (5'/r only) 

Verbatim DataMfe 5'A" 40 track $24.95 

Apparat's No Name SW 40 track $1 9.95 

Verbatim Datalife 8" model II $39.95 

PAPER 
9'A"x1 1 " blank white, tractor feed paper, full box 1 5* or 20# . 

14V 2 "xi 1" green bar. tractor feed paper, full box 

3V?"x15/16" tractor feed mailing labels 

OTHER 

5W plastic library case 

8" plastic library case , 

5V Flip-sort 

8" Flip-sort 

1 6K memory kits 



S24.95 
$34 95 

S 1 9 95 

$ 1 95 
$ 4.95 

$18.95 
$31 95 
$ 1 9 9f 



SPECIAL - FREE GRAFTRAX 

with EPSON MX-80 & MX-80 F/T Printers 

MX 80 $499.00 

MX-80F/T $599.00 

MX-100 $775.00 

Printer Cables $24.00 

(Specify ComputerType) 

WE ALSO STOCK OKIDATA & NEC PRINTERS 
CALL FOR PRICES 




NEW LOWER PRICES ON 

TANDON DISK DRIVES 

Complete with power supply, chassis & configured for 
TRS-80* Model I or III 

• Single sided 40 track $285.00 

• Dual 40 or Single 80 track $41 5.00 

• Dual sided 80 track $51 5.00 

• Special - 2 Dual sided 80's $999.00 



MODEL I DOUBLE 
DENSITY PACKAGE 

Converts a standard TRS-80 Model I 
to Double Density. 
Apparat Doubler& NEWDOS/80 V 2.0. 
$278.00 value for only $21 9.00 
Doubler alone $1 29.00 




APPARAT'S PROM BLASTER 

An eprom programmer for all 25 X X and 27 X X chips TRS-80 

MOD I & III $149.00 

CABLE $ 1 7.95 

BUS EXTENDER 

mini version with 2 card slots and no enclosure $ 69.95 



ASSORTED ITEMS OF INTEREST 

MICRO CLINIC. Mod I $24.95. Mod III $29.95 

The ultimate in memory 8 disk diagnostics 
MEAL MASTER. Mod I & III Disk $24.95 

meal planning & grocery shopping aid 
FLEXTEXT/80 (requires Graftrax) $34.95 
ultilize the additional features of the MX-80 

printers under model I & III scripsit 

MICRO ACCOUNTING SYSTEM. $479.00 

Interactive G/L A/R. A/P & checkbook manager 

UNITERM/80, $89.00 

Universal terminal program that takes advantage 

of the extended NEWDOS/80 commands 

BASIC BETTER & FASTER BOOK, $23.95 



nv/wuvdou 



Version 2.0 



I The most sophisticated DOS ever pro- 
duced for the TRS-80' Models I and III. It 
provides the user with "MAINFRAME' 
power on a "MICRO". 

Some Features available are: 

Jobstream Control Language 
Mod I/Mod III Diskette interchangabihty 
Double Density Support on Model I 
Pagenation of BASIC listings on the screen 
Basic program single stepping 
Dynamic variable manipulation 
Multiple array sorts with BASIC CMD 
Complete technical support provided 

All this plus much more for only 
$149.00 



IntoWotld 

Software Report C^ard 

NEWDOS/80 
Version 2.0 



Perlormancr 
Documrnlallon 
Ease of I'se 
Error Handling 



I £ 3 $ 
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nana 



mi 
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Apparat, 



-JUS 



WESM 



ing Support for Microcomputers" 



:&y 



4401 S Tamarac Pkwy . Denver. CO 80237 • (303) 741 -1 778 • (800) 525-7674 

S< ripsri A TRS 80 are a registered trademark of Tandy Corporation . ;. : . -,..,:..,; 
Freight FOB Denver call for shipping charges Foreign Orders shipped Air Freight 
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are assigned to each group, the 
results will be exactly the same 
as in an uncorrected two-way 
ANOVA. When differential attri- 
tion occurs in the data the re- 
sults are textbook accurate. I 
hand-calculated many exam- 
ples of ANOVA to compare to 
the computer results and the 
only differences I have found 
were in the 1/10,000 range. This 
probably results from the way 
rounding is handled by the com- 
puter (or me!). 

Data Input 

Table 3 is an example of test 
data for the program. Data is en- 
tered in groups (called cells). 
The data is entered starting with 
group one, which is the upper 
left cell. The next cell to be 
entered is the cell to the right. 
This continues to the end of the 
row. After a row is completed, 
the first cell in the next row is en- 
tered. It does not matter in what 
order the individual scores are 
entered, but cell order is impor- 
tant because each cell position 
represents a level of a particular 
experimental factor. 

When the program is started 
you will be asked to input the 
number of rows and columns. In 
the example data (Table 3) there 
are three columns and four 
rows. After that entry, you will 
be asked to input the scores for 
group (cell) one. To end the input 
of each group enter the @ sym- 
bol. The next cell input will then 
be prompted. 

When all scores are entered, 
the program will give you the op- 
portunity to edit them. If 
selected, this option will display 



the scores for each cell. If you 
want to change a score, you 
must redo the entire cell. This 
routine is long and not really ne- 
cessary, so drop it if you want. 
To drop the edit routine, simply 
delete the GOSUB that calls it 
and do not enter the routine 
when you key in the program. 

Data Output 

After the edit routine is done, 
the computer will begin to com- 
pute the data for output. Each 
computation will be prompted so 
that you will know that the com- 
puter is working. This will also 
make editing the program easier, 
since each formula computation 
is headed by its identifier. 

When computation is done 
the data table will be displayed 
on the CRT. Also the printout op- 
tion will be prompted. Table 2 is 
the data output as it appears on 
Radio Shack's Line Printer VI. 
Program Listing 2 gives the sub- 
routines that produce the lines 
in the data output. They will 
have to be changed to match 
your printer codes. In order to 
drop them all together, drop the 
GOSUBs that appear in lines 14, 
15 and 16 and delete lines 31 -33. 
This will produce the data table 
without the dividing lines. 

The last prompt is the option to 
have the scores printed. They will 
be printed by cell and score num- 
ber. This is a checking procedure 
and, like the edit routine, it can be 
dropped from the program to con- 
serve time and memory. 

Table 2 is an accurate output 
of the data that is shown in 
Table 3 once computation is 
complete. You can use this to 



Data Tabla (ANOVA Tact) 
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DF 


SS 


MS 


CALF 


Column 
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177.226 


88.6131 


6.77543 


Row 
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9?. 6463 


30.8488 


2.35872 


CX R 
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269.345 


43 2241 


3.68725 


w/c 




64 


837.03 


13.0786 




Total 




75 


1396.15 






For DF to F Table Use: 
Column = 2/64 
Row =3/64 
CXR =6/64 

Table 2. ANOVA Result Printout 



check whether you have correct- 
ly entered the program code. 
Your results on this data should 
be the same. There should be no 
significant differences between 
the example output and your 
result. If there are, you can find 
an error by going to the section 
which is headed with the title of 
the result in which your error ap- 
pears and work backward. 

A Final Note 

I have many statistical analy- 
sis programs. Some are original 



and others are adapted from dif- 
ferent Basic programs. Anyone 
who wants these programs can 
send me a disk and a postage 
paid return envelope and I will 
be glad to send the programs I 
wrote, and those that I tran- 
slated to TRS-80 Basic, free of 
charge. ■ 

Richard McGarvey is a profes- 
sional police officer with the 
Amherst, NY Police Depart- 
ment. He owns two TRS-80 
Model Is. 



Columns (Factor B) 



R 


8 


10 


16 


10 


11 


15 


17 


19 


18 




w 
s 


5 


4 


10 


9 
4 


6 


8 


15 


12 




F 
a 


15 


9 


11 


12 


8 


5 


14 


13 


15 


14 


6 


8 


6 


3 




11 


7 


8 


t 


11 


15 


16 


17 


11 


15 


12 


15 


9 


r 


9 
17 


11 

'6 


13 


6 


9 


4 


11 
17 


13 


16 




17 


15 


19 


10 


15 


5 


8 


10 


17 


A 


18 
15 




11 


6 


12 


17 


11 

10 


6 


5 



Table 3. Score Groups (Cells) 



Program Listing 1 



1 CLEAK(10000) :DEFINTR,S,Y,I,X,Z,T,N,0:CLS:PRINTCHR$(23) "TWO - W 
AY ANOVA" : PRINT: PRINT "UPDATE 07/24/80 ": PRINT'THIS PROGRAM WILL 
USE UNEQUAL" : PRINT'SCORES PER CELL" : FORX=1TO1000 : NEXT:GOSUB19 :GO 
SUB25 : CLS : NOCR : FORX=1TOCR: T1=T1+N (X) : NEXT : T=T1 

2 GOSUB3:GOSUB11:GOSUB24 

3 CLS:PRINT§384,"NOW COMPUTING COLUMN AND ROW 'N' VALUES" :FORX=l 
TOC:FORI=XTONCSTEPC:S(X) =S(X) +N ( I ) : NEXTI ,X : Y=l : FORX=lTOR: FORI=YT 
0(Y+(C-1) ) :R(X) -R(X)+N(I) ! NEXTI : Y=Y+C : NEXTX : CLS : PRINT0384 , "NOW C 
ALCULATING CELL MEANS" : FORX=lTOCR: FORI=lTON (X) 

4 L=L+(A(X,I) ) : NEXTI :L=L/N(X) :M(X) =L: L=0 : NEXTX : CLS : PRINT@384 , "NO 
W CALCULATING HARMONIC MEAN" : FORX=lTOCR:H=H+ ( 1/N(X) ): NEXTX : H=CR/ 
H:CLS:PRINT@384,"NOW CALCULATING THE GRAND MEAN" :G = : FORX = lTOCR: 
G=G+M(X) : NEXTX: CLS 

5 PRINTg384,"NOW CALCULATING THE USABLE GRAND MEAN" :G- ( (G [ 2) /CR) 
:CLS:PRINT@384,"NOW CALCULATING CELL SCORE SQUARES" : FORX=1TOCR: F 
0RI=1T0N(X) :B(X,I)=(A(X,I) 12) : NEXTI : NEXTX: CLS: PRINTP384 , "NOW CAL 
CULATING SQUARES WITHIN CELLS ": FORX=1TOCR 

6 FORI=lTON(X) :K1=K1+(A(X,I) [2) : NEXTI :NEXTX : F0RX=1T0NC : FORI=lTON 
(X) :K2-K2+A(X,I) : NEXTI : K2=K2 [ 2: K2=K2/N (X) : K3=K3+K2 : K2=0 : NEXTX : E3 
=K1-K3:CLS:PRINT@384,"N0W CALCULATING SQUARE OF ROWS" : L6=0 : L7=0 : 
F0RX=1T0CRSTEPC:F0RI=XT0X+(C~1) :L6=L6+M(I) :NEXTI 

7 L7=L7+L6[2:L6=0iNEXTX:L7«L7/C:CLSiPRINT@384,"NOW CALCULATING C 
OLUMNS SQUARED" : L6=0 : 1,8 = : FORX = lTOC : FORI=XTOCRSTEPC : L6 = L6+M ( I ) : N 
EXTI:L8=L8+L6[2:L6=0:NEXTX:L8=L8/R:CLS:PRINT@384,"NOW CALCULATIN 
G SQUARES OF ROW*COL MEANS" : L9 = : FORX=lTOCR 

8 L9=L9+(M(X) [2) : NEXTX :CLS : PRINT@384 , "NOW CALCULATING SSR":E2-(L 
7-G)*H: CLS: PRINTS 84, "NOW CALCULATING SSC" : El= ( L8-G) *H : CLS : PRINT 
@384,"NOW CALCULATING SSR*C" : E5= ( ( L9+G) - (L7+L8) ) *H :CLS : PRINT?3 84 
,"NOW CALCULATING SST" : E4= ( E1+E2+E3+E5 ) : CLS 

9 PRINT@384, "DEGREES OF FREEDOM NOWI 1 1 " • DC=C-1 • DR=R-1 : DX= ( ( R-l) * 
(C-l) ) :FORX=lTOCR:DW=DW+(N(X) -1) : NEXT: DT=DC+DR+DX+DW: CLS : PRINT@3 
84, "NOW I'M DOING MS" : Q1=E1/DC ! Q2=E2/DR :Q3=E5/DX :Q4=E3/DW: CLS : PR 
INT?384,"NOW i'M ON CALCULATED 'F ' . " : FC-Q1/Q4 

10 FR=Q2/Q4:FX=Q3/Q4:CLS:RETURN 

11 PRINT" DATA TABLE" : PRINT"SOU <<CE " ; TAB ( 1 2 ) "DF 
";TAB(24) "SS";TAB(36) "MS";TAB(48) "CAL. F" : PRINT'COL" ; TAB ( 12) DC ; T 
AB(24)El;TAB(36)Ql;TAB(4 8)FC:PRINT"ROW";TAB(12)DR;TAB(24)E2;TAB( 
36)Q2;TAB(48)FR 

12 PRINT"C X R";TAB(12)DX;TAB(24)E5;TAB(36)Q3;TAB(48)FX:PRINT"W 
/ C";TAB(12)DW;TAB(24)E3;TAB(36)Q4:PRINT"TOTAL";TAB(12)DT;TAB(24 
)E4: PRINT :PRINT"FOR DF TO F TABLE USE: " :PRINT"COL =" ;DC; "/" ;DW: 
PRINT'ROW =";DR;*/";DW:PRINT"CXR »* ;DXt "/" ?DW 

13 RETURN 

14 A$="":LPRINTSTRING$(3,CHR$(138) ) :INPUT"ENTER THE TABLE NAME"; 
QRS:LPRINTTAB(20) "DATA TABLE " ; CHRS ( 123 ) ; " ";QR$;" " ,-CHRS ( 125) ; 
CHR$(138) :GOSUB31:LPRINT"SOURCE";TAB(12) "DF";TAB(24) "SS" ; TAB ( 36 ) 
"MS", -TAB (48) "CAL. F" : GOSUB 3 2 

Program continues 
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Exhaustive research and professional standards 
bnnq you the best in business software. 



KEEP YOUR SALES CURVING UP 
WARD WITH EASYTRAK 1 , a powerful 
all-purpose activity tracking system. (Jser- 
specified options enable you to monitor 
sales activity by territory, product line. 
salesman, or by combinations. Can 
monitor inquiries, sales calls and order 
booking. Production activity (by shirt, by 
product, by day. by team, 
etc.). spending or in- 
come activity are simple 
to set up with EASY- 
TRAK"" Extensive video 
displays make available 
individual, group or total summaries, rela- 
tive averages and percentage data ail at the 
touch of a button. Use of an 80 column 
printer is optional 




MODEL l/lll 
MODEL II 



$125 
$150 

msm 




GENERAL LEDGER 

SLICE OUT MORE PROFIT by using 
• General Ledger to monitor your financial 
status. Features include fully-flexible finan- 
cial statements, both budget and last year 
comparisons, special report options. 
monthly ami quarterly trial balances, man- 
ual and or automatic journal entries all with 
extensive audit trails. You structure the 
chart of accounts with up to 5 digit account 

numbers. 

MODEL l/lll $325 

MODEL II $350 




PUT MORE CASH IN 
YOUR BANK AC- 
COUNT with • Account 
Receivable s many col- 
lection credit features, 
including average pay- 
ment days. aging 
s< hedule and statements. 
Open-item system records sales activity 
this year and last, optional automatic dis- 
counts and salesman assignment. Cash re- 
ceipts and A R adjustments feature exten- 
sive on-line validation. And. yes. ' Accounts 
Receivable handles the pesky new 9-digit 
zip code. Other optional features include 
service charges to selective customers: 
partial and on-account' payments. Posts, 
at your option to • General Ledger. 

MODEL l/lll 
MODEL II 



FIXED ASSETS 

A POWERFUL SET OF TOOLS TO 
CALCULATE and monitor fixed asset ex- 
penditures, book and tax depreciation, in- 
vestment tax credit, etc. Will even forecast 
future depreciation for you. (Handy at 
budget time!) Code structure enables you 
to classify assets by departments buildings. 
groups or other categories. Handles seven 
depreciation methods. Can post to * Gen- 
eral Ledger for you. 

MODEL l/lll 
MODEL II 



FUNNEL THAT STACK OF BILLS into 

* Accounts Payable system and create an 
orderly, manageable flow of vendor his- 
tories, cash requirements forecasts, check 
registers and checks, aging schedules, etc. 
Will accept manual checks, 
reversals, and adjustments 
Pay by selected vendor in 
voi< e. due date disc ount 
dates, and optionally post di- 
rectly to your • General 
Ledger. Supports 5-digit 
vendor numbers 

MODEL I/III $325 
MODEL II $350 




PAYROLL 





LEEP YOUR EMPLOYEES HAPPY and 

smiling with prompt, accurate and profes- 
sional payroll records Will handle weekly, 
biweekly, semimonthly, monthly payrolls. 
produce checks, check 
registers, labor reports, 
earnings reports. Form 
94 1 s. W2s. etc. Can 
handle fixed voluntary 
deductions hourly 
salary employees, 
bonuses, city and state taxes, etc. Easy to 
use and update tax tables. Automatic 
• General Ledger posting. 




MODEL l/lll 
MODEL II 



$325 
$350 



SPECIAL! All of the above: MODEL I/III $1600. 



MODEL II $1750. 



+ PLUS SOFTWARE comes to you feature-packed from on-line validation to 

mac hine-language hie handling t xtensive documentation and thorough installa- 
tion guide accompany each order. All systems are furnished on disc. Source code 
is included. Texas residents add 5% sales tax. 




PLUS COMPUTER TECHNOL 
6900 N. AUSTIN AVENUE 
CHICAGO, IL 60648 (312) 6470988 



CY, INC 



Dealer inquiries invited 

TRS 80 is a registered trademark ol Tandy Corp 
t ASYTRAK is a trademark ol Plus Computer Tech Inc 



y'See List of Advertisers on page 402 
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RANDOM 
ACCESS 

& 

BASIC 

FILE 

HANDLING" 



DSC Publishing 

2 Dogwood Drive 

PO Box 769 

Danbury, CT 06810 

Phone Order 
(203) 748-3231 




&&$&?ilil#f*f ' x&sfflffi 



the HOW TO, SHOW & TELL, STEP by 
STEP book. Written for TRS-80 and all 
computers using Microsoft basic. 

The breakthrough book for non-programmers. . . 
businessmen and professionals who want to 
solve in house problems by writing your own 
customized program... and the hobbyist with 
the desire to get beyond the cassette and into 
disk data storage and file manipulation. "DOS 
Random Access & File Handling" is the plain 
speaking, easy to read 150 page book for 
learning HOW TO WRITE SPECIAL PROGRAMS 
for inventories, mailing lists, work schedules, 
record keeping and more. Your acquaintance 
with Level I and Level II basic and this self- 
instruction tutorial will assure quick progress. 



Yes, I want to expand my programming 
knowledge. 

Please send me a copy of "DOS Random 

Access & File Handling" for 24.50 + 1.50 

shipping □ 

Also send me the compatible program disk 

for 28.50 + 1.50 shipping. □ 

Overseas add 8.00 per book and disk 

airmail. 

Name ■ 

Address 

City 

State Zip 



Master Charge D VISA Q 

Expiration Date 

Card # 



Check a Money Order D 
COD (2.00 extra) □ 
Signature 



"Dealer Inquiries Invited" Phone Orders (203) 748-3231 
CT orders add 7.5% sales tax. 



Program continued 

15 LPRINT"COL";TAB(12)DC;TAB(24)El;TAB(36)Ql;TAB[48)FC:GOSUB32:L 
PRINT"ROW";TAB(12)DR;TAB(24)E2;TAB(36)Q2;TAB(48)FR:GOSUB32:LPRIN 
T"C X R";TAB(12)DX;TAB(24)E5;TAB(36)Q3;TAB(4 8)FX:GOSUB32:LPRINT" 
W / C";TAB(12)DW;TAB(24)E3;TAB(36)Q4:GOSUB33 

16 LPRINT"TOTAL";TAB(12)DT;TAB(24) E4 :GOSUB33 :LPRINT :LPRINT"FOR D 
F TO F TABLE USE : " :LPRINT"COL =";DC; "/";DW:LPRINT"ROW =";DR;"/ 
n ;DW:LPRINT"CXR =" ;DX; "/" ;DW 

17 PRINT: PRINT" ENTER 1 TO GET HARD COPY OF SCORES" : INPUTAS : IFA$= 
"1"THEN23ELSE18 

18 INPUT"ENTER TO END";AS:END 

19 DIMB(50,50) ,A(50,50) ,T(50) ,M(50) ,N{50) ,C(50) : CLS : PRINT?384 , "E 
NTER THE NUMBER OF COLUMNS AND ROWS ( C , R) " : INPUTC , R :CR=C*R: CLS : C 

LS:F0RX=1T0CR:NN=1:CLS:PRINT@384, "ENTER SCORES FOR CELL ";X;:PRI 
NT" ( END WITH ' @ ' SYMBOL ) " 

20 INPUTAS :IFAS="@"THEN21ELSEA(X,NN)=VAL( AS) : AS=" " : NN=NN+1 :GOT02 


21 A$="" :N(X) =NN-1:NEXTX:FORX=1TOCR:S=S+N(X) :NEXT:RETURN 

22 CLS:PRINTCHR$(23) "YOU HAVE MADE* :PRINT: PRINT"AN ENTRY ERROR 1 
1":PRINT:PRINT"ENTER AGAIN PLEASE" :FORX=1TO2000 : NEXT:GOT01 

23 FORX=lTOCR!FORZ=lTON(X) :LPRINT"CELL #" ;X; "SCORES "; Z ;"=" ;A(X , Z 
) :NEXTZ,X:GOT018 

24 PRINT'FOR PRINT OUT ENTER 1 ";: INPUTAS : IFA$="1"THEN14ELS 

EI 7 

25 CLS :PRINTG384, "ENTER 1 TO EDIT SCORES" : INPUTAS : IFASO'l "THEN3 
0ELSEFORX=1TOCR:PRINT"FOLLOWING ARE THE SCORES FOR CELL t ";X:FO 
RY=lTON(X) :PRINT"SCORE ";Y;" IS " ; ( A(X , Y) ) : NEXTY : PRINT'DO YOU WI 
SH TO CHANGE ANY SCORES IN CELL ";X 

26 INPUT'ENTER Y OR N " ; AS : IFAS="N"THEN29ELSEN=1 

27 PRINT'END SCORE ENTRY WITH ' @ ' ALL SCORES MUST BE RE-EN 

TERED.":PRINT"SCORE ",-N;" FOR CELL ";X;" SHOULD BE ???": INPUTAS : 
IFAS="@"THEN28ELSEA(X,N)=VAL(AS) : N=N+1 :GOT027 

28 N=N-1:N(X)=N 

29 NEXTX 



30 RETURN 

31 LPRINTSTRINGS(6, 
RS(243) ;STRINGS(12 
RS(243) ;STRINGS(10, 

32 LPRINTSTRING$(6, 
RS(250) ;STRINGS(12 1 
RS(250) ;STRINGS(10, 

33 LPRINTSTRINGS(6 i 
R$(248) ;STRINGS(12, 
RS(247) : RETURN 



CHR$(241) ) (CHRS(243) ; STRINGS ( 14 ,CHRS ( 241) [ 

CHRS(241) ) ;CHRS(243) ; STRINGS ( 12 ,CHRS ( 241 ) 

CHRS(241) ) ;CHRS(242) : RETURN 

CHRS(241) ) ;CHRS(250) ; STRINGS ( 14 ,CHRS ( 241) 

CHRS(241) ) ;CHRS(250) ; STRINGS ( 12 ,CHRS ( 241 ) | 

CHRS(241) ) ;CHRS(249) : RETURN 

CHRS(241) ) ;CHRS(248) ; STRINGS ( 14 ,CHRS ( 241) 

CHRS(241) ) ;CHRS(248) ; STRINGS ( 12 ,CHRS ( 241) ; 



;CH 
;CH 



Program Listing 2 



SOME STRAIGHT TALK ABOUT DISK DRIVES 



■ DON'T BE CONFUSED BY ALL THE BRAND NAMES YOU SEE IN THE MARKET PLACE, THERE ARE VERY FEN MANUFACTURERS OF THE BASIC 
DRIVE CHASSIS, ALL THE OTHER NAMES ARE THOSE OF THE ASSEMBLERS OR THE RETAILERS. 

■ AS MANUFACTURED, THE DRIVE WILL NOT RUN ON A TRS-BOt, IT MUST BE MODIFIED BY THE ASSEMBLER. 

■ THE QUALITY OF THE DRIVE DELIVERED TO YOU IS DEPENDENT ON BOTH THE MANUFACTURER AND THE ASSEMBLER, THE BEST CAN TURN 
TO JUNK IF THE ASSEMBLY IS IMPROPERLY DONE. 

■ THE POKER SUPPLY AND CASE ARE VERY IMPORTANT COMPONENTS OF THE COMPLETE DRIVE, THE CASE MUST ALLOW PROPER C00LIN6 
AIR FLOW, AND THE POWER SUPPLY MUST MAINTAIN TWO CONSTANT V0LTA6ES. 

■ YOU MUST DEPEND ON THE COMPANY SELLIN6 YOU THE DRIVE TO SERVICE IT AT REASONABLE COST WHEN IT FAILS YOU, THE 
MANUFACTURER IS NOT EQUIPPED TO DO THIS! 

■ THE BEST MEASURE OF QUALITY IN A DRIVE IS IT'S SPECIFICATIONS, WILL IT HANDLE DOUBLE DENSITY, WHAT IS THE TRACK TO 
TRACK ACCESS TIME, THE ANSWERS TO THESE TWO QUESTIONS INDICATE THE PRECISION OF IT'S COMPONENTS. 

■ WHAT KIND OF DRIVE SHOULD YOU BUY ? LEVEL IV HAS CHOSEN TO DISTRIBUTE EXCLUSIVELY, THE MPI LINE, ALL MODELS OF MPI 
ARE DOUBLE DENSITY RATED AND REQUIRE ONLY A FIVE MILLI-SECOND TRACK TO TRACK ACCESS TIME. 

■ WHAT DO ALL THE MODEL NUMBERS MEAN? 

B-51" 40 TRACKS SIN8LE HEAD SINBLE SIDE B-52= 40/40 TRACKS DOUBLE HEAD DOUBLE SIDE 
B-91* 80 TRACKS SIN6LE HEAD SINBLE SIDE B-92* 80/80 TRACKS DOUBLE HEAD DOUBLE SIDE 
(DOUBLE HEADS) -READ BOTH SIDES OF DISK (DUALS) -TWO DRIVES IN ONE CASE (RAW) -NO POWER SUPPLY OR CASE 

■ WHERE SHOULD YOU BUY YOUR DRIVE, LEVEL IV IS ONE OF THE OLDEST AND LAR6EST DISTRIBUTORS OF TRS-801 EQUIPMENT, LOOK 
AT THE ADS IN YOUR OLD MA6AZINES, MANY OF THE ADVERTISERS ARE NO LONBER IN BUSINESS, LEVEL IV HAS BEEN A LEADER 
SINCE THE BE6INNIN6, WE STAND BEHIND OUR PRODUCTS, AND WE'LL BE HERE WHEN YOU NEED HELP. 

■ WHERE DO THE NATIONALLY KNOWN AUTHORS BUY THEIR DRIVES ? LEVEL IV CAN SHOW COPIES OF SALES RECEIPTS FOR DRIVES TO 
MOST OF THEM, LANCE MICKLUS, SCOTT ADAMS, VERNON HESTER, BOB (CAPTAIN 80) LIDDIL, DICK BALCOH, KIM WATT, ETC. 
TO THESE MEN C0MPUTIN6 IS NOT A HOBBY, IT IS THEIR PROFESSION. 

■ CALL FOR OUR LOW PRICES ON NEW AND USED DRIVES, REMEMBER, WE ALSO TAKE TRADES, AND PAY THE SHIPPIN6! 

LEVEL IV PRODUCTS INC. 32238 SCHOOLCRAFT, LIVONIA, MI 48150 
PHONES: MI (313) 525-6200 OTHERS 800-521-3305 (TOLL FREE) 

I a trademark of the RADIO SHACK DIV. of TANDY CORP. 



238 • 80 Microcomputing, March 1982 








||T \| 




1 HH9 I 


F* 





If you have a MICROLINE or EPSON MX-80 printer, you can print graphics like the ones above! 
GEAP (the Graphics Editor and Programmer) offers three Letter-sets, Selective Reverse-Image, Shrink, 
Magnify, Rotate and Draw, all in one easy to use package. It can Save and Restore images on disk, or 
Print them directly on your EPSON or MICROLINE. GEAP can be selected from the NEWSCRIPT menu, 
and when finished, pass its eye-catching results back to NEWSCRIPT for merging of text and Word Pro- 
cessing formatting. 

PANEL JOINER connects several screen images together. It normally costs $14.95, but if you order 
both GEAP and NEWSCRIPT, or are a registered owner of NEWSCRIPT and order GEAP now, JOINER 
will be included free. So, order today by mail or Toll-Free telephone, and enter the world of Word Pro- 
cessing Graphics! (48K TRS-80 disk system needed. Specify Model I or III.) 



GEAP plus Letter Sets: $45.95 



NEWSCRIPT 6.2: $99.95 




AMAZING PROGRAM SPEEDS UP BASIC 



Your time is valuable, so why 
waste it on slow-running BASIC 
programs? PRO SOFT's 

"FASTER" will analyze those 
programs while they run, then 
show you a simple change (usu- 
ally one new line) that can re- 
duce run-times by up to 50%. 

Accounting systems, financial models, engineering and scien- 
tific programs all run faster; so do games. Large, complex pro- 
grams improve the most, and "FASTER" is easy to use. 

THIS ISN'T A COMPILER! Your BASIC programs remain read- 
able and can be changed later on. While your programs run,. 
"FASTER" counts how often each "variable" is used, then shows 
you the correct sequence for these variables. Afterwards, the 
computer finds them sooner, so your programs run faster. 

Does it really work? Yes! Personal Computing said so in their 
May, 1981 issue (p. 116); we've received many letters from cus- 
tomers who've gotten 20-50% improvements; and we will make 
you this offer: 

Order "FASTER" now. Try it on your bread-and-butter pro- 
grams. If you don't get an overall run-time reduction of at least 
20%, return it within 30 days for a prompt and cheerful refund. 

"FASTER runs on TRS-80 Models I and III, 16^48K, tape or disk 

$29.95 



QUICK COMPBESS 

Small (276 bytes), fast (processes 800 
lines in under 3 seconds) utility removes blanks and remarks from 
your BASIC programs. Produces smaller, faster programs, and 
doesn't alter the original logic. 

16-48K Model I or III, tape or disk. $19.95 

SPECIAL FASTER + QUICK Compress: $39.95 



RPM measures the rotational speed and 
variation of your disk drives, and reveals a 
common cause of unexplained errors. 
Simple one-key operation, runs under any 
DOS, interchangeable between Models I 
and III. Shows current and average 
speeds, plus fluctuation history. Recovers 
from severe errors. Documentation ex- 
plains how to adjust drives. Use RPM 
monthly for best results. 32-48K Model I or III disk: $24.95 




TO ORDER. CALL NOW. TOLL FREE 

(800) 824-7888, Operator 422 

CALIF: (800) 852-7777, Oper. 422 

ALASKA/HAWAII: (800) 824-7919 

FOR TECHNICAL INFORMATION CALL: 

(213)764-3131, or write to us. 




©6JTF 



: !.' 



Dept. G Box 839 
North Hollywood, CA 91603 



TERMS- We accept VISA, Mastercard, checks. Money Orders COD- and even cash. We pay shipping via 

surface UPS inside USA. Please add $'i 00 lor Blue Label 6% tax in Cahloi ma, and 15% outside North America (air shipment). 



GRAPHICS 



All it takes is a DMP-3 digital plotter. 



Color from a Model 




Paul T. Ward 
Rolf A. Dei Dinger 
School of Public Health 
University of Michigan 
Ann Arbor, Ml 48109 



The TRS-80 Model II is a 
useful microcomputer, by 
itself and as a terminal for a cen- 
tral host computer. However, its 
graphics capabilities are not ex- 
citing and the lack of color is 
disappointing. To add color plot- 
ting capabilities, we interfaced 
the TRS-80 to a Houston In- 
struments DMP-3 digital plotter 
(HIPLOT), which uses 8V2 by 11 



The Key Box 

Model II 
64K RAM 
TRSDOS 
2 Disk Drives 
Daisy Wheel Printer 



inch paper and has a maximum 
plotting area of 7 by 10 inches. 

Hardware 

Interfacing the TRS-80 to the 
HIPLOT is very simple. Serial 
port B on the back of the TRS-80 
connects to the serial port of the 
plotter. The cabling provides an 
Xon-Xoff handshake and re- 
quires the pin connections 
shown in Fig. 1 to run at a 2400 
baud rate. 

HIPLOT jumper 6-16 sets the 
baud rate at 2400. Before running 
any Basic program, you must 
issue the system commands: 

SETCOM B = (2400,8, N, 2) 
FORMS {S[ 

Software 

Existing software, such as 
the Model I HIGRAPH, is re- 
stricted to plotting a bar chart, 
line graph, or pie chart. We de- 
veloped our own software. Since 
our numbers span large ranges, 
the program must be able to pro- 
duce logarithmic graphs. Fig. 2 
is an example of such a graph. 



Program Listing 1 produces the 
box and lettering "TRS-80 Model 
II and HIPLOT" (see Photo 1). 

Line 260, the first command 
to the plotter, draws a box 
around the text. The string in- 
structs the plotter to move the 
pen home (the lower left cor- 
ner), to go into absolute plotting 
mode, to set the origin at 
-100,0 and then to draw with 
the pen down to the specified 
coordinate pairs. The coordi- 
nates are expressed in units, 
where each unit is .005 inches. 
This string produces a box 10 
inches in the X and 7 inches in 
the Y direction. 

The program requests the 
user to change the pen to a new 
color and, after pressing any 
key, line 300 sends a string 
which will write the text "TRS-80 
Model II" to the plotter. U means 
pen up, A means absolute co- 
ordinates, and 300,1100 means 
go 300 units in the X direction 
and 1100 units in the Y direction 
for symbol plotting (S). The num- 
bers associated with S (14) 
mean vertical orientation (1) and 



size of the letters (4). Ninety- 
three plotable ASCII characters 
may be oriented in four direc- 
tions and drawn in five sizes. 
The 4 indicates a letter height of 
.56 inches. Line 310 redraws the 
same text displaced by .02 
inches to create a thicker line. 
The last character of each string 
is an underline indicating the 
end of the symbol plotting 
mode. Line 350 draws the text 
"and", and lines 390 and 410 
draw the text "HIPLOT" twice. 
Line 410 sends the pen home (H) 
and deselects the plotter (@). 

By the time this short article 
reaches print, Radio Shack will 
be advertising their TRS-80 Plot- 
ter ($1995). This plotter is the 
HIPLOT DMP-3 with an automat- 



Model II 




HIPLOT 


pin 2 


10 


pin 3 


pin 3 


to 


pin 2 


pih 7 


to 


pin 7 


jumper 4-5 






jumper 6-8-20 




jumper 6-16 


Fig. 1. TRS-80 Model II and 


HIPLOT pin connections. 
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Fig. 2. Logarithmic Graph. 
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Photo 1. 



ic color pen changer and a man- 
ual capability to direct the pen 
to a certain Ideation. Depending 
on the plotting load you have, 
you may save yourself $800 and 
get a HIPLOT DMP-3 or, for 
about the same amount of 
money, a DMP-6 or 7 with a plot 



area of 10 by 15 inches. ■ 

Paul Ward is a graduate stu- 
dent in radiological health, and 
Rolf Deninger is a professor of 
environmental health at the 
School of Public Health of the 
University of Michigan. 
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TRri-80 MODEL II 

AND 
HI -PLOT PLOTTER 
TITLE PAGE 

PROGKAM 

WRITTEN BY PAUL T. WARD SEPT. 1981 



REM ' 

REM 

REM ' 

REM 

REM 

REM 

REM ' 

REM 

REM * 

REM .*****»... ,....*...«.***»**.**««******************« 

REM 

REM DRAW BORDER AT MAXIMUM PLOTTING SIZE 

REM 

CLS:PRINT"PUT PAPER AND BLACK PEN IN PLOTTER" 

PRINT: PRINT-PRESS ANY KEY TO CONTINUE" 

IS=INKEY$: IF 1$="" THEN GOTO 250 

LPRINT";: H U A -100,0 O D 0,1400 2000,1400 2000,0 0,0 

PRINT: PRINT"INSERT RED PEN WHEN PLOTTER STOPS" 

PRINT: PRINT"PRESS ANY KEY TO CONTINUE" 

I$=INKEY$: IF 1$="" THEN GOTO 290 

LPRINT" U A 300,1100 S14 TRS-80 Model II_ " 

LPRINT" U A 304,1104 S14 TRS-80 Model 11_ " 

PRINT: PRINT"RE-INSERT BLACK PEN WHEN PLOTTER STOPS" 

PRINT: PRINT"PRESS ANY KEY TO CONTINUE" 

I$=INKEY$: IF 1$="" THEN GOTO 340 

LPRINT" U A 850,760 S14 and_ " 

PRINT: PRINT"INSERT BLUE PEN WHEN PLOTTER STOPS" 
PRINT: PRINT"PRESS ANY KEY TO CONTINUE" 
IS=INKEY$: IF 1$="" THEN GOTO 380 
LPRINT" U A 450,300 S15 HIPLOT_ " 
LPRINT" U A 454,304 S15 HIPLOT_ " 
LPRINT" H " 



Program Listing. 
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the COMPUTER 
STOCK MARKET book 

THE PROFESSIONALS BUY 

Purchased by over 160 Financial Institutions, 75 Market Advis- 
ory Services, 50 Colleges and Universities, and 1 50 Computer 
and Software Firms. 
Has been sold in every state and over 30 other nations. It is a study 
of market timing based on cycles and seasonal factors, as they affect 
stock and commodity prices. It gives solid tools for measuring and 
profiting from them. Author has more than 20 years experience as a 
stock broker, and conducted 8 years of computer research 
developing the 34 programs in the book which contains ideas and 
programs never before published. Programs are written in TRS-80 
BASIC. 

Do you have the great stock and commodity trading advantages 
given by the home computer to the few who properly use it? 
To order "New Uses For The Home Computer In The Stock 
Market" send your name and address with your check for $19.95 
(overseas; U.S.A. Dollar International Money Order or a Draft 
payable on a U.S.A. Bank)to: 

Thomas V. Lenz, Dept. M 

596 W. Karval Ct. - Spring Creek 

Elko, Nevada 89801 
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PROPERTY 
MANAGEMENT 



INVENTORY 
MANAGEMENT 



• Tenant Histories 

• Late Rent Report 

• Vacancy Report 

• Income Report 

• Automatic Late Charge 

• Returned Check Report 

• Integral General Ledger 

• Ownership Files 

• Utilities Report 
9 Tax Expense Report 

• Owners' Statements 

• Late Notice Letters 

• 900 Properties Per Disk 

$795 

All programs come with COMPLETE SOURCE CODE 
AND VARIABLE DEFINITIONS Programs 
utilize fast, convenient keyed file access and 
are written in Microsoft Basic. Easy to under- 
stand documentation. Money back guaranteed 
to be error free. License agreement and 
Source Code allows local programers to 
modify for unusual applications and for resale 
profits. All on TRS 2.0. Other programs also 
available. 



Inventory Performance Report 
Up To 15 Digit Stock Number 
Sales Input From CRT Or Disk 
Period h Year-End Performance 
Profits By Salesperson 
Sales Input From Radio Shack's 
Accounts Receivable Also 
Suggested Reorder List 
Conversion Of Files From 
Radio Shack's Inventory With 
Mo Re-Keying 
Price List 
Over 2000 Items Per Disk 

$175 



yWICRO- 

©MFUTER 

SALES 



PATIENT DATA 
MANAGEMENT 

• Maintains AMA OPT ( lodes With 
Fees & Descriptions 

• Up To 10 Doctors At 3 Locations 

• Forms For Blue Cross/Blue Shield; 
Campus; Medicade; Medicare 

• Patient & 3rd Party Billing 

• Full Patient History (1000 Per 
Disk) Or Balances Only (3000 
Per Disk! 

• Patient, Doctor & Service Code 
Files Maintained Separately 
For Easy Access 

• Reports By Doctor Or Location 

$895 

MICRO-COMPUTER SALES CORPORATION 
OF FAYETTEVILLE, NC 

Phone 919-483-2003 
Post Office Box 53376 
Fayetteville, NC 28305 

^246 
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HARDWARE 



A joystick interface for your Model I. 



The Joy of 




Howard Batie 
12002 Cheviot Drive 
Herndon, VA 22070 






With this inexpensive dual 
joystick interface you 
get two-player action and real- 
time input. And as an added 
bonus, two addressable output 
ports are provided to control ex- 
ternal circuitry under computer 
control. The design can be con- 
structed in an evening for under 
$20, exclusive of cabinet and 
joysticks. 

There are two basic types of 
joysticks— switches on each of 
five data lines (such as used by 
Atari) and twin potentiometers 
(such as sold by Jameco). Either 
kind may be used with this inter- 
face, although a few extra parts 
are required for the poten- 
tiometer version. The interface 
is designed to be plugged direct- 
ly onto the PCB extension on the 
rear of the TRS-80, but can also 
be used by most other home 
computers. 

Description 

The full schematic of the 
switch-type dual joystick inter- 
face is shown in Fig. 1. If you 



The Key Box 

Model I 

Joystick Interface 




"T^- — / © o o o l&Hiia 



Fig. 1a. Component side of PC board. 




Fig. 1b. Reverse side of PC board. 
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MICRO-DESIGN PRESENTS THE MDX SERIES 

INTERFACE EXPANSION SYSTEMS FOR THE TRS-80* COMPUTERS 



The MDX Series Interface Expansion Boards are designed to provide a wide range of options for the TRS-80" 
Computers By using a modular design scheme, assembly of the board in sections is possible, thus you build 
in the options you need, as you may need them' The P C Boards are solder-masked and silk-screened for easy 
assembly and each board comes with a well illustrated Users Manual. 



MODEL I EXPANSION 

The MDX-1 and MDX 2 expansion boards are 
field proven and offer more options lhan any olher 
board on the market 



-76 



Features: 

• On Board Power Supply 

• Floppy Disk Controller 

• Phone Modem 

300 Baud — Direct-Connect - 
Answer and Originate Modes 

• Serial Port 

RS 232 and 20ma Loop Compatible 

• EPROM 

2K or 4K Capabilities 

• Dual Cassette Logic 



MDX-1 P C Board S Users Manual S69 95/ea 

MDX-2 PC Board S Users Manual 74 95/ea 

Fully Assembled MDX-2 & Manual 399 95/ea 

(No Memory) 

Partially Assembled MDX 2 & Manual 299.95/ea 

Users Manuals 8 95/ea 
Custom Enclosures Available 

NOTE The MDX-1 .Iops or.1 |i"-'.'i!e fDC cnCti't'Y 



MODEL III EXPANSION 

Micro-Design now introduces the MDX-3 Inter- 
face for the TRS-80* Model III Computer. The 
MDX-3 board mounts inside Ihe computer and 
uses Ihe existing power supplies 

Features: 

• Double Density Floppy Disk Controller 

Digital Dais Separation 
Controls Up to 4 Drives 

• Serial Port 

RS 232 and 20ma Loop Compatible 

• Phone Modem 

300 Baud — Direct Connect — 
"Answer ' and Originate" Modes 

MDX-3 PC Board & Users Manual $74. 95/ea 

Fully Assembled MDX-3 & Users Manual 324.95/ea 

Partially Assembled MDX-3 S ' 199. 95/ea 

Users Manual 

Users Manual 8 95'ea 



NOW OFFERING ASSEMBLED UNITS 

Micro Design now offers partially assembled" boards 
as an added savings to the user These boards have all 
discrete components and an sockets soldered m place 
All lhat remains is insertion of Ihe required IC's 

Users Manuals are sold separately for evaluation pur 
poses The once is deduciabie upon the order of a 
board 



THE MDX-4 
PHONE MODEM 



W8 



The MDX 4 Phone Modem utilizes Ihe same 
Direcl Connect. 300 Baud design as used in the 
other MDX series boards. 

MDX 4 PC. Board S Users Manual 29 95/ea 

Users Manual 8. 95/ea 



ACCEPTED 



Texas Residents Add 

5% Sales Tax 

All Orders Processed In 72 Hours 

All Board Orders Add $5.00 For 
Shipping and Handling 



*TRS-80 Is A Trademark of Radio Shack 



Dealer Inquiries 
Welcomed 



For More Information 

And A Free Brochure 

Contact: 




MICRODGflGN 

P.O. Box 748 

Manchaca, TX. 78652 

(512) 282-0225 




fcjji«aa9eK43»s*aaM»*;*<*»*®*«- 



LARGE CAPACITY 

ACCOUNTS RECEIVABLE 
FOR MODEL l/lll 

5000+CUSTOMERS 
1 5000+TRANSACTIONS 

30-60-90-120 AGEING ON ALL REPORTS 
PRINT 1/ALL STATEMENTS OR LABELS 
DATE/INV#/DESCRIP/AMT DETAIL SHOWN 
SELECTIVE FINANCE CHARGES 8. RATES 
FAST POSTING & ENTRY ERROR CHECKING 
LAST PAYMENT DATE & % OF CREDIT LMT 
SALES ANAl YSIS BY TRANSACTION TYPE 
MANUAL 8 SAMPLE DATA 
RETAIL & PROFESSIONALLY USED 2 YRS. 
$100.00 32K 2 DISK REO 



HOLMAN D-P SERVICE 



•^355 

2059 WEST LINCOLN TERMS VISA 
OROVILLE, CA 95965 MC OR COD 
916-533-5992 3PM-9PM 3 00 S & H 



DOTPLOT-80 

HI RESOLUTION 
GRAPHICS SOFTWARE 

SIMULATE A PEN PLOTTER ON YOCIR 
LINE PRINTER VU OR VIII AND 
MODEL I OR III TO DRAW: 
•COMPUTER ART 

• LINE DRAWINGS 

• GRAPHS WITH FULL LABELING 

RESOLUTION: 

• 60 DOTS/INCH HORIZONTAL 
•63 DOTS/INCH VERTICAL 

SAMPLE PROGRAMS INCLUDED. 

CASSETTE $19.95 

PLEASE SPECIFY 16K. 32K OR 48K 

WORKBENCH SOFTWARE 
P.O. BOX 24497 

DAYTON. OHIO 45424 ^356 



sSee List ol Advertisers on page 402 
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take a good look at it, you'll see 
that I cheated a bit by not 
decoding all the available ad- 
dress lines, not using all the 
data lines, and I used CMOS 
switches instead of the stan- 
dard 74LS367 tri-state buffers. 
These departures from the nor- 
mal procedures are worthwhile 
in this case because cost, parts 
and voltage drain are drastically 
reduced if we use only those 
signal lines we really need. 

The circuit was designed 
around the requirement to keep 
program statements simple. 
For example, I wanted to call 
the input data from the left 
joystick with INP(1) and the 
right joystick with INP(2). I also 
wanted the output ports to pro- 
vide a latched change of logic 
level with unambiguous state- 
ments. OUT 1,X (X is an integer 
from to 255) sends a logic 
change output signal for the 
left player, and OUT (2,X) does 
the same for the right player. 
OUT 0,0 resets the output 
signal latches for both players 



to their normal logic state. 
These commands were pur- 
posely chosen so that the pro- 
grammer could easily remem- 
ber what commands affect 
which port while avoiding any 
possible interaction with the 
TRS-80 cassette input and out- 
put port (#255). 

Also, note that the five data 
lines D0-D4 are used only with 
the INP statement; they are, in 
effect, tri-stated at all other 
times. This is done because we 
really don't need to output any 
specific data, but just need an 
indication that an OUT com- 
mand has been issued to one of 
the two output ports. Thus, the 
two address lines during the 
OUT statement provide all the 
output data that is necessary; 
i.e., they identify which output 
port is to be activated. During an 
INP statement, however, we 
want to monitor the logic level at 
each of five separate switches 
(right, left, up, down and fire) 
and pass this data to the CPU. 
Without going into the complex- 



ity of data multiplexers, this will 
require five separate data lines, 
one for each switch. 

How is all of this done? Pins 
12 and 19 of the TRS-80 expan- 
sion edge connector provide the 
OUT* and IN* signals respec- 
tively. Each is a negative-going 
strobe pulse of about 1.3 
microseconds which occurs 
during the execution of the OUT 
or IN statement. The OUT* or 
IN* signal line may be low in any 
instant, but not simultaneously. 
These strobes are used in con- 
junction with the two address 
lines A0 and A1 to determine 
which other parts of the circuit 
are activated. 

All the address and data lines 
used are gated through U1-U3. 
These devices are solid-state 
switches and, in the circuit 
shown, take the place of the 
usual tri-state buffers found in 
most other computer interface 
designs. Looking at the top 
switch of U1, the input pin 1 is 
connected to the output pin 2 
only if the control line pin 13 is 



high. The resistance between 
pins 1 and 2 is then about 300 
ohms. But when pin 13 is low, 
the resistance between the 
same two pins is on the order of 
several hundred megaohms 
(open-circuited). Further, the 
switch is bidirectional, so that 
pin 1 can be used as the input 
and pin 2 as the output, or pin 2 
can be the input and pin 1 the 
output. This allows great flex- 
ibility when laying out a printed 
circuit board. 

The OUT* and IN* signal lines 
are fed to U5b and the U5b out- 
put is inverted by U4b. The out- 
put of U4b is normally logic 0, 
but when either the OUT* or IN* 
line is strobed low, the U4b out- 
put rises to logic 1, which turns 
on the top two switches of U1. 
This allows the two address 
lines to be decoded at the U5a 
and U5c inputs. However, U4f 
keeps these gates OFF unless 
the IN* signal has strobed low 
and activated the address line 
switches (OUT* has no effect 
here). When INP (1) is executed, 



TRS-80 ( 



RESET 

r <m — 



<m- 

<I3- 



<m- 



O- 



<33- 



.-.-77]- 



<u- 



<53- 



LEFT 

JOYSTICK I 

JACK 



ATARI '" 

JOYSTICK 

CORD 



RIGHT 
JOYSTICK ( 
JACK 



MAN RESF' 



~, 



L.J 



"\ 



-r 



40668 



j: 




*--? 







C,W: 


40MB 


14 


7 


,_J>i-4<>B 


1 


8 


4C66B 


14 


7 


4073B 


14 


7 


4C750 


14 


7 



OUT l,X OUTPUT L-- O 
OUT 2,X: OUTPUT R=0 
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Fig. 1. Schematic diagram. 




ADVENTURES!!!! 
For TRS-80, and COLOR-80. These Ad- 
ventures are written in BASIC, are full 
featured, fast action, full plotted adven- 
tures that take 30-50 hours to play. 
(Adventures are inter-active fantasies. 
It's like reading a book except that you 
are the main character as you give the 
computer commands like "Look in the 
Coffin" and "Light the torch.") 

Adventures require 16K on COLOR- 
80 and TRS-80. They sell for $14.95 
each. 

ESCAPE FROM MARS 
(by Rodger Olsen) 
This ADVENTURE takes place on the 
RED PLANET. You'll have to explore a 
Martian city and deal with possibly 
hostile aliens to survive this one. A good 
first adventure. 

PYRAMID (by Rodger Olsen) 
This is our most challenging ADVEN- 
TURE. It is a treasure hunt in a pyramid 
full of problems. Exciting and tough ! 

TREK ADVENTURE (by Bob Retelle) 
This one takes place aboard a familiar 
starship. The crew has left for good 
reasons - but they forgot to take you, 
and now you are in deep trouble. 

DEATH SHIP (by Rodger Olsen) 
Our first and original ADVENTURE, 
this one takes place aboard a cruise ship - 
but it ain't the Love Boat. 

VAMPIRE CASTLE (by Mike Bassman) 
This is a contest between you and old 
Drac - and it's getting a little dark 
outside. $14.95 each. 



SPACE SHUTTLE 
ONE OR TWO PLAYER HIGH RES GAME - 

Your mission is to dock with an orbiting space 
platform — but you may have to land on the 
planetary surface for refueling first. A real value 
in a high res real time game. $6.95. 

KILLERBOT - (Available in 4K) - Real time 
action at 20 levels of difficulty as you run, 
sneak, and dodge your way through a bloody 
field of Killer Robots. Get across or die! Joy- 
sticks or Keyboard controls. TRS-80 COLOR 
(ANY BASIC 4K or more.). $9.95. 

SLASHBALL (Available in 4K) - This one is 
best described as a thinkers arcade game. It 
rewards fast reflexes and clear thinking - like 
nothing you have ever seen before. It is one of 
our best family games for one or two players. 
$9.95. 

TIMETREK - A REAL TIME, REAL GRAPHICS 
STARTRECK. See your torpedoes hit and watch 
your instruments work in real time. No more un- 
realistic scrolling displays! $14.95. 

STARFIGHTER - This one man space war game 
pits you against spacecruisers, battlewagons, and 
one man fighters, you have the view from your 
cockpit window, a real time working instrument 
panel, and your wits. Another real time goody. 
$9.95 

BATTLEFLEET - This grown up version of Bat- 
tleship is the toughest thinking game available on 
OSI or 80 computers. There is no luck involved 
as you seek out the computers hidden fleet. A 
topographical toughie. $9.95 

LABYRINTH - 16K EXTENDED COLOR 
BASIC — With amazing 3D graphics, you fight 
your way through a maze facing real time mon- 
sters. The graphics are real enogh to cause claus- 
trophobia. The most realistic game that I have 
ever seen on either system. $14.95. 





QUEST - A NEW IDEA IN ADVEN- 
TURE GAMES! Different from all the 
others, Quest is played on a computer 
generated map of Alesia. Your job is to 
gather men and supplies by combat, 
bargaining, exploration of ruins and 
temples and outright banditry. When 
your force is strong enough, you attack 
the Citadel of Moorlock in a life or 
death battle to the finish. Playable in 2 
to 5 hours, this one is different every 
time. 16K COLOR-80 OR TRS-80 
ONLY $14.95. 




SPACE ZAPPER - Protect your central 
Star Base from ships that attack from 
all four sides. Fast reflexes are required 
as the action speeds up. Great for kids 
or Dads. This game has high speed high 
resolution graphics and looks as if it just 
stepped out of the arcades. — 16K ex- 
tended or 32K disk. BASIC TRS-80 
Color only. $14.95. 



TRS80 



Please specify system on all orders 
This is only a partial listing of what we have to offer. We have arcade and 
thinking games, utilities and business programs for the OS1 and TRS-80 Color. 
We add new programs every week. Send $1.00 for our complete catalog. 

AARDVARK-80 
2352 S. Commerce, Walled Lake, Ml 48088 TRS 80 COLOR 




■ See List ot Advertisers on page 402 
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Color Co nip 











Are you tired of searching the latest magazine for articles about 
your new Color Computer? When was the last time you saw a 
great sounding program listing only to discover that it's for the 
Model I and it's too complex to translate? Do you feel that you are 
all alone in a sea of Z-80's? On finding an ad for a Color Computer 
program did you mail your hard earned cash only to receive a 
turkey because the magazine the ad appeared in doesn't review 
Color Computer Software? If you have any of these symptoms 
you're suffering from Color Computer Blues! 

But take heart there is a cure! 
It's COLOR COMPUTER NEWS. 

The monthly magazine for Color Computer owners and only Color 
Computer owners. CCN contains the full range of essential 
elements for relief of CC Blues. Ingredients include: comments to 
the ROMS, games, program listings, product reviews, and general 
interest articles on such goodies as games, personal finances, a 
Kid's page and other subjects. 

The price for 1? monthly treatments is only $21 00 and is available 

from: 

\^ X . RKMarkable Software 

P.O. Box 1192 
Muskegon, Ml 49443 ^ 145 

NAME 




ADDRESS 


CITY 

V, 


.. State 

Allow 8-10 \*'eeks for 1st issue. 


Zip 


80 M 



SAVE 
$$$ 




SAVE 
$$$ 



ERS 

CALLUS... 
SAVE MONEY 




Model II 
64 K 

$3270.00 
up to 16% 
discount off 
retail 



CALL COLLECT: 
-*6 512-689-5536 
Master Electronics, Inc. 

154 N. 5th, Raymondville, Tx. 78580 



Form F48 Provided 
Standard Warranty On Merchandise 




Authorized TRS-80 Dealer. Store #F-723 




IN* is strobed low, address line 
A0 is high and A1 is low, soall in- 
puts at U5c are high; U5c pin 10 
goes high, which turns on the 
bottom two switches of U1 and 
the top three switches of U2. 
The computer data lines D0-D4 
are now looking for input data 
from the left joystick. Since no 
input connection is made to 
data lines D5-D7, the CPU sees 
these as logic 1 signals. 
Therefore, if no switch is 
depressed when INP(1) is ex- 
ecuted, the CPU gets the value 
255 as the input data from the 
left joystick. 

Now if IN* is strobed low in 
response to an INP(2) statement, 
A0 is low and A1 is high. Again, 
U4b pin 4 closes the top two swit- 
ches in U1, the A0 and A1 ad- 
dress lines are applied to U5b 
and U5c, and U5a pin goes high. 
This turns on the bottom switch 
in U2 and all switches in U3, and 
the CPU is now looking for input 
data from the right joystick. Mov- 
ing the joystick to the right posi- 
tion takes DO low (inputted data 
is 254); the left position inputs 
253. The UP position inputs 251, 
and 247 is inputted if the joystick 
down switch is closed. If the fire 
button is pressed, D4 goes low 
and inputted data is 239 (see 
Table 1). These input values are 
then used by the program to deter- 
mine the proper action to be 
taken. 

A similar process is used to 
decode either of the two output 
ports, except decoding is done 
by U6c and U6a. When A0 is 
high, A1 is low, and OUT* is 
strobed low in response to OUT 



1,X all inputs of U6a are then 
low, allowing pin nine to go low. 
This toggles the cross-con- 
nected flip-flop U7c-U7d. This 
toggled state will be maintained 
until reset by an OUT 0,X state- 
ment, or until manually reset by 
depressing S1. OUT 0,X is 
decoded by U6b, which is really 
a third output port, but is used 
only to reset the first two. U6b 
pin 6 goes low, and both flip- 
flops are reset through D1. One 
thing to keep in mind: It's a good 
idea to include the statement 
OUT 0,0 near the beginning of 
any program, just to make sure 
the output ports are properly 
initialized. 

Provisions are made at the 
output of each flip-flop to ac- 
tivate a relay for external control 
of bells, whistles, etc. When U7a 
pin 3 goes high, Q1 is saturated 
and the relay closes. A typical 
low-current relay is sold by 
Radio Shack and requires only 
12 ma. A spike-limiting diode 
rectifier (1N4001, etc.) may be 
placed in parallel with the relay 
coil as shown in Fig. 1. 

Since the circuit is all CMOS, 
power drain is virtually neglig- 
ible, and the circuit could be 
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Table 1. 




Fig. 2. Parts placement diagram. 
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118 SO. MILL ST 
PRYOR, OK 74561 
(918) 825-4844 




ALL LISTED PRICES ARE CASH DISCOUNTED WE ACCEPT MC. VISA, AND COD (REQUIRES CERTIFIED CHECK, CASHIER'S CHECK OR 
CASH) FOR CHARGE ORDERS, PLEASE ADD 3%. FOR COD SERVICE, PLEASE ADD 3%. OKLAHOMA RESIDENTS PLEASE ADD 4% SALES TAX 
********* NEW RETAIL LOCATION - SOUTHWOOD SHOPPING PLAZA, PRYOR, OK******** 




TRS-80 MODEL III 




TRS-80 16K Model III $825.00 

TRS-80 48 K Model III $849.95 

TRS-80 48 K Model III 

with one disk drive $1499.95 

TRS 90 48K Model III 

with two drives $1749.95 

'Model III is also available with dual head and 80 track 

drives. Drives listed give same performance as standard 
Radio Shack units. 



THERE'S NO 
SECRET 

There's no secret as to why we can sel 

TRS-80 computer equipment for less. Low 
overhead — that's the reason — pure, sim- 
ple and straight! As everyone knows, Radio 
Shack is a huge corporation ..with huge 
expenses. We are able to buy the bare- 
bones computers trom Radio Shack. To 
these computers, we add our own memory 
chips, disk drives, cables, etc. The result is 
a computer system which is equal to, or in 
many cases, superior to the one you would 
get from Radio Shack in both price and per- 
formance capabilities. There is one thing 
that you don 't get from Radio Shack — their 
90 day warranty. What you get in its place is 
the exclusive 120 days American Small 
Business Computer's Warranty. So. ..if you 
like the Radio Shack computer, but dor- ' t 
iike the price CHECK US OUT!!! 



COLOR COMPUTER 




AW.. .WHAT THE HECK 

RAM Memory Chips for the TRS-80 a»p\ a -c or.-, 



■ ■■'..-. -: .■v.< :r, .-,t-e 



$17" 

PER 16K SET 



COLORCOMPUTER4K LEVEL I $318.00 

COLOR COMPUTER 16K 

EXTENDED BASIC $487.00 

COLOR COMPUTER DISK 

DRIVE 1 $499.95 

COLOR COMPUTER DISK DRIVE 

2, 3 or 4 $329.95 

COLORCOMPUTER JOYSTICKS $24.95 

* DEALER INQUIRIES INVITED 



TRS-80 MODEL III SOFTWARE 

DISCOUNT PRICES ON 

Model II! Software 

Profile (26-1562) $69.95 

Profile III Plus (26-1592) $175.00 

VisiCalc (26-1566) $80.00 

VisiCalc III (26-1569) $175.00 

Scripsit (26-1563) $79.95 

Super Scripsit (26-1590) $175.00 

Scripsit Dictionary (26-1591) $131.00 



CALL 918-829-4844 



powered with four internal 
NiCad cells (1.25v per cell). 
However, to ensure proper and 
constant TTL-compatible logic 
levels to and from the computer, 
the PC board accomodates U8, 
a standard 5-volt regulator in a 
TO-220 case, which can be 
powered by any AC adaptor for 
games or calculators which has 
an output voltage between 8 and 
15 volts. 

Construction 

Parts layout is not critical, 
and is greatly simplified by 
using three resistor networks, 
each with seven 100K ohm pull- 
up resistors. The entire circuit of 
Fig. 1, including the voltage 
regulator, is built on a 3" by 4" 
double-sided PC board and 
housed in an 8" by 3" by 5" LMB 
ME-583 cabinet, which is in 
strict conformance with my 
shrink postulate. My shrink pos- 
tulate states that the physical 
size of any completed project is 
determined not by the complex- 



LEFT JOYSTICK 



ity of the circuit, but only by the 
number and size of input and 
output panel controls and con- 
nectors. Anyway, I believe that a 
couple of extra dollars invested 
in a good-looking cabinet is well 
worth it. Inside, the electron 
doesn't care. 

The two joystick input 
sockets, the on-off switch and 
the reset button are placed on 
the front panel, and the com- 
puter connector socket, right 
and left output jacks, and the 
AC adaptor input jack are on the 
rear panel. Standard 9-pin 
D-connector sockets are used 
on the front panel (Atari 
joysticks can be plugged in 
directly), and, since ten signal 
lines are required to the com- 
puter, a 15-pin D-connector is 
used on the rear panel. 

Connections to the joysticks 
and computer panel connectors 
are simplified by using standard 
14-pin headers at the IC sockets 
labeled Z1 and Z2. This also 
minimizes the time and effort 



needed to remove the PC board 
from the cabinet once it's wired 
in. Simply removing the headers 
from the two IC sockets discon- 
nects 22 of the 27 required 
interconnecting wires. Provi- 
sions have also been made on 
the PC board to tap off the + 5 
volt regulator output to drive 
other circuitry you may want to 
include inside the cabinet. 
About 200 ma is available, 
assuming that the AC adaptor 
you use can supply that current 
continuously. Also, if you do 
want to tap into the computer 
address and/or data lines, the 
header plugs make it extremely 
convenient to do so. If desired, 
the ME583 cabinet is sufficient- 
ly large to permanently install 
the AC adaptor inside and 
eliminate the AC adaptor input 
jack. This would also provide a 
little more "ballast weight" for 
the cabinet. 

Software 

Inputting data and activating 
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RIGHT JOYSTICK 
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Fig. 3. Interface for potentiometer joysticks. 



the output ports can be done at 
any appropriate step in the pro- 
gram logic flow. For example, 
the input data lines can be con- 
tinually scanned for closure of 
any switch inside a Basic loop 
(or Assembly program counter- 
part) with an elementary routine 
such as: 

300A = INP(1): B = INP(2) 

310 IF A = 255 AND B - 255 THEN 300 

320 IF B<255THEN 340 

330 IF A = 254 THEN (R) ELSE IF 

A = 253 THEN (L) ELSE IF A = 251 

THEN (U) ELSE IF A = 247 THEN (D) 

ELSE IF A = 239 THEN (F) 

340 IF B = 254 THEN (R) ELSE IF 

B = 253 THEN (L) ELSE IF B = 251 

THEN (U) ELSE IF B = 247 THEN (D) 

ELSE IF B = 239 THEN (F) 

This example shows switch 
closures in only one of the four 
cardinal directions, plus fire. Ad- 
ditional data values can also be 
tested for combinations of 
directions: 250 = UP and 
RIGHT; 246 = DOWN and 
RIGHT; 249 = UP and LEFT; and 
245 = DOWN and LEFT. Addi- 
tionally, the fire data line can be 
tested independently of the 
states of the direction data lines 
if the last statement on line 330 

is changed to: 330 ELSE IF A 

<239 THEN (F). Alternatively, if 
you want to input data when a 
certain set of conditions are 
met, one possibility is: 300 IF 
G = 10 AND H = 3 THEN 
A = INP(1): B = INP(2). 

These software aids are 
directly usable on the Model I 
Level II with either switch-type 
or potentiometer joysticks using 
the interfaces shown in Figs. 1 
and 3. Minor changes to the 
logical operation statements 
may be required for use on other 
computers; however, the 
joystick hardware can be used 
by most any eight-bit Basic com- 
puter which has negative-going 
strobe signals during execution 
of OUT and INP statements, or 
their equivalents. If your com- 
puter has positive-going 
strobes, the OUT and IN signal 
lines can be inverted externally. 

Potentiometer Joysticks 

To use potentiometer-type 
joysticks with the interface 
shown in Fig. 1, we need a 
method of converting the con- 
tinuously varying resistance to 
discrete logic levels which are 
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Dur Model 3 Mini Disk Drive is based 
)n the famous Tandon mini disk unit. 
3ecause of it's low cost and high reli- 
ability, we thought this Tandon unit 
[lie perfect choice for the Model 3. 
Much testing confirmed our opinion, 
sind we think you'll agree that it's the 
best mini disk for the money (and the 
Model 3)!!' 

* DEALER INQUIRIESINVITED 




INTERNAL DISK DRIVE KITS FOR THE MODEL III COMPUTER 



Thekii includes one disk drive ol your choice, controller, power supply, ca 
mounting hardware, and complete instructions for easy installation 



DRIVE TYPE 


DRIVE 


DRIVE 1 


DRIVE '/ 


DRIVE 3 


Single Side 40 " •;■■;.' 
Stores aDoul ISC 000 


External 

$595.00 


External 

239.95 


265.00 


265.00 


Rytes.'Disk Dnvr 











Dual Head 40 Track 

stores about 360 ooo $729.95 379.95 369.95 369.95 

Bytes/Disk Drive 

S.ngle Side80 Track 

Stores about 360.000 $729.95 379.95 369.95 369.95 

Bytes/Disk Drive 

Dual Head 80 Track 
-Stores about 720,000 $829.95 479.95 499.95 499.95 

Bytes/Disk Drive 

'Drives Oand 1 may be installed externally (with controller and power supply 
mounted internally). Please add $40.00 for cost of cabinet and cover. 



m 

Our Mini Disk Drives are based on the world famous 
TEAC Mini Disk Unit. TheTEAC Unit features an esti- 
mated 8000 power-on-hours mean time between failure 
(that's 8 hours a day, 5 days a week, for 3.85 years!!). 
Our drives also feature a lead screw head positioner 
This type of positioner insures accurate head position- 
ing over the read-write media while giving a very quiet, 
noise-free read-write operation. If you have any doubts 
about our drives, our one year warranty should con- 
vince you that we know this unit is the best drive at the 
best price on the American market. This is one exam- 
ple where you can pay less and get more! ! 
MODEL 1 40TRACK FULLY TRS-80 COMPATIBLE 

DISK DRIVE $265 

MODEL 1 80TRACK DRIVE (Requires NEW DOS 80 

or equivalent software to work) $369.95 

NEWDOS 80 (Version 2.0) $139.95 

BOX OF 10 VERBATIM 

DATALIFE DISKETTES $29.95 

2 DRIVE CABLE $29.95 

4 DRIVE CABLE $39.95 






COMPLETE DRIVE 
WITH POWER SUPPLY 

-825-48 




^219 
* TM Tandy Corp. 



recognizable and usable by the 
CPU. The additional circuitry of 
Fig. 3 performs that conversion. 

The five output data lines can be 
connected directly to the 
joystick inputs of Fig. 1, and the 
joysticks themselves now go to 
the inputs o! Fig. 3. 

What we have in Fig. 3 is really 
four two-bit analog-to-digital con- 
verters But this is all we need 
here since we're only interested 
in three different positions of the 
joystick lever: right, center and 
left or up, center and down. 

Looking at U9a and U9b. we 
see that these two op-amps are 
configured for maximum open- 
loop gain (no feedback resistor), 
and will act as voltage 
threshhold detectors, or voltage 
comparators. If the voltage into 
the inverting input is below that 
of the reference voltage on the 
non-inverting input, the op-amp 
output will be high. But when the 
inverting input reaches the 
threshhold reference voltage at 
the non-inverting input, the op- 
amp output toggles sharply to 
logic zero. The reference voltage 



at the U9a and U9b non-inverting 
inputs is determined by the 
R1-R2-R3 voltage divider, with a 
higher reference voltage at the 
non-inverting input of the top op- 
amp. The difference in reference 
voltages between the two non- 
inverting inputs (voltage drop 
across R2) will determine the 
amount of joystick travel around 
its center position, which is nor- 
mally the "off" area. I've ar- 
bitrarily selected the center 20 
percent of the lever motion to be 
the "off" area. The voltage on 
U9b pin 5 is 2.0 volts, and 3.0 
volts on U9a pin 3, a difference 
of one volt, or 20 percent of the 
total joystick wiper travel from 
zero to five volts. 

Now remember that to work 
properly with the switch-type 
joystick interface of Fig. 1, the 
right output line of Fig. 3 must 
go to logic zero when we move 
the joystick handle right (out of 
the center OFF area) and the 
left output line must be low only 
when the joystick handle is to 
the left of the center off area. 
When in the center off area, both 



right and left output lines must 
be high. This decoding is done 
by U10c and U10f. U10a, b, d and 
e are used only to provide buf- 
fered non-inverted output data 
to the inputs of Fig. 1. The pro- 
cess is repeated with U9c and 
U9d for the Up-pot, and with U1 1 
and U12 for the second joystick. 

The choice of the LM-324 as 
the guad op-amp for this ap- 
plication was made quite 
deliberately. Its particular ad- 
vantages are that it works well 
as a voltage comparator from a 
single ended 5V supply, uses a 
minimum of external com- 
ponents, and the voltage transi- 
tion threshhold can be set 
anywhere between a few milli- 
volts above ground and a few 
millivolts below Vcc and still 
give good switching perfor- 
mance. Additionally, it's widely 
available, quite inexpensive and 
draws only about three to four 
milliamperes. 

The entire circuit of Fig. 3 can 
be constructed on a small PC 
board or perfboard and mounted 
above the PC board of Fig. 1. 



Stacking the two PC boards in 
this way saves both space in- 
side the cabinet and additional 
mounting bolts. Connecting the 
PC board of Fig. 3 to the joy- 
sticks and to the Fig. 1 PC board 
can again be simplified by using 
14-pin IC sockets and DIP 
headers, if desired. 

Inexpensive, easy to build and 
great to use! Real-time interac- 
tion between two players 
definitely turns any old hum- 
drum game into challenging 
competition. But the real key to 
exciting computer games is 
speed. So now that you're 
armed with this dual joystick in- 
terface. Assembly program- 
mers, arise! We want to see real- 
time animation, graphics and 
action! ■ 

The commercial-quality dou- 
ble-sided PC board for the cir- 
cuit of Figure 1 and an illustrat- 
ed step-by-step assembly manu- 
al for construction of the Dual 
Joystick Interface are available 
for $13.50 postpaid from the 
author. 




„ - ™0R COMPU _ _ 

Iv ^~\£;. y^jBy compcj voice TRS-80 madness g the 

Give your computer a voire of its Own • build MINOTAGR 

speech into your BASIC programs. This machine The best adventure game available for the ;olor f •,. 

language program ., a must for your library - no computer Over 200 rooms. 6 creatures 8 maqii JT T^^ M \ 

hardware modification needed S44 95 spe||s |oa(j5 of treasures Written in mafhino /[ J^ ^ 

• f- XTFNtl Mf MORY language extended Basic not required $19,95 

IWlLMAKUtK . im% fompatlbkl . With NEW MACHINE 

32K UPGRADE /^n,' Tn * „ language games ,_ IJ\,FSi W*' J 

^li^Cnm^ " • COSMIC SUPER BOWL $14.95 /^S f\ '£\V '*" * 

~% a a . ■ <7QQc Similar to hand held football games [ dfrn\\ I/JBl^^\ **»-. 

Color Invaders -packet man $21.95 lj^ , " 

Gobble your way through the maze while JL •~"|^ A\ 

,. k xr . _ avoiding the munchkins. ^JlT ™] 

Space War ^^z^^CZ> • croid $ 1 2 .95 \J^T7\\ ., l. *m 

Eliza type artificial intelligence game J\ ^ v 

. Th. Bes, Games Ava„ab,e THE FACTS _ _SO U NDSO<iRCE ^ ^ ^ \ ( 

• Hiqh Resolution Graphics At last a complete description of computer and display it on the TV screen 

the guts of the Color Computer. Shorten it. lengthen it modify it and replay it 

• Fast, Machine Language Specs on all the ICs. complete through the TVs sound system. Build and test / I 
^ tr . D ■ (^i,,, r, , scherhatk s theory of operation vour own sounds for games No hardware mods/ / .--,■.•■■---, -, - 

• Fxt. Baste Not Required ,„ Hl programminq e , am p pl( , s needed. ' / ^gy^- ^'v ^ 

I&S^SSr OTILITIES SPECTRAL 

EXTENDED BASIC GAMES __^^ • EDITOR/ ASSEMBLER $34.95 ACCrtfl ATPC 

• LOTHAR'S LABYRINTH) K^Tf * SCJPER MONITOR 19.95 AMU V, I A I CD 

Word Search Puzzle \/ * EPROM PROGRAMMER 89.95 145 HARVARD AVE. 

• BATTLFFLEET ^ (Program your own ROMs for the ROM PAC port) Tacoma, Washington 98466 

Battleship Search Game (one or * ^JJod ^Tapes mto theVoiorVomputf WRITE F0R COMPLETE CATALOG | 

two players) ADO 3% FOR SHIPPING SI. OO minimum 

• SPAfF TRA,nFR9 • DISASSEMBLER oy Korenthal .. . 14.95 Allow 2.3 wks. for del.verv 
» Or-AV^C I KAUC.KO Written in BASIC • generate source and object code 

Galactic trading game fortheFACTS (206)565-8483 -119 

$14 95'ea D EALER INQUIRIES INVITED V | SA 0R MASTFRCARD ACCEPTED 
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52K EXPANSION INTER 

SPECIAL offering * NEW LOW, LOW PRICE • 



wr, 



Due to a very special purchase, American 
Business Computers is able to offer a limited 
number of Radio Shack* Expansion Inter 
faces at the lowest price ever. 

American Business Computers guarantees 
Expansion Interfaces to be Brand New — 
with original documentation and in perfect 
working condition 



$729 




,,- 2?0 




TRS-80 MODEL II 

The Cameo Hard Disk offers TRS-80 Model II users 10 
million byfes of on-line disk storage. Five million bytes are 
stored on a standard non-removable disk platter. The second 
five million bytes are stored on a removable "disk pack". 
This configuration allows, for example, the accounts receiv- 
able to be stored on one disk pack, accounts payable on still 
another disk pack, mailing list on another, etc., etc. 

The Cameo also allows up to four computers to share the 
same disk drive. This means one person working at one com- 
puter can be updating accounts payable, while another per- 
son working at another computer can be retrieving records 
from a data base. So. ..when your business needs soar 
beyond a floppy disks limitations, call AMERICAN SMALL 
BUSINESS COMPUTERS and ask for THE CAMEO CON- 
NECTION 

CALL FOR PRICING INFORMATION 
* Dealers needed for all Cameo Hard Disk Products * 
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TRS-80 



By Radio Shack 

Yes, this is the same 
Daisy Wheel sold by 
Radio Shack for a couple 
of hundred bucks more. 
This is just one more 
reason why it really pays 
to shop American Small 
Business Computers. 

$1649" 
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GAME 

■ 

LOAD 80 



Change your computer's pieces into your pieces. 



lip-r\-x 



John Cominio 
626 Tortoise Way 
Satellite Beach, FL 32937 



This program will match you 
against the computer in a 
game similar to Othello. My ma- 
jor objective in writing this pro- 
gram was to learn how to write a 
playing algorithm and apply it in 
a game. 
To play, you start with a board 



The Key Box 

Basic Level II 

Model III 

at least 16K RAM 



divided into 64 squares, eight 
rows by eight columns. The 
playing pieces are small round 
disks with one black side and 
one white side. To start, two 
white and two black pieces are 
placed in the four center 
squares adjacent to each other. 
The object is to get more pieces 
on the board than your opponent. 
In this game the computer is 
black and you are white. Each 
player tries to flip the opponent's 
pieces. A legal move flips at least 
one of the other player's pieces. 
To flip, place your piece so your 
opponents' are between two of 
your pieces. The move in Fig. 1 
square 1 is legal since a black 
piece is between two white 
pieces. Pieces are also flipped 
diagonally. Square 3 will flip five 
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pieces: four up and down and one 
diagonally to the right. Square 2 is 
an illegal move; at least one black 
piece is not between two white 
pieces. The game ends when the 
board is full or no player has a 
legal move. If a player cannot 
move, the opponent takes an- 
other turn. 

Enter the program and run it. 
There will be a pause before the 
board is drawn. The message 
WHERE TO ('99' IF NO POSSI- 
BLE MOVE) -->? will appear. 
You have several options: enter 
your move, change the board, or 
save or load a game from cas- 
sette. To change the board type 
Change. To save a game type 
Save. You can save the game at 
any point during play. To load an 



old game type Load. To enter a 
move locate the column (10-80) 
and row (1-8). Add the two 
numbers for the square. The up- 
per right square is number 88, 
column 80 row 8. The lower left 
square is 11, column 10 row 1. 
Place pieces in the corners 
whenever possible; there they 
cannot be flipped. After any 
move the board is updated. The 
previous move is displayed at 
the bottom of the screen along 
with how many pieces were 
flipped. When the game is over 
the program displays how many 
pieces each player has flipped 
and the winner's name. 

The Program 

The program sets up various 
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Fig. 2. Move preference for each square. 
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MICROSOFT SOFTWARE 

Baalc Compiler — MOD1 159.95 

CPM orTRSDOS-MOD2 319.95 

Fortran-80- MOD 1 79.95 

CPM Version — MOD 2 399.95 

COBOL (CPM Version MOD 2) 599.95 

M /SORT (CPM Version MOD 2) 119.95 

•'ADVENTURE (MOD1, Disk Version) ... 24.95" 
Olympic Decathlon (Mod 1, Disk Version). ...23.00 

Typing Tutor (Cassette Version Only) 14.00 

mu MATH/mu MATH SIMP-80 Symbolic Math 

Package $ Call 

Editor/Assembler Plus 

(Cassette Version Only) 24.00 

DISCOUNT PRICES 

ON OTHER SOFTWARE PRODUCTS 

FORTHETRS-80 

I N E W DOS 80 (Version 2.0) 
MOD 3 or MOD 1 139.00 

IcORDOS (An enhancement to the TRS-80 MOD 2 
TRSDOS operating system which allows the use 
of a CORVUS Winchester Disk System). .300.00 



Proofreader-Proofreader will check your scrip- 
sit", electric pencil, soft-tex, or other documents 
for spelling and typographical errors. Proof- 
reader can check every single word of even the 
longest document in under 5 minutes! The 38,000 
word dictionary, one of the largest available, can 
be easily extended with a user auxiliary dictionary 
to add any number of new words (only limited by 
disk file space). Only 99.95 

Soft-Screen — Soft-Screen is a state of the art full 
screen text editor. If you have never used a full 
screen editor before, you will be amazed at the 
power it gives you. Soft-Screen can literally save 
you hours of work!! Only. ..99.95 

Grammatik — A spelling checker may not be 
enough to catch all the dumb mistakes made by 
that less than efficient secretary!! Grammatik 
checks for capitalization, punctuation, balanced 
parentheses, and doubled words ("The The"). 
Grammatik also checks for sexist terms or esoteric 
jargon, word overuse, and misused phrases. 
Grammatik also includes utilities for adding your 
own dictionary of misused words and phrases. 
Only. ..99.95 
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HREE 

COLOR COMPUTER 

GAMES 

AT DISCOUNT PRICES 

"PACKET-MAN" 

"By 

Gre(| ZumwaIt SoFtware" I 

Packet Man — Very similar to the popular arcade I 

game. In this exciting game you must dodge the I 

munchkins who are out to eat you. Very challeng- I 

ing and impossible to beat Our most played I 
computer game!! Only. ..24.95 

Color Space Invaders 21.95 I 

Meteroids 21.95 I 

GameofLife 14.95 I 

Moon Lander 14.85 1 

BUY ALL 5 COLOR COMPUTER GAMES AND 

SAVE EVEN MORE!! 

All 5 of the above games Only. ..89. 95 

HORS * I 



FARM & RANCH 
MANAGEMENT PROGRAMS 
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American Small Business Computers is one of the 
nation's largest suppliers and distributors of 
TRS-80 related software. If you have a program 
which you would like to market, please contact Ms. 
Jeanie Phillips at American Small Business Compu- 
ters. She will test and evaluate each program re- 
ceived. If the program meets our high standards, 
an offer of acceptance, along with our terms, will be 
returned with the software. All types of games, 
business and scientific programs will be con- 
sidered. Highest royalties are now being paid for 
Color Computer programs. 
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DEALER 

INQUIRIES 

INVITED 



Bl Q FIVE 
SOFTWARE 



Super Nova $12.75 

Force $12.75 

Cosmic Fighter $12.75 

Meteor Mission II $12.75 

"Defense Command $12.75 



Disk Versions of the Above Programs 
Available for Only $18.95 



GAMES SOFTWARE 

FOR 

TRS-80 MODEL I 

AND III 



OLYMPIC DECATHALON 
FORTHETRS-80* 
MODEL ONE 

$23.00 



mHi tie cnallong* o 



I 



ADVENTURE 

FOR THE TRS-80* 
MODEL ONE 








arrays; the B array contains the 
board. In the B array, one repre- 
sents a black piece, two a white 
piece, zero an empty square, and 
nine a square off the playing 
board. The D array contains all 
the squares where a piece can 
be put. The first four values in D 
are 81, 88, 11 and 18. The first 
square the computer evaluates 
is 81, a corner. 

The next one it checks is 88, 
the next corner and so on. The D 
array contains the squares ac- 
cording to where a piece should 
be placed. Fig. 2 shows the 
move preference for each 
square on the board. 

The additional arrays are for 
temporary storage during play. 
After the arrays are loaded and 
the board is drawn you are 
prompted to enter your move. 

Lines 190-300 check for legal- 
ity. Each square has eight adja- 
cent directions, any one of 



"If. . . no piece was 

flipped the move 
is declared illegal." 



which could flip pieces. A For. . . 
Next routine loops eight times 
(once for each direction). The var- 
iable A contains your move and 
the C array contains eight values 
(-11, -10, -9, -1,1,1,9,10,11). 
When your move in A is added to 
a value in C(x) it points to the di- 
rection to be checked for legal- 
ity. If you move to square 64 and 
add - 11, C(1) points to square 
53. The variable K points to the 
square being checked. Square 
53 is checked for a black piece. 
If there is none a new direction 
is checked (lines 280, 190 and 
200). If there is a black piece K 
continues to check for more 
black pieces (lines 220 and 230). 
If a white piece is not found at 
the end (line 240) it loops again 
to check another direction. If a 
white piece is found at the end, 
it backs up (line 250) and flips all 
the pieces in the row to white 
(line 270). The variable N keeps 
track of how many pieces are flip- 
ped. After flipping all the pieces the 
loop is incremented and the next 
direction is checked. This is done 



for each of the eight possible direc- 
tions. If, after all directions are 
checked, no piece was flipped the 
move is declared illegal (line 310). 
It is now the computer's turn. 
First it determines all legal 
moves. Lines 350-380 and 
470-610 do this. Line 350 puts 
the number of a square to be 
checked into the variable A. Line 
360 checks if the square is oc- 
cupied, if it is, the next square 
for evaluation is put in A. If the 
square is empty the subroutine 
starting at line 470 checks the 



move's legality. A legal move is 
put in the G array and how many 
pieces the move flips is put in 
the B2 array. Then the computer 
evaluates each move individual- 
ly. The variable N1 is the total 
number of legal moves possible 
for the computer. Line 400 forms 
a loop to load A with the values 
stored in G(x). The variable A 
now contains one of the com- 
puter's legal moves. Line 470 
puts that move in the B array. A 
subroutine restores the board to 
its original state (line 780) when 



the computer has finished eval- 
uating a particular move. Lines 
140-180 determine what dam- 
age the human can do to the 
computer if it makes the move 
it is working on. The maximum 

number of flips by the human 
is stored in the B1 array. When 
the maximum number of flips 
has been determined for each 

legal move the program goes to 
line 420. 

Lines 420-430 determine the 
computer's best move based on 



Program Listing 1 



10 CLS:DEFINTC-S,U-Z 

20 ****** OTHELLO 

33 i..«.. BY . J0HN coMINIO 

4B i««.*. 04-SEPT-1981 

50 DIHB(102),C(8) ,D(64) ,G(40) ,H(40) ,B1 ( 40) ,B2 ( 40) ,B3(40) 

60 DATA9,9,9,9,9, 9, 9, 9,9, 9,0,0,0, 0,0,0,0,0 ',9,i, 0,0,0, 0,0,0,0,0, 9, 9, 0,2,0,0 

0,0,0,0,9,9,0,0,0,2,1,0,0,0,9,9,0,0,0,1,2,0,0,0,9,9,0,0,0,0,0,0,0,0,9,9,0 

,0,0,0,0,0,0,9,9,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,-11,-10,-9,-1,1,9,10 

70 DATA81, 88, 11, 18, 83, 86, 61, 68, 31, 38, 13, 16, 63, 66, 33, 36, 84, 85, 51, 58, 41, 48, 14 

,15,64,65,53,56,43,46,34,35,74,75,52,57,42,47,24,25,7 3,76,62,67,32,37,23,26 
,82,87,71,78,21,28,12,17,72,77,22,27 

80 PORR=1TO9 9:READX:B(R)=X:NEXTR:FORR=1TO8:READX:C(R)=X:NEXTR:FORR=1TO6 0-RE 

ADX : D ( R) =X : NEXTR: X=0 : N=99 

90 GOSUB640 

100 PRINT@768,"";CHRS(30);:N=0:INPUT"WHERE TO ('99' IF NO POSSIBLE MOVE) — 

> ;AS:PRINT@768,CHRS(30) ; : IFA$="CHANGE"THEN900ELSEIFAS="SAVE"THEN980ELSEIFA 

S="LOAD"THEN1010ELSEA=VAL(AS) 

110 IFA=99THENX1=1:IFX=1ANDX1=1THEN6 80ELSEGOTO350 

120 IFA<11ORA>88THEN100 

130 IFB(A) <>0THENPRINT@832, "SQUARE OCCUPIED" :FORR=1TO750 : NEXTR: PRINT3832 CH 

R$(30) ; :GOTO100ELSER5=1:GOSUB190:R5=0:GOTO310 

140 R5=0:B1=0:FORR1=1TO60:A=D(R1) 

150 IFB(A) O0THEN170 

160 GOSUB190 

170 NEXTR1 

180 B1(Z)=B1:GOTO410 

190 N=0:FORJ=1TO8 

200 K=A+C(J) 

210 IFB(K) O1THEN280 

220 K=K+C(J) 

230 IFB(K)=1THEN220 

240 IFB(K)O2THEN280 

250 K=K-C(J) 

260 IFK=ATHEN280 

270 N=N+1:IFR5=1THENB(K)=2:GOTO250ELSE250 
280 NEXTJ 

290 IFN>0THENIFN<B1THEN300ELSEB1=N 

3 00 RETURN 

310 IFN>0THEN330 

320 PRINT@832, "ILLEGAL MOVE" :FORR=1TO750 :NEXTR: PRINT0832 ,CHRS (30) ; :GOTO100 

330 IFN>1THENAS="S"ELSEA$="" 

340 B(A)=2:PRINT"LEGAL MOVE. FLIPS" ; N; "PIECE" ; AS; ".": FORR=1TO1000 : NEXTR :GO 

SUB640 

350 N1=0:G(1)=0:R4=0:FORR=1TO60:A=D(R) 

360 IFB(A)O0THEN380 

370 GOSUB470 

3 80 NEXTR 

390 IFG(1)=0THEN450 

400 FORZ=lTONl:R4=2:A=G(Z) : B ( A) =1 : S1=A:GOSUB470 : GOTO140 

410 GOSUB780:V=0:NEXTZ 

420 FORZ=lTONl : IFB1 ( Z) =0THENB1 ( Z) =. 1 

430 B3(Z)=B2(Z)/B1(Z) :NEXTZ 

440 GOSUB7 90:R4=1:GOSUB470:GOTO620 

450 PRINT@896,CHRS(30);:PRINT"NO MOVE FOR ME" : FORR=1TO750 : NEXTR:X=1 : IFX=1AN 

DX1=1THEN6 80ELSEGOTO100 

46 END 

470 N=0:FORJ=1TO8:K=A+C(J) 

480 PRINT@768,CHR$(30) ; : PRINT'THINKING. . ."; 

490 IFB(K) O2THEN580 

500 K=K+C(J) 

510 IFB(K)=2THEN500 

520 IFB(K)O1THEN580 

530 K=K-C(J) 

540 IFK=ATHEN580 

550 N=N-H:IFR4 = 1THENB(K)=1 

560 IFR4=2THENB(K)-1:V=V+1:H(V)=K 

57 GOTO53 

580 NEXTJ 

590 IFR4=2THEN610 

6 00 IFN>0THENN1=N1+1:G(N1)=A:B2(N1)=N 

610 RETURN 

620 IFN=1THENA$=""ELSEAS="S" 

630 V=0:B(A)=l:PRINTe768,"";:PRINTCHR$(30);:PRINT"MY MOVE — > " • A; "FLIPS" ,- N- 
PIECE ;AS;".":PRINT:FORR=1TO1000:NEXTR:FORR=1TON1:H(R)=0;G(R)=0-B2(R)=0-B3 
(R)=0:B1(R)=0: NEXTR: N1=0 :GOSUB640 :GOTO100 

640 CLS:PRINT@0,"";:PRINTTAB(25)"O T H E L L 0" : PRINTTAB ( 24) ; STRINGS ( 15 ,131 
) :PRINT@1 28, " " ; : Z=0 : FORR=lT08 :F0RR1=81T088STEP1 : PRINT" "• • IFB ( Rl+Z) =1 TH 
ENAS="B"ELSEIFB(R1+Z)=2THENAS="W"ELSEAS="." 

650 PRINT" ";AS;:NEXTR1:Z=Z-10:NEXTR:FORR=6TO30:SET(9,R) :SET(10,R) -NEXTR-F 
ORR=9TO127:SET(R,30):NEXTR:PRINT§710,"";:FORR=lTO7iPRINTR;" V-NEXTR-PR 

INT@767,"8";:R=80:FORR1=128TO576STEP64:PRINT@R1,R; : R=R-10:NEXTR1:1FN=1THENA 
-" "ELSEA$="S " 



$= 



660 IFN=0THENPRINTg896,"NO MOVE FOR ME " :GOTO670ELSEIFN=99THEN670ELSEPRINT@8 



Program continues 
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1 18 SO. MILL ST 
PRYOR, OK 74*61 
(918) 825-4844 




ALL LISTED PRICES ARE CASH DISCOUNTED WE ACCEPT MC. VISA. AND COD (REQUIRES CERTIFIED CHECK, CASHIER'S CHECK OR 
CASH) FOR CHARGE ORDERS, PLEASE ADD 3% FOR COD SERVICE, PLEASE ADD 3%. OKLAHOMA RESIDENTS PLEASE ADD4% SALES TAX. 
*********NEWRETAIL LOCATION - SOUTH WOOD SHOPPING PLAZA, PRYOR, OK******** 




EPSON PRINT 



('■' It is the policy of American Small Business 
--.:-■ Computers to offer merchandise at the 
lowest price possible About a year ago, 
American Small Business Computers be- 
gan selling Epson Printers for the TRS-80. 
Apple, and other computers. The first 
month we sold them for Stwic-Q?. Someone 
else sold them for five dollars less. The 
next month we sold our Epsons for $l^:>><7? 
and someone else sold theirs for three 
dollars less. So this month our Sales Man- 
ager looked at the stack of unsold Epson 
Printers and said, "Oh...Shazzam, let's 
slop acting like a bunch ot dumb Okies. 
Lower the price and move 'em out!" So... 
this month it's Head 'Em Up, Move Em 
Out. Yee Haa Rawhide. Oops! Got 
carried away.. Call for Prices. 



CALL 
FOR PRICING 




These Epson Printers are brand new and 
in perfect working order. They are fully 
compatible with all TRS-80 Computers 
(when used with the correct cables and 
interfaces, of course). American Small 
Business Computers also offers similar 
savings on the MX-80 FT, MX-70, and 
MX-100. Attention Foreign Customers: 
WE EXPORT! Please call or write for 
export prices. 




.-- See List ot Advert sers on page 402 
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Program continued 



96, "LAST MOVE WAS"; A; "AND FLIPPED" ;N; "PIECE" ; AS; ". " 

670 RETURN 

680 Nl=0:N=0!PRINTg768,CHRS(31) ;:PRINT"GAHE OVER" 

690 F0RR=11T088:IFB(R) =1THENN=N+1 

700 NEXTR 

710 PRINT"I HAVE", -N; "PIECES" 

720 F0RR=11T088:IFB(R)=2THENN1=N1+1 

730 NEXTR 

740 PRINT'YOU HAVE" ;N1; "PIECES" 

750 IFN>N1THENPRINT"I WIN"ELSEIFN=N1THENPRINT"TIE GAME"ELSEIFN<N1THENPRINT* 

YOU WIN" 

760 INPUT"ANOTHER GAME ( Y/N) " ; AS: IFLEFTS (AS,D ="Y"THENCLS:RESTORE:GOTO80ELS 

EIFLEFTS(AS,D="N"THEN770ELSE760 

770 CLS:END 

780 FORR=lTOV:B(H(R) ) =2 : NEXTR: B( SI) -0: RETURN 

790 N=N1:D=1 

800 D=D*2:IFD<NTHEN800 

810 D=INT( (D-lJ/2) 

820 IFD=0THENA=G(1) : RETURN 

830 IT-N-D 

840 FORI=lTOIT 

850 J=I 

860 L=J+D 

870 IFB3(L)>B3(J)THENT=B3(J) :T1=G(J) :B3(J)=B3(L) :G(J)-G(L) :B3 (L) -T:G(L) -Tl : 

J=J-D:IFJ>0THEN860 

880 NEXTI 

890 GOTO810 

900 PRINTg832,CHRS(31) ; :INPUT"ENTER SQUARE NUMBER";S 

910 IFS<110RS>89THENPRINT@832, "ILLEGAL BOARD CO-ORDINATE"ELSEIFB(S) -9THENS" 

0:GOTO910ELSE930 

920 FORR=1TO1000:NEXTR:GOTO900 

930 PRINT@832,CHRS(31) ; : INPUT"COLOR (B/W) " ;CS:CS»LEFT$(CS,1) 

940 IFCS="B"THENB(S) =1ELSEIFC$-"W"THENB(S) -2ELSE930 

950 GOSUB640 

960 PRINT§832,CHR$(31) ;iINPUT"MORE CHANGES (Y/N) ";C$:C$=LEFT$(C$,D iIFCS-'Y 

"THEN900ELSEIFCS="N"THEN970ELSE960 

970 PRINT@832,CHRS(30) ; I INPUT"WHOSE MOVE (B/W) ";C$:C$»LEFT$(C$,1) : IPCS»"B"T 

HENPRINTe76 8,CHR$(31) :GOTO350ELSEIFCS»"W"THENPRINTe768,CHR$(3B) :GOTO10BELSE 

970 

980 PRINTe768,CHR$(30) ;:INPUT"TAPE READY (Y/N) " j A$: A$»LEFT$(A$,1) : IFAS-'N'T 

HEN100ELSEIFA$="Y"THEN990ELSE980 

990 FORZ=lT099STEP17lPRINT#-l,B(Z) ;",";B(Z+1) ;",">B(Z+2) >",">B(Z+3) ;","|B(2 

+4) ;",";B(Z+5) ;",";B(Z+6) ;",";B(Z+7) ;",";B(Z+8) ;" p ";B(Z+9) >",";B(Z+10) j","; 

B(Z+11) ;",";B(Z+12) ;",";B(Z+13) ;",";B(Z+14) ; ", " ;B(Z+15) ; " , " ;B(Z+16) 

1000 NEXTZ:N=99:GOSUB640:GOTO100 

1010 PRINT@768,CHRS(30) ;:INPUT"TAPE READY TO LOAD (Y/N) *; A$:AS-LEFT$(A$,1) j 

IFA$="N"THEN100ELSEIFAS="Y"THEN1020ELSE1010 

1020 F0RZ=1T099STEP17:INPUTI-1,B(Z) ,B(Z+1) ,B(Z+2) ,B(Z+3) ,B(Z+4) ,B(Z+5) ,B(Z+ 

6) ,B(Z+7) ,B(Z+8) ,B(Z+9) ,B(Z+10) ,B(Z+11) ,B(Z+12) ,B(Z+13) ,B(Z+14) ,B(Z+15) ,B(Z 

+16) 

1030 NEXTZ!N-99:GOSUB640:GOTO100 



its acquired information. For 
every move the computer can 
make it knows two things: How 
many pieces the computer will 
flip on each move and the max- 
imum number the human can 
counter with. It forms a ratio for 
each of its possible moves and 
stores these answers in the B3 
array. Line 440 is a sorting 
routine arranging the values in 
B3 from largest to smallest. 
Each time something in the B3 
array is swapped the corre- 
sponding move in the G array is 
also swapped. One number can 
point to the best ratio in the B3 
array and to the corresponding 
move in the G array. The com- 
puter then makes its move. If the 
ratio is .66667 the computer flips 

two pieces and the human three 
(a 2/3 ratio). However, if the ratio 
is 1 .66667 the computer flips five 
pieces and the human three (a 
5/3 ratio). A higher ratio means a 
better move for the computer. A 
ratio of one means the computer 
and human flip the same num- 
ber of pieces. ■ 




. . . FROM ONE OPERATING SYSTEM 

TO ANOTHER! 

A VITAL WAY TO PROTECT YOUR 

SOFTWARE INVESTMENT FOR THE 

FUTURE!! 

The KM/i;iMMM. language runs on more different 
Operating Systems and more different-sized com- 
puters than any other similar language. For 
starters, it runs on NCR and II minicomputers 
ami. in the micro field, on the C.VIW. fvWrVK 
CP'M-86 1 . MP/M-8ti' 1 , TKSDOS J . OASIS 4 . 
MOAS1S-. and UNIX*. (ONYX version) Operating 
Systems . .to mention only a few. 

I 'ntil now. serious business software of the scope 
and flexibility seen in the minicomputer world has 
not been available on micros. KM/CMK4H. now 
allows transfer of such software with a minimum 
of fuss. 

We have participated in such a mini-to-micro 
transfer ol a major set of general business software 



. .using K.tt CftKHI. as the trai 
course. Running on literally thousands of mini- 
computers, these refined, enhanced, and proven 

It.tt COKftl. and <RT! ™ H from CYBERNETICS 
ARE GOING STEADY... 




L-l IL_ 

pQPPa;.... 

software packages cover A/R. A/l\ G/l„ l'/R. Order 
rJntr\ (with Invoicing and Inventory Control) as 
well as Sales Analysis. The Packages define a new 
level of achievement for features and flexibility in 
micro applications software and offer top quality at 
a reasonable price. 

For immediate information, call 714/848-1922 
lor your complete product description. 

Trademarks of: 

1-Ryan-McFarland Corp.;2-Digital Research, Inc.; 3-Tandy 
Corp.; 4-Phase One Systems, Inc.; 5- Bell Telephone 
Laboratories. Inc ; 6-Cybernetics, Inc. 



...AND YOU'RE GONNA LOVE EM TOO!! 

I so your computer to program ilsHI. (RTf ICohol 
Reprogramming Tool!) from Cybernetics is a program 
generator for KM CMMM. that produces error-free 
(M IWHN. source programs for data input, file main- 
lenani e. and repoi ! printing programs 
A full feature interactive program generator, not a sub- 

setlCall Now! 7 14<H4H-1!I22. 




IS- 
8041 NEWMAN AVE., SUITE 208 
HUNTINGTON BEACH, CA 92647 
714/848-1922 
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Letterheads 

Is Your Image worth the Investment 

We will Print any Letterhead in any Color for Only 
$186.50 for 1000, $210.50 for 2500. 

For under $100.00 we will attach your existing 
Letterhead to a Carrier Sheet. In quantities of 500. 

Stock Computer Paper & Labels over 50 stock 
items at the lowest price anywhere. 



> 



Send Inquiries or Call: (313) 758-6629 

WHITE RIVER PRODUCTS 

P.O. BOX 604 

MT. CLEMENS. MICHIGAN 48043 



^364 



Name. 
Street. 



Phone. 



City & State. 



Zip. 



Type of Equipment. 



FREE 

SEND FOR 
YOURS TODAY 



I 



Stock Price List 



3T 



2T 



=rr 



3^ 



ELECTRIC SPREADSHEET 



NEW Considering VisiCalc™? 

ELECTRIC SPREADSHEET does everything you can do 
with a pencil, paper and calculator. Start with a blank 
screen. Move the fast cursor to desired location. Enter line 
or column labels or data. Select preprogrammed operators 
for line, column, or cell calculations. Run. Results appear 
on the screen, formatted for your printer. Revise. Run 
again 

PREPROGRAMMED OPERATORS for mathematics, 
finance, and statistics. Save data on tape or disk. The 
screen is your window to a larger spreadsheet. Output 
features scrolling and split-screen. Variable formats for 
labels and data. 

UNLIMITED APPLICATIONS. P/L forecast. Personal 

budget. Real estate investment. Net worth forecast. 
Invoice Cash flow estimate. Sales analysis. Check record. 
Business forms. 

16K version has 50 operators. 32/48K version has 70 
operators plus histogram plot, remote storage of data, 
global revise spreadsheet layout, alpha entries, and more. 

16K Model I or III Tape $34.95 

32/48K Model I or III Tape $64.95 

48K Model III Disk $67.95 

YOU CANT LOSE! Calif, orders add 6'/?% tax. 

VisiCalc is a trade mark of Personal Software. Inc .hmi 




YOU'RE OUR PATIENT... 



MEDICAL & 
DENTAL SYSTEMS 



• Appointments 

• Master Records 

• Private Billing 

• ADA or AMA 
Claim Preparation 

• Diagnostic and 
Treatment Records 

• Recall and more 



Apple E • TRS-80 • Apple /// 



CHARLES MANN & ASSOCIATES 
55722 Santa Fe Trail 

Yucca Valley. CA 92284 

MICRO COMPUTER DIVISION ( 714 l 365 9718 





• 502 






FRICTION FEED FOR YOUR EPSON 



MX- 70 




or 



.J: F.&. Ji. 



•MX-70 and MX-80 are Trade Marks of EPSON, Inc. 
********************************************** 

•* Converts your printer for friction 
feed of SINGLE SHEETS or ROLL 
PAPER. 

+ SIMPLE Installation (all you 

need is a screwdriver, no soldering 

+ Tractor feed remains undisturbed. 



+ Proven rel iabi I ity. 




+ Available NOW! 



+ Only $39. 95 (add $1.50 for postage! 
********************************************** 

SATISFACTION GUARANTEED' OR YOUR MONEY BACK 



MICRO-GRIP, Ltd. 

P.O. Box 4278 
Norton AFB, Ca 92409 



71 SA& Master Card Accepted 



f 



■See List ol Adveriise/s on page 402 
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GRAPHICS 



Draw silhouettes or other irregular shapes. 



Shady Charac 



AiS^ 



»ii?i 









MS; 





5MAD0W BOX 



77? e silhouette copy of the photograph was generated by a Lineprint- 
er III. The original is 12 by 20 inches. 



Richard Ramella 

1493 Mountain View Avenue 

Chico, CA 95926 



A visit to the county fair pro- 
vided the springboard for 
this program, which has delight- 
ed my children and given me a 
practical way to replicate and 
store odd two-dimensional 
shapes— silhouettes. 

In turn-of-the-century Amer- 
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ica it was not unusual to find a 
silhouette cutter on a city street 
corner. For a few pennies the 
artist would scissor away at 
black paper and create a silhou- 
ette. Such artists are rare 
these days. 

But my eight-year-old daugh- 
ter did spot the silhouette's 
counterpart at the fair: a T-shirt 
with a computer portrait of its 
owner on its front. I promised my 
daughter we would try a comput- 
1982 



er portrait on the TRS-80. 

I failed in the attempt. For a 
portrait I needed video scan to 
read and enter data. So I decid- 
ed instead to do a silhouette, 
which only called for 300 Data 
numbers for a 15 by 20 inch pic- 
ture. A shaded portrait would 
have required nearly 20,000 
separate entries. 

The resulting program not on- 
ly produced silhouettes but 
gave me a way to replicate other 
odd flat shapes. I have since 
used the program in three prac- 
tical ways: To help a friend es- 
tablish a plan for her hourglass- 
shaped property; to fit a single 
piece of vinyl flooring across a 
large kitchen and into several 
nooks and crannies; and to re- 
duce the templates for a wood 
project I wanted to do in a size 
smaller than given in the plans. 

But making silhouettes with 
the program has most charmed 
me; to explain that process is to 
open the door to other, more 
practical uses. 

Do not let the brevity of the 
main program lull you into think- 
ing a silhouette project will be a 
snap. Not shown are the data 
lines which contain up to 300 
numbers. Each number is a val- 
ue which must be plotted. 

A lineprinter accommodating 
15-inch paper is best. The pro- 
cess requires care and patience 
for optimum results. 



To start, load wide paper into 
the lineprinter and run the fol- 
lowing program: 



100 CLS 

110 FOR X =1 to 150 

120 LPRINTSTRING$(125,\ "), 

130 NEXTX 



Make these lines print as 

tightly as possible. I have a 
Lineprinter III, which normally 
produces six lines to the inch 
but will squeeze in eight on com- 
mand. 

This little program prints 
18,750 dots: 150 lines of 125 dots 
each. Because I am miserly 
about the ultimate capacity of 
my printhead, I have only run 
this program once. I copy seg- 
ments of the master on a dupli- 
cating machine and paste it all 
together. 

Now you have a big piece of 
paper with dots on it. Next, seat 
your subject very close to a wall. 
Turn on a light source (a lamp, a 
slide or movie projector) that will 
yield a sharp shadow. Position 
the dotted paper so the shadow 



The Key Box 

Basic Level II 
Model I 
16K RAM 
Lineprinter required 



falls where you want it. Quickly, 
carefully trace the outline of the 
shadow. I cheat here. I photo- 
graph the subject in silhouette, 
mount the film as a slide and 
project it onto the paper for trac- 
ing. It ensures stillness by 
the subject. 

Then go back to the TRS-80. 
First, run this simple program: 



100 CLS 
120ForX = 1 to 150 

130LPRINTX;" " 



This gives you a handy listing 
for entering the Data numbers. 

My Lineprinter III prints 10 
characters to an inch. Using a 
ruler, I start at line one at the 
top, and on the listing paper I en- 
ter two numbers for each line. 
The first is the number of the 
first dot which falls within the 
silhouette I have drawn. The 
second number is the last dot 
on the same line falling within 
the sketch. 

The beginning of the list 



might look like this: 

1 12 101 

2 12 ^02 

3 10 1 02 

When the list is finished, put 
those same numbers into data 
lines in this order: 

DATA 12,101,12,102,10,102 

In the main program, (See Pro- 
gram Listing) the data lines go 
anywhere between lines 
120-1000. 

When you have added all the 
data to the program, run it. You 
will get a fairly detailed replica of 
the shape stored by the program. 

I can make the silhouette 
darker and better defined by 
making two runs, the second 
starting midway between the 
first and second lines of the ini- 
tial printing. Just mark the 
paper before the first run, print, 
back up the paper, reposition 
and run again. ■ 

Richard Ramella is a former 
newspaperman. 



ATTENTION UNIVERSITIES AND 
MEDICAL RESEARCH FACILITIES 

DO YOU NEED DETAILED 
STATISTICAL ANALYSIS? 

StatPac is a new 3-part program written and designed for 
research, survey and questionnaire processing, data entry, 
statistical analysis, management and market analysis. 
StatPac can be easily tailored to fit your needs because 
you create the data file format. All phases of research 
analysis can be processed, including: 

•frequency analysis •descriptive statistics 

•crosstabs & chi-square •t-test 

•correlation and linear regression ^analysis of variance 

'multiple linear regression 'management reports 

StatPac eliminates the need for expensive programming 
or renting time on large mainframe computers because it 

is the SPSS for the TRS-80's. 

Total Package, including an extensive step-by-step user's 
manual is $285.00. Manual may be purchased separately 
for $30.00 (may be applied to the purchase price of the 
disks). MasterCard and Visa accepted. 

Write or call for a FREE 16 page brochure (612) 866-9022. 

s.ativs Walonick Associates, Inc. 
5624 Girard Ave. So. 
Minneapolis, MN 55419 

"Absolutely the best statistical analysis package I've seen 
for a microcomputer. ..." Eugene Allred, President of 

Consolidated Data Services, Minneapolis. MN. 



COMPUT 



TS- FROM $69.95 




LNW SEMI-KITS can save you hundreds of dollars. By obtaining your own parts at the lowest 
possible cost and assembling the LNW SEMI-KITS, you can have the most highly acclaimed 
microcomputer in the industry- the LNW80. The LNW SEMI-KITS are affordable modules. You 
can start with a modest cassette system and expand to a full 4Mhz TRS-80 compatible system with 
5 or 8 inch double density disks and color at any time. 

A. LN W80 CPU - Made of high quality FR4 glass epoxy double sided circuit material, with plated- 
through holes and gold edge connector. It is fully solder-masked and silk screened. Here are just 
some of the outstanding features you will have when your .LNW80 CPU board is fully assembled: 
• 16K RAM • Color and black and white video • 480 x 192 high resolution graphics • 64 and 80 
column video • 4 MhzZ80ACPU • Upper and lowercase display • 500 and 1000 baud cassette 
I/O -$89.95 

B. SYSTEM EXPANSION-Expandthe LNW80 computer board, TRS-80 and PMC-80 computer 
with the following features: • 32 K memory • Serial RS232C and 20Ma port • Real time ctock • 
Parallel printer port • 5 inch single density disk controller • Expansion bus (screen printer port) • 
Onboard power supply • Solder-masked and silk screened legend- $69.95 (tin plated contacts) - 
$84.95 (gold plated contacts) 

C KEYBOARD- 74 key expanded professional keyboard- includes 12 key numeric keypad. Fully 

assembled and tested. - $99.95 

D. COMPUTER CASE -This stylish instrument-quality solid steel case and hardware kit gives your 
LNW80 that professional tactory-built appearance. - $84.95 Ada $1 2.00 for shipping. 

E. SYSTEM EXPANSION CASE- Thisstylish instrument-quality solid steel case and hardware kit 
gives your SYSTEM EXPANSION interface that professional factory-built appearance. -$59.95 

Add $10.00 for shipping. 

F. LNW80 CPU - HARD TO FIND PARTS KIT - $82.00 

G. LN W80 VI DEO - HARD TO FIND PARTS KIT - $31 .00 

H. SYSTEM EXPANSION - HARD TO FIND PARTS KIT- $27.50 
I. LEVEL II ROM set. (6 chip set) - $1 20.00 

VISA and MasterCard accepted. Add $3.00 for shipping plus $1.00 for each additional item. All 
shipments via UPS surface. Add$2.00 for U.S. Mail. Shipments outside continental U.S.. fundsmust 
be U.S. dollars. Sufficient shipping costs must be included with payment. 

ORDERS & INFORMATION - (714) 544-5744 
SERVICE - (714) 641-8850 



LNW Research Corp. 

2620 WALNUT Tustin, CA. 92680 
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TUTORIAL 



Sit at this table and have a byte. 



Z80 Bit Tables 







000 




001 


010 


on 


100 


10! 


110 


111 


h 




i 1 ■ 00 
























000 


HOP 




EI AF.AT 


DJHZ i 


JR s 


JR NZ,i 


JR Z,t 


JR NC.e 


JR 


C,c 




001 


ID 8 


,nn 


ADD HL,BC 


LD DE,nn 


ADD HL.DE 


LD HL.nn 


ADD HL.HL 


LD SP.nn 


ADD 


HL,S? 




010 


IB (BO, A 


LD A, (BC) 


LD (DE).A 


LD A, (DEI 


LD (miI.HL 


LD HL, inni 


LD (nnl, A 


LD 


A,(nn) 




i 01! 


INC 


C 


DEC BC 


INC DE 


DEC DE 


IMC HL 


DEC KL 


INC 8P 


DEC 


SP 




3 100 


IMC 




IMC C 


INC D 


INC E 


INC H 


INC L 


INC (HL) 


INC 


A 




101 


KC 




DEC C 


DEC D 


DEC E 


DEC H 


DEC L 


DEC (HL! 


DEC 


A 




HO 


LD B 


n 


LD C,n 


LD D,n 


LD E,n 


LD H,n 


LD L,n 


LD (HL),n 


LD 


A, ft 




111 


RiCA 




RRCA 


RLA 


RRA 


DAA 


CPL 


SCF 


CCF 






fl • 01 
























000 


LD B 


B 


LD C,B 


LD D,B 


LD E,B 


lD h,b 


LO L,B 


LD (HL),B 


LD 


A,B 




001 


LD B 


C 


LD C,C 


LD D,C 


LD E,C 


LD H,C 


LD L,C 


LD (HLI.C 


LD 


A,C 




010 


LD B 


D 


LD CD 


LD D,D 


LD E,D 


LD H,0 


LD L,D 


LD (HLI.D 


LD 


A,D 




i on 


LD B 


£ 


LB C,E 


LD D,E 


LD E,E 


LD H,E 


LD L,E 


LD (HL),E 


lD 


A,E 




3 100 


LD B 


H 


lD C,H 


LD D,H 


LD E,H 


LD H,H 


LD L,H 


LD (HL),H 


LD 


A,H 




101 


LD B 


L 


LD C,L 


LD D,L 


LD E,L 


LD H,L 


LD L,L 


LD (NLI.L 


LD 


A.L 




110 


LD B 


(HI) 


LD C.IHL) 


LD D, (ML) 


LO E,(HL1 


LD H, (Hi) 


LD L, (HL) 


HALT 


LD 


A, (Hi) 


n 


111 


LD B 


A 


L5 C,A 


LD D,A 


LD E,A 


LD H,A 


LD L,A 


LD (HL),A 


LO 


A,A 


P v 


fl • 10 






















* V- 
























V" 


000 


ADD 


■ B 


ADC A,B 


SUB 8 


SBC A,B 


AND B 


(OR B 


OR B 


CP 


I 


001 


ADD 


r,c 


ADC A,C 


sue c 


SBC A,C 


AND C 


(OR C 


3ft C 


CP 


C 




010 


ADD 


,0 


ADC A,D 


SUB D 


SBC A,D 


AND D 


(OS 


OR 3 


CP 


D 




' on 


ADD 


A,E 


ADC A,E 


SUB E 


SBC A,E 


AND E 


XOR E 


OR E 


CP 


E 




3 ioo 


ADD 


,H 


ADC A,H 


SUB H 


SBC A,H 


AND H 


IOR H 


OR H 


CP 


H 




101 


ADD 


A,i 


ADC A,L 


SUB L 


SBC A,L 


and l 


(OR .. 


OR L 


CP 


L 




no 


ADD 


»,<HL) 


ADC A, (HLI 


SUB (HL) 


SBC A,iHL» 


AND (HLI 


(OR (HL) 


OR (HLI 


CP 


(HL) 




in 


ADD 


M 


ADC A r A 


SUB A 


SBC A, A 


AND A 


(OR A 


OR A 


CP 


A 




fl ■ n 
























two 


R£T 


Z 


RET Z 


RET NC 


ret c 


RET PO 


RET PE 


RET P 


RFT 


N 




001 


POP 


K 


m 


POP K 


EII 


POP !-• 


JP (HL) 


POP AF 


LD 


SP.HL 




010 


JP N 


,nn 


JP I,nn 


JP NC.nn 


JP C.nn 


JP P0,M 


JP PE.ftn 


JP R.ftft 


JP 


H,MI 




* on 


JP ft 




CB - Tsbie 2 


OUT (n),A 


IK A,(nl 


EI (8P),HL 


EX DE.HL 


0! 


EI 






l 100 


CALL 


N2,nn 


CALL Z,nn 


CALL KC,™ 


CALL C.nn 


CALL PO.nn 


CALL P£,nn 


CALL P,nn 


CALL H,nn 




101 


PUSH 


BC 


CALL ftft 


PUSH DE 


DD - Tiblt 3 


PUSH HL 


ED - Tibli 4 


PUSH AF 


FD 


- Tibli 5 




no 


ADD 


,n 


ADC A, ft 


SUB n 


SBC A,n 


AND n 


XOR ri 


OR ft 


CP 


n 




in 


rst 


OH 


RST 0BH 


■?.i' iCH 


RST IBM 


R8T 20H 


RST 2BH 


RST 30H 


RST 


3BH 












labia 1 


First -byte Table. 
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&BS& 



n 



w 



A&W 



M<ai 



1111 




THE VIEW: You can see the curve of the Earth, four orbiting satellites with spinning radar antennae, 
much of North America, and six major population centers spread out beneath you. 

THE OTHER VIEW: Still in orbit, still four laser satellites, but overlooking the enemy's territory, with his 
protected missile launchers just a laser beam away. 

THE GOAL: Destroy all of the enemy missile launchers, while simultaneously protecting your cities 
from ICBMs that arc over the North Pole. And beware the MX-based particle beam weapons! 

VICTORY! As mind-numbing waves of nuclear holocaust plummet toward the United States, your 
fingers itch to activate the ultimate defense . . . ERADICATION! 



The first original arcade game in some time. 
One of the best arcade games of all time. 




ft:,r >-■ ■',» ' 




mi 



3*K^E 



SwIi^^rSwgJ^^fs 



■ 



wfimmmv 



fssas 



PMH 




/ 



m 



MED SYSTEMS S 

P.O. BOX 3558 CHAPEL HILL, NC 
TO ORDER, CALL 1-800-334-5470 



JEmffl> 



mm 



11 

ill 
M 



W^MmKHI^Km^i 



Herb Robinson 
3814 Skyline Rd. 
Carlsbad, $A 92008 



When I first encountered 
the Z80 instruction set, it 

seemed to be a real hodge- 
podge of information. I realized 
from my Editor/Assembler man- 
ual that a system lies behind the 
assignment of binary operation 
codes to instruction. The materi- 
al, however, was just too spread 
out for me to decipher. 

The instruction listings aren't 
much help. In one list, the in- 
structions appear in the numeri- 
cal order of their op codes, and 
in the other in the alphabetical 
order of their assembler mne- 
monics. Again, some structure 
is apparent, but not much. 

Through the Mostek Z80 refer- 
ence manual, another presenta- 
tion of the instruction set, more 
of the patterns began to emerge. 
Finally, "Secret Codes Re- 
vealed" by Edwin E. Freed (Kilo- 
baud Microcomputing, April 
1981), showed me how to dis- 
play the Z80 instructions to re- 
veal the most about selection of 
their op codes. 

Here's How. . . 

With only 62 exceptions, a 
Z80 instruction consists of a 
1-byte or 2-byte op code, possi- 
bly followed by a 1-byte or 2-byte 





occ 




001 




o;c 




011 


!00 


101 


no 




111 




(I • 00 




























000 


RLC 


B 


RRC 


B 


RL 


B 


RR B 


SLA B 


SRA B 


RL0 


B 


SSL 


B 


001 


RLC 


C 


RSC 


C 


RL 


C 


RR C 


SLA C 


SRA C 


RL0 


1 


SRL 


C 


010 


RLC 


D 


RRC 


D 


RL 





RR D 


SLA D 


SRA D 


RIO 


5 


SRL 





I 011 


RLC 


E 


RRC 


E 


RL 


E 


RR E 


SLA E 


SRA E 


RL0 


E 


SRL 


E 


3 100 


RLC 


H 


RRC 


H 


Rt 


1 


RR H 


as h 


SRA H 


RL0 


H 


SRL 


H 


101 


RLC 


L 


RRC 


L 


RL 


L 


RR L 


SLA L 


SRA L 


rV; 


L 


SRL 


L 


110 


RLC 


(HL) 


RRC 


(HL) 


RL 


(HL) 


rr (mi 


SLA <KL - < 


SRA (HL) 


RL0 


(HL) 


SRL 


(HL) 


111 


RLC 


A 


RRC 


A 


RL 


A 


RR A 


SLA A 


SRA A 


Hit 


_A_ 


SR', 


A 


n • oi 




























0M 


s;t 


0,B 


BIT 


1,B 


BIT 


2,B 


BIT 3,B 


BIT 4,B 


BIT 5,B 


BIT 


&,B 


e: r 


7,B 


001 


BIT 





C 


sr 


1,C 


BIT 


2,C 


BIT 3,C 


BIT 4,C 


BIT 5,C 


BI T 


6,C 


BIT 


7,C 


010 


BIT 


c 





BIT 


1,D 


BIT 


2,D 


BIT 3,D 


BIT 4,D 


81! 5,0 


BIT 


6,0 


BIT 


7,0 


f 011 


BIT 





E 


BIT 


!,E 


8IT 


Z,£ 


BIT 3,E 


BIT 4,E 


BIT S,E 


E!T 


6,E 


BIT 


M 


3 100 


BIT 





N 


BIT 


I.H 


BIT 


2,H 


BIT 3,H 


BIT 4,H 


BIT 5,H 


BIT 


6,H 


BIT 


7,H 


101 


BIT 





L 


BIT 


ifL 


BIT 


2,L 


BIT 3,L 


BIT 4,L 


BIT 5,. 


BIT 


6.1 


BIT 


u 


no 


BIT 





(HL) 


BIT 


1,(HL) 


BIT 


2, (HI) 


BIT 3, (HL) 


BIT 4, (HL) 


BIT 5, (HL) 


BIT 


6, (HL) 


BIT 


7,(HL) 


111 


8!T 





A 


BIT 


1,A 


BIT 


2,A 


BIT 3, A 


BIT 4,A 


BIT 5,A 


B1 T 


6, A 


SI- 


7, A 


fj ■ 10 




























000 


RES 


0,B 


RES 


I,B 


m 


2 = B 


RES 3,B 


RES 4,B 


RES S,B 


RES 


6,6 


RES 


7,B 


001 


RES 


0,C 


RES 


1,C 


RES 


2,1 


RES 3,C 


RES 4,C 


RES 5,C 


RES 


6,C 


RES 


7,C 


010 


RES 


0, D 


RES 


1,D 


RES 


2,D 


RES 3iC 


RES 4,0 


RES S,D 


RES 


6,0 


RES 


7,0 


( 011 


RES 


0,E 


RES 


1,E 


RES 


2,1 


RES 3,E 


RES 4,E 


RES S,E 


RES 


6,E 


RES 


7>E 


3 100 


RES 


0,H 


RES 


l.H 


RES 


2,H 


m 3,H 


RES 4,H 


«E3 5,H 


RES 


6.H 


RES 


7,H 


101 


RES 


0,L 


RES 


lit 


RES 


2.1 


RES 3,L 


RES 4,L 


RE3 5,L 


m 


6,L 


RES 


M 


110 


RES 


0, (HL) 


RES 


1,(HL) 


RES 


2, (HL) 


RES 3. (HL) 


RES 4, (HL! 


»E3 3, (HL) 


m 


6, (HL) 


RES 


7, (HL) 


111 


RES 


0,A 


RES 


I, A 


RES 


2,A 


RES 3, A 


RES 4,A 


RES 5, A 


RES 


6,A 


RES 


7, A 


(\ ■ 11 




























000 


SET 


0,B 


SET 


1,B 


SET 


2,1 


SET 3,B 


SET 4,8 


SET 5,B 


SET 


M 


SET 


7,B 


001 


SET 


0,C 


SET 


l.C 


SET 


2,C 


SET 3,C 


SET 4,C 


SE r 3,C 


SET 


6,C 


SET 


7,C 


010 


SET 


0,0 


SET 


l.D 


SET 


2,D 


SET 3,D 


SET 4,0 


SET 5,0 


sr 


6,0 


SE- 


7,0 


< 111 


3E 7 


0,E 


SET 


t.E 


SET 


2,E 


SET 3.E 


SET 4,E 


SET 5,E 


set 


6.E 


S£T 


M 


3 100 


SET 


C,H 


3ET 


1,H 


SET 


2,H 


SET 3,H 


SET 4,H 


SET 5,H 


SET 


6,H 


SET 


7,H 


101 


SET 


0,L 


SET 


1,L 


SET 


2,L 


SET 3,L 


SET 4,L 


SET 5,L 


SET 


6.1 


SET 


7,L 


no 


SET 


0, (Hi.) 


BE- 


1, (HL) 


SET 


2, (HI) 


SET 3, (HL) 


SET 4,(HL) 


SET 5,(HL) 


SET 


6, (HL) 


SET 


7, (HL) 


in 


SET 


0,A 


SET 


|,A 


SET 


2,0 


SET 3, A 


SET 4,A 


SET 5, A 


SET 


6,A 


SET 


7, A 










Table 2. Secon 


d-byte Table (first byte 


CB). 











DEALER #R491 






26 - 4002 

Model II, 64K 



26- 1062 

TRS-80 Color Computer With Model III 1 6K RAM 

Extended Color BASIC Model III, BASIC 

$825.00 

WE ACCEPT CHECK, MONEY ORDER, OR PHONE ORDERS WITH VISA OR MASTERCARD. SHIPPING 
COSTS WILL BE ADDED TO CHARGE ORDERS. DISK DRIVES, PRINTERS, PERIPHERALS, AND SOFT- 
WARE-YOU NAME IT, WE'VE GOT IT. WRITE OR CALL FOR OUR COMPLETE PRICE LIST. 

C& S ELECTRONICS, LTD. 32 EAST MAIN ST. MILAN, MICH. 48160 
(31 3) 439-1 508 (31 3) 439-1 400 



■ 1 38 
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C & S ELECTRONICS MART IS AN AUTHORIZED TRS 80 SALES CENTER STORE #R491 
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THE NEW LAREDO LS525 
WHEN YOU'RE READY 



..&, 






T DOWN TO BUSINESS 



Laredo Systems, Inc. introduces the 
LS525 five megabyte rigid disk memory 
system for TRS80 Models I and III. 
Laredo's LS525 rounds up a Seagate 
ST506 Drive, LDOS Operating System by 
Logical Systems, and Laredo's own LSI 




500 Series Controller into a single-board 
controller that emulates the famed IBM 
3370 disk system, complete with: 
• Improved read/write/seek access time 
through full block buffering and variably 
tuned interleave. 



• On-board data separator, micro-code 
diagnostics and write-precompensation. 

• Increased disk media reliability and 
data integrity with automatic defect block 
allocation and extended ID fields. 

• Versatile CPU compatibility provided by 
separate host adaptor. 

Introductory Offer To TRS80 Users. 

Now through March 31, 1982 buy the 
LS525 for the OEM/dealer price of 
$2990, a savings of $760 off the usual 

suqqested retail price of $3750. 

LDOS Operating System 
with manual and diskette 
available for $149. 



For more information about the LS525 
Memory System and the LSI 500 Series 
Controller, contact: Laredo Systems, Inc. 
2264 Caile de Luna, 
Santa Clara, CA 95050 
(408)980-1888 




« 









wmmmmm 



■Hi 



\~ : - ,:■*.<% 




kircclo yftt<zm> inc. 



sSee List of Advertisers on page 402 
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operand. The bits in each byte of 
the op codes fall naturally into 
three fields: the most significant 
two bits, the next most signifi- 



cant three bits, and the least sig- 
nificant three bits. (I refer to 
these fields as f1, f2 and f3, re- 
spectively. They correspond to 



the three digits in the octal rep- 
resentation of the byte.) 

The instructions should be 
displayed as follows: For each 



possible value of one of the 
three fields, construct a table of 
instruction mnemonics whose 
rows are indexed by the possi- 





000 




001 


oio on 


100 


101 


110 




11! 




fl ■ 00 






















000 






















001 






ADD IX, BC 


ADD IX, DE 


LD IS, mi 


ADD IX, IX 






«1)D 


1X.SP 


010 










LD Inn), IX 


LS IX, Inn) 










f 011 










INC IX 


DEC IX 










3 100 










INC HI 


INC LX 


m 


(IX+d) 






101 










DEC HX 


DEC LI 


DEC 


(IX+d) 






110 










LD HX,n 


LD LI,n 


LD 


(IX+d),n 






HI 






















fi ■ 01 






















000 










LD HX,B 


LD LX,B 


LD 


(IX+d) ,B 






001 










LD HI,C 


LD LX,C 


LB 


(IX+d),C 






010 










LD HX,D 


LD LX,D 


LD 


(IX+d) ,D 






* 011 










LD HX.E 


LD LI,E 


LB 


(IK+d> ,E 






3 100 


LC 


B,HX 


LD C,HX 


LD D,HX LD E,HX 


LD HX,HX 


LD LX.HX 


LD 


(IX+d),H 


LO 


A,HX 


101 


ID 


B.LI 


LD C,LX 


LD D,LX LD E,LX 


LD HX,LX 


LD LX,LI 


LC 


(IX+d) ,L 


LD 


A,LI 


no 


LD 


8,(U+d) 


LD C.UX+d) 


LD D.dX+d) LD E,UI+d) 


LD H,UX+d) 


LD L, (IX+d) 






LD 


A, (IX+d) 


111 










LD_HIj 


LD LX,A 


LD 


(IX+d), A 






fl * 10 






















000 






















001 






















010 






















i on 






















3 100 
101 


m 

ADO 


A.HI 
A.LJ 


ADC A,HX 
ADC A,LX 


SUB HX SBC A,HX 
SUB LX SBC A,LX 


AND HX 
AND LX 


XOft HI 
10ft LX 


OR 
OR 


HI 
LI 


CP 


LX 


no 


SD0 


A, (!»♦<!) 


ADC A,<IX+d) 


SUB (IX+d) SBC A,(IX+d) 


AND (IX+d) 


XOft (IX+d) 


OR 


(IX+d) 


CP 


(IX+d) 


111 






















fl « 11 






















000 






















001 










POP IX 


if (II) 






LB 


SP.II 


010 






















f 011 
3 100 






CB - Tiblf b 




EX (SP),IX 












101 










PUSH II 












110 






















111 




























Table 


3. Second-byte Table (first byte DD). 












IEEE-488 TO TRS-80* INTERFACE 
Everything needed to add powerful 
BASIC GPIB-488 controller capability 
to TRS-80 Model 1 or 3, Level 2 or 
DOS with a minimum of 16K. 

48S-80B 

For Model 1 

Operation 

■■■Ha 



488-80C 

For Model 3 

Operation 

Model 488-80B or 488-80C Price: $375. 

+ shipping, insurance & tax 
WHEN ORDERING SPECIFY DISK OR TAPE 

SCIENTIFIC ENGINEERING 
LABORATORIES 

11 Neil Drive • Old Bethpage, NY 11804 
Telephone: (516) 694-3370 
'Trademark of Tandy Corp. 
There is no affiliation between Scientific 
Engineering Laboratories and Tandy Corp. or 
Radio Shack. 




^203 




PROFESSIONAL "21" TUTOR 

Drills & exercises for learning & practicing 
basic playing strategy, card counting, & money 
management. Full casino simulation for play 
evaluation & practice with the benefit of 
excellent graphics! 

TRS80 Model III 

ATLANTIC CITY "21" 

Game Only $19.95 

Game & Basic Strategy $29.95 

Full System $95.00 

|i6k/Mssetle or DISK, specify when ordering) 
NEVEDA SYSTEM AVAILABLE IN APRIL '82. 
Order full system now & receive NEVADA SYSTEM FREE when 
available. Order by phone or mail. Pay by check. COO. VISA or 
MASTERCARD Add $1.50 lor shipping in U.S. $3 /Canada. 
$5./0wseas. Add $1.50 lor COD or Blue Label 

Technical Software Systems 

Box 55. Shrewsbury. N.J 0770 x 
(201) 780-4004(24 Hrs) 

K J residents add 5% sales lax •--' 204 



»B wnsaemazstataiM!-!' 



s 
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»M 




powerful programming * 
for theTRS-80. Nowon disk, 



Better results. Microsoft's Level III BASIC and Editor/ 
Assembler-Plus are programming tools that help you write 
complex programs in less time, with less effort and util- 
izing less memory. Better programs. No matter what your 
programming skill. And for the first time these tools are 
available on disk. 

Editor/ Assembler-Plus. A powerful editing, assembly and 
debugging tool with many sophisticated features that make 
writing TRS-80 assembly language programs easier, faster 
and more efficient. 

• Full disk capabilities 

• Assembly directly into memory. No need to save object 
code then reload for execution 

• Macro capability that allows you to define macros for 
commonly used sequences of instructions. 

• Conditional assembly that allows you to generate more 
than one version of a program. 

• Eight breakpoints at a time for program debugging. 

• The INCLUDE statement that allows you to call additional 
disk files for assembly. 

• Other features include extensive operators, automatic 
origin, symbol table printout, quash command, hex, deci- 
mal and octal constants, single step-through instructions 
in memory, five type-out modes, four type-in radices, plus 
extensive edit commands. 

A more powerful BASIC. With Level III BASIC, you get 
power to perform tasks in BASIC that used to require 
assembly language. Plus, new ease-of-use features for 
your TRS 80. 

• Advanced graphics. Develop charts, graphs, even anima- 
tion in Level III BASIC. Draw a line, an outline box or 



a solid box by specifying just two points. Then save and 
recall it with BASIC commands. 

• MENU. One command that allows you to construct an 
entire menu 

• CHAIN and COMMON commands allow you to call 
another program and pass variables to it. 

• Powerful editing commands such as COPY/TRANSFER, 
FIND and CHANGE. 

• DUMP command that makes debugging easier. 

• Time-limit response. New INPUT # LEN and LINE INPUT 
# LEN commands allow you to set a time limit on response. 

• RS-232 output from BASIC. With a single command. 

• More. Level III gives you automatic line numbering, 26 
user-definable single stroke instructions, and more 

Disk or cassette. Disk versions of Level III and Fditor / 
Assembler- PI us are brand new Cassette versions are also 
available with many of the same capabilities. 
Talk to your Microsoft™ dealer. Ask for a demonstration 
of two of the most powerful tools you can get for your 
TRS-80: Level III BASIC and Editor/ Assembler-Plus. On 
disk or cassette. From Microsoft. 

TRS-80 is a trademark of Radio Shack, a division of Tandy Corporation 

Microsoft is a trademark of Microsoft, Inc. 

Microsoft Consumer Products is a division of Microsoft. Inc. 
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10700 Northup Way, Bellevue, WA 98004. (206) 828-6 




2 games per cassette 



for the TRS-80 Model I or 111. 16 K 
Iml II or Model I II BASIC microcomputers. 
«i our programs have 

ACTION SOUNDS & GRAPHICS 




You design your own space fighter and 
then blastoff into battle. Human or 

10 Computer Opponents. Fight in 2 or 3 
dimensions Three scenarios: "Smuggler", 
"Refuel Option . and "Phoenix Decathlon'. 

THE NEW STARSHIP VOYAGES 

A brilliant "trek" type space war. 30 
galaiy with wrap around. Moving enemy 
craft, some are "Cloaked". 16 commands. 
Rescue starbase Delta from the Rogues, 
catalog No 2001 $ 19.95 




PARSECTOR V 



Still 

The 
Ultimate 
Space 

War 



Unique split screen gives each player a 

private display Launch fleet battle craft 
and watch them fight. Fire high powered 
energy beams or short range weapon spreads. 
Human or computer opponent. 

PARSECTOR 8 Tournament Version. 
Giant galaxy to conquer Intense Strategy ! 
catalog No 2002 J 19.95 




!!!ants!M 



• mazing 

War 
Between 

Ant 
Colonies 



Fast, machine language speed Three game 
variations "Open field", "Nest Barrier", 
and "Digging Ants" 2 players or computer 
opponent Fasytoplay, Challenging to 
master. Fun packed game for all ages!!! 

THE NEW STARSHIP VOYAGES 

catalog No. 2003 i 14.95 



HIGH SPEED LIFE 

The FASTEST, most ADVANCED version of 
I. K.Conway s famous mathematical game 
Spectacular kaleidoscopic animation 
500 gen/min typical 32 preprogrammed 
patterns Multiple control functions 

I Haled no. l ir. ao^ottwaieOitique, Issue 5 ) 

NAME THAT STATE QUIZ 

A top notch educational game Draws 
50 states and asks five questions. 
Three qui; types, tasy to use 
catalog No 2004 $ 14.95 



Disk Owners 

On special request the above games are 
available on cassette (you transfer), same price, 
compatible with TRSOOS Disk Basic 48K . 



Add $100 postage & handling COO add *2 60 
Fla. Res. add 4% tax MaKeChecK « MO-oayawe to: 

Synergistic Solar, Inc. 

POBox 560595, Miami FL 33156 



Proa^e write for r 
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ble values of one of the other 

fields, and whose columns are 
indexed by the possible values 
of the remaining field. Since the 
first field has four possible 
values (OO, 01, 10 or 11), and the 



other two have eight possible 
values each (000. ...,111), there 
will be four 8 by 8 tables, eight 4 
by 8 tables, or eight 8 by 4 tables 
of mnemonics. The first of these 
reveals the most structure. 



The tabie of first bytes con- 
tains four parts, one for each 
possible value of f1. In each part 

the columns are indexed by the 
possible values of f2. and the 
rows are indexed by the possi- 




m 



oo i 



i 



Oli 



IOC 



I01 



no 



ill 



n ■ oo 



o-oo 
























001 




ADD IY.BC 




ADD IY.DE 


uD 


IY.nn 


add iv, iv 






ADE 


IV.SP 


010 










LD 


(nnl.IY 


LD IY,(nnl 










i Oil 










!NC 


IY 


DEC IY 










3 100 










INC 


HY 


INC ir 


INC 


tiv*d) 






101 










■■M 


HY 


DEC LY 


DEC 


<IY»d) 






no 










LD 


HY,n 


LD LY,n 


LD 


(IV*d),n 






no 
























U * 01 
























000 










LD 


H^.B 


LD LY,B 


LD 


UY*d),l 






001 










LD 


NY,C 


LD LY f G 


LD 


tIV+d) ,C 






010 










LD 


HY,0 


I J LY.S 


LD 


(IY+d),D 






< Oli 










LD 


KY,£ 


L£ J. 1 


LD 


(IY*d),E 






I 100 


LD B,H» 


LD C,KY 


LD D,HY 


LD E,HY 


LD 


HY.HY 


LD LY,HY 


LD 


(IYtdl.M 


LB 


A,HY 


101 


LD B,LY 


IS CjLY 


LD D,LY 


LD E.LY 


LD 


HY.LY 


LD LY.LY 


LD 


(IY»d),L 


LD 


A.LY 


no 


LD B, (IY+d> 


LD C,(IY*d) 


LD D.tlY+d) 


LD E,llY*d) 


LD 


H.dY'dl 


LD L,(IY*d) 






LD 


A, (IVtd 


ni 










LD 


HY,A 


LD LY.A 


Li) 


(IY*dl,A 






n - w 
























000 
























001 
























010 
























f ou 
























J 100 


ADD A,HY 


ADC A, MY 


sub :<i 


SBC A,HY 


AND 


HY 


ItOP MY 


0* 


HY 


CP 


HY 


101 


ADD A,LY 


ADC A,LY 


SUB LY 


SBC A.LY 


AND 


LY 


(OR LY 


Of) 


LY 


CP 


LY 


no 


ADD A, IIY+d) 


adc S.imai 


5US !lY«d) 


SBC A, (IY»d) 


AND 


(IY+d) 


IOP. (IV*dl 


w 


(IY*d) 


CP 


(IY*d) 


in 

























n « u 

000 

001 

010 

f 011 

J iOC 
101 
110 

111 



cb - i.m» ? 



POP IY JP IIV) 

EX (8PI.1V 

PUSH IY 



LD SP,IY 



Table 5 Second byte Table (lust byte FD) 
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ble values of f3 The instruction 
is completely determined by this 
table {except for any immediate 

operands) unless the first byte is 
CB, DD. ED or FD Therefore, 
separate tables are needed for 
the second bytes of these in- 

structions (Tables 2. 3, 4 and 5) 
These tables are constructed in 
the same way as Tabio 1 The 62 
oddball instructions are dis- 



played in a slightly different 
manner in Tables 6 and 7 to 
avoid a large, mostly blank, 
table. 

Following Freed's notation, i 
underlined those op codes not 
documented by the Z80 
manufacturer. Contrary to the 
implication in his article, some 
instructions using H and L can 
not be prefixed by DD or FD to 



produce corresponding in at ruc- 
tions using the high and low 
halves of IX and IY, at least not 

with my Z80. In fact, I have found 
that any instruction using H or L 

whose first byte is CB cannot be 
so modified. Thus. I have not in- 
cluded those instructions in my 
tables. Nor have I included the 
undocumented instructions re- 
ported by Freed which are dupli- 



cates of documented ones. 

I have found these tables in- 
dispensable in writing a disas- 
sembler, an object code reioca- 
tor, and a single-stepper: I hope 
they will be as useful to you.B 

Herb Robinson is a former un- 
iversity assistant professor of 
■mathematics turned full-time 

micro fanatic 



ooo 



00; 



010 



Oil 



100 



101 



no 



in 



00 


»LC 


m*di 


RRC 


(IY+d) 


RL (IX+d) RR (IX+d) 


SLA 


(ix+d) 


BRA 


(IX+d) 




SRI 


ill+d) 


f 01 


SIT 


0,(IX+dl 


SIT 


l,(IX+d) 


BIT 2, (IX+d) BIT 3, (IX+d) 


BIT 


4,(IX+d) 


BIT 


5, (IX+d) 


BIT 


6,(II+dl B!T 


7, (IX+d) 


1 10 


RES 


0,(IX+d) 


RES 


l,(IX+d) 


RES 2,(IX+d) RES 3, (IX+d) 


m 


4, (IX+d) 


Rtt 


5, (IX+d) 


RES 


6, (IX+d) RES 


7, (IX+d) 


11 


SET 


0,<IX+d) 


SET 


l,(IX+d) 


SET 2, (IX+d) SET 3, (IX+d) 


SET 


4, (IX+d) 


SET 


5,(11*!)) 


SET 


6, (IX+d) SET 


7,(IX+dt 



Table 6. Fourth-byte Table (first two bytes DDCB. third byte d). 





ooo 


001 010 011 100 101 110 


00 
< 01 
1 10 

11 


RLD 
EI T 
RES 
SET 


(IY+d) RRC (IY+d) RL (IY+d) RR (IY+d) SLA (IY+d) 6RA (IY+d) 
0,IIY+d> BIT l,UY+d> BIT 2,(IY+d) BIT 3,<IY+d) BIT 4,<!Y+d> BIT 5, (IY+d) BIT 6,(IY+di 
0,W+i) RES l,W+d) RES 2,(IY+d) RES 3,(JY+d) RES 4, (IY+d) RES 5,(IY+d) RES 4,(IY+d) 
0,(IY+d) SET I,<IY+d) SET 2, (IY+d) SET 5, (IY+d) SET 4, (IY+d) SET 5, (IY+d) SET 6, (IY+d) 

Table 7. Fourth-byte Table (first two bytes FDCB, third byte d). 



SRI 

en 

RES 
SET 



(IY+d) 
7,UY+dl 
7, (IY+d) 
7, (IY+d) 



MISOSYS MISOSYS MISOSYS MISOSYS MISOSYS MISOSYSMISOSYS MISOSYS MISOSYS MISOSYS MISOSYS MISOSYS 2 
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> 
m 
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m 

o 
m 
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m 
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EDflS 3.5 

EDAS is a sophisticated Editor 
and Assembler for TRS-80 I & III 

. All text may be input in upper or 
lower case. 

. Assemble directly from one or 
more disk files via *GET. 

. Assemble to disk or memory 

. Binary, octal, decimal, hex, and 
string constants; Multiple con- 
stants may be input on a single 
line. 

. CMDFILE utility included. 

. Conditional assembly support. 

• Cross-Reference utility. 

. DOSfunctionsDIR,FREE,KILL, 

and LIST are supported. 
. 14-character labels including 

special chars. "@", "$",".","?". 
. Editor includes block move, 

global change, renumber, find. 
. EDTASM & M-80 source files 

can be read or written. 

• Expression evaluator supports 
+, -, ,/, MOD plus logical AND, 
OR, and XOR. 

. Paged & titled listings with page 

numbers and date/time. 
. PAGE, TITLE, SUBTTL, SPACE, 

& COM pseudo-ops supported. 
. Set memory size, page prompt, 

JCL execution, Abort option. 
. EDAS is supported with TRSDOS 

compatible DOSs(LDOS, VTOS). 
. Price is $79.00 + $4.00. S&H. 




MISOSYS MISOSYS MISOSYS MISOSYS MISOSYS 



!: 
en 
O 
m 



w 

■ 

O 



LDOS, Version 5.1 is the Ultimate in Operating 
Systems for the TRS-80 Models I and III. 
MISOSYS is your East Coast Headquarters 
for LDOS, the documented system! Version 
5.1 is priced at $169.00 + $5.00 S&H per 
system. Deduct $50 if ordering both. 



LDOS 5.L 



m 
O 
m 
< 



Turn your Editor Assembler into 
a disk package. This 32K patch 
modifies FDTASM for DOS op- 
eration Features 9 Add full disk 
I/O, block move, global change, 
printer pagination, sorted sym- 
bol table, print memory utiliza- 
tion, enhanoe DEFM expansion, 
protect memory, and recover 
after BOOT. From within the 
EDTASM you will have DIR, 
KILL, & FREE. Upgrade your 
EDTASM! $20. 



SASOSIVMSASOSIIflSASOSIIAISASOSIIAISASOSHnl ThE Bj30lflS 



DSMBLR 



Complement your assembly language tools with this 
Z-80 disassemblerwhich produces screen, printer, 
cassette, or disk file output. A two pass process 
provides SYMBOLS for 1 6-bit address and 8-bit rel- 
ative references. EQUates & ORG are generated. 
Read SYSTEM programs & display load address 
range. $20 (DSMBLR I for non-disk use is $1 5). 

EDAS, CMDFILE, DSMBLR Specify Mod I or III. Add 
$1 S&H+$.50 per program. VA residents add 4%. 



MISOSYS- Dept. MU 3 

5904 Edgehill Drive, 

Alexandria, Virginia 22303 

703-960-2998 MicroNET 701 40,31 

Dealers Inquiry Invited ,^12;- 





THE BOOKs must be a part of 
your tools. Volume I gives you 
access to all math operations in 
your Level II ROM. A symbol 
table of the entire machine not- 
ing over 500 addresses is inc'ud- 
ed. Volume II tells you every* 
thing you wanted to know about 
the level II I/O- printer, key- 
board, video, and cassette rou- 
tines are fully explained. Each 
volume has a fully commented 
listing of all the routines dis- 
cussed. THE BOOKS will save 
you hours of assembler pro- 
gramming. Each volume is priced 
at$14.95orbuybothfor$24.95. 
Add $1.50 S&H per book 
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Aerocomp 



Best 

The 

11 



•it 



Double Dem 

• Technical Sui 




Controller 

iority 



^«M«i- ! A^5J e d „ ensit v controller for Model I with higher probability of data recovery than with any other 
R£me L L D S N L? ITY C0NTR0LLER 0N THE MARKET TODAY! The "DDC" from Aerocomp. No need to worry about the pro- 
blems that keep cropping up on existing products. AEROCOMP'S new analog design phase lock loop data separator 
•« a i a T wl l er c !P ture window than the digital types currently on the market. This allows high resolution data center- 
ing The finest resolution available with digital circuitry is 125 ns (nano seconds). The "DDC" analog circuit allows in- 
finately variable tuning. Attack and settling times are optimum for 5-1 1 a, inch diskettes. 
The units presently on the market use a write precompensation circuit that is very "sloppy". Board to board 
tolerance is extremely wide - in the order of + 100 ns. The "DDC" is accurate to within + 20 ns 
The bottom line is state of the art reliability! ~ 

* Test Proven 

Tests were conducted on AEROCOMP'S "DDC", Percom's "Doubler A"* and "Doubler ll"* and LNW's "LNDoubler"* 
a Radio Shack TRS80* ** Model I, Level 2, 48 K with TRS80 Expansion interface and a Percom TFD100* disk drive 
(Siemens Model 82). Diskette was Memorex 3401. The test diskette chosen was a well used piece of media to deter- 
mine performance under adverse conditions. The various double density adapters were installed sequentially in the 
expansion interface. 

The test consisted of formatting 40 tracks on the diskette and writing a 6DB6 data pattern on all tracks The 6DB6 
pattern was chosen because it is recommended as a "worst case" test by manufacturers of drives and diskettes An 
attempt was then made to read each sector on the disk once - no retrys. Operating system was Newdos/80 Version 
1.0, with Double zap, Version 2.0. Unreadable sectors were totalled and recorded. The test was run ten times with 
each double density controller and the data averaged. Test results are shown in the table. 



using 



* Features 

TRS80 Model I owners who are ready for reliable double 
density operation will get (1) 80% more storage per 
diskette, (2) single and double density data separation 
with far fewer disk I/O errors, (3) single density com- 
patibility and (4) simple plug-in installation. Compatible 
with all existing double density software. 

* value 

$149.95 for the BEST double density 
controller on the market. 

$189.95 for "DDC" complete with DOSPLUS 3. 3D 
$239.95 for "DDC" complete with LDOS 



• TEST RESULTS • 



MFR & PRODUCT 


SECTORS LOCKED OUTiavo 


AEROCOMP "DDC" 





PERCOM "DOUBLER II" 


18 


PERCOM "DOUBLER A" 


250 


LNW "LNDOUBLER" 


202 



Note: test results available upon written request, am tests conducted prior to 8-25-81 

Aerocomp's 14 day money back guarantee applies to hardware only. 

Specials will be prorated. Shipping S2.00 in Cont. US. See opposite page for details. 



Data Separators 

The advances that make the "DDC" great are incorporated in the new AEROCOMP Single Density Data Separator 
and Double Density Data Separator ("DDS"). 



SDS") 



* Has your original manufac- 
turer left you holding the bag? 

if you already own a Percom "Doubler A", "Doubler ll" or lnw 
"LNDoubler", the AEROCOMP "DDS" will make It right. Look at the test 
results: 



MFR. & PRODUCT 


SECTORS LOCKED OUT 


WITHOUT "DDS" 


WITH "DDS" 


PERCOM "DOUBLER II" 


18 


1 


PERCOM "DOUBLER A" 


250 





LNW "LNDOUBLER" 


202 






Note: Same test procedures as "DDC". 

* Trademark of Percom Data Co. 

* * Trademark of lnw 

* * * Trademark of Tandy Corporation 



* "DDS" $49.95 

(Use 1791 chip from your DD Con- 
troller) 

M UL/b with disk controller 

chip included $79.95 

* Disk controller 

chip $34.95 

(Shipping $2.00 cont US - see opposite 
page for details) 



Plugs directly into your existing 
Double Density Controller. 



Do you need a 
Single Density Data 
Separator? 

The internal data separator in the 
WD1771 chip (R/S Expansion Interface) 
is NOT recommended by WD for 
reliable data transfer. Do you have any 
of these problems: Lost data, tracks 
locked out, CRC errors, disk retry? YOU 
NEED ONE! 

• "SDS" $29.95 

(For Mod. I; shipping $2.00) 



See oppo* 
page*»»t 
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NEW LOW PRICES 



Thanks to you our sales volume has 
allowed us to cut costs and we're pass- 
ing the saving 1 , along. We offer the best 
disk drive value in the market place. 
Reliability, features and cost tough to 
beat. We deliver.. .and we stand behind 
our products. AEROCOMP is the only 
manufacturer to offer FREE TRIALI Buy 
Aerocomp < Inves today Yon deserve the 
best. 

BEST FEATURES 

• Fast 5 ms. track-track access time. 

• Operates single or double density. 

• "FLIPPY" feature for lower media cost 
{40-1 &80-I). 

• Head load solenoid. 

• Disk ejector. 

• Easy entry door 

• NEW EXTERNAL DRIVE CABLE 

CONNECTION. fno longer need to remove the 
cover to hook up cable) 




WINTERS 




TRS80 Cable (I & III) $29.95 

APPLE Cable & Interface. . $96.00 

RS232 Interface $69.95 

Ribbon Cartridge, Black. .. $ 13.95 

Add $6.00 shipping (Cont. U.S.) does not 

include cable. 



MX80 F/T 



All the features of MX80 plus Friction 
Feed. Shipping & cables as above. 

$ 599.00 



ORDER TODAY! 

• 40-Track Drive S299.95 

• 80-Track Drive S429.95 

• 40-Track "FLIPPY" Drive. . . . $329.95 

• 80-Track "FLIPPY" Drive. . . . S449.95 

• 40-Track Dual-Head Drive. . $449.95 

• 80-Track Dual-Head Drive. . $579.95 

All above drives are complete with silver enclosure, power supply 
and external drive cable connection 1 1 5 VAC. 50/60 Hz 230 VAC. 
50/60 Hz available on special order 

• 40-Track Bare Drive $269.95 

• 80-Track Bare Drive $399.95 

• 40-Track "FLIPPY" Bare Dnve$299.95 

• 80-Track "FLIPPY" Bare Dnve$4 19.95 

* SPECIAL PACKAGES* 

STARTER A $339.95 

40-Track Drive, 2-drive cable. TRSDOS 
2.3 Disk & Manual, Freight & Ins. 

SRARTER B $369.95 

40-Track "FLIPPY" Drive, cable, TRSDOS 
2.3 Disk & Manual. Freight & Ins. 

COMBO C $465.00 

40-Track "FLIPPY" Drive, 2-dnve cable, 
LDOS . Freight & Ins. 

COMBO D $585 00 

80-Track "FLIPPY" Drive, 2-dnve cable. 
LDOS' Freight & Ins. 

COMBO E $709.00 

Two 40-Track "FLIPPY" Drives, 4-Dnve 
cable, TRSDOS 2.3 Disk & Mannual, 
Freight & Ins. 

COMBO F $999.00 

Two 80-Track "FLIPPY" Drives, 4-drive 
LDOS , Freight & Ins. 

COMBO G $909.00 

Two 40-Track Dual-Head Drives, cable, 
TRSDOS 2.3 Disk & Manual, Freight & 
Ins. 

COMBO H $1299.00 

Two 80-Track Dual-Head Drives, cable, 
LDOS . Freight & INS. 

DOSPLUS 3.3 or NEWDOS / 80.2.0 

available with any package. 

Adds 5.00 per drive for shipping & handling (Cont US) 

FREE TRIAL OFFER 

Order your AEROCOMP Disk Drive and 
use it with your system for up to 14 
days. If you are not satisfied for ANY 
REASON (except misuse or improper 
handling), return it, packed in the 
original shipping container, for a full re- 
fund. ( Special packages will be proratea | We have 

complete confidence in our products and 
we know you will be satisfied! ORDER 
TODAYII 



IVE 



WARRANTY 

We offer you a 1 20 day unconditional 
warranty on parts and labor against any 
defect in materials and workmanship. In 
the event service, for any reason, 
becomes nescessary, our service depart- 
ment is fast, friendly and cooperative 

100% TESTED 

AEROCOMP Disk Drives are completely 
assembled at the factory and ready to 
plug in when you receive them. Each 
drive is 1 00% bench tested prior to ship- 
ment. We even enclose a copy of the 
test checklist, signed by the test techni- 
cian, with every drive. AEROCOMP 
MEANS RELIABILITY!! 

ORDER NOWII 

To order by mail, specify Mode! 
Number(S) of Drive, cable, etc. (above), 
enclose check, money order, VISA or 
MASTERCHARGE card number and ex- 
piration date, or reguest C.O.D. ship- 
ment. Texas residents add 5% sales tax. 
Add $5.00 per drive for shipping & handl- 
ing (Cont. US). Please allow 2 weeks for 
personal checks to clear our bank. No 
personal checks will be accepted on 
C.O.D. shipments-cash, money orders or 
certified checks only. You will receive a 
card showing the exact C.O.D. amount 
before your shipment arrives. Be sure to 
include your name and shipping address. 
You will be notified of the scheduled 
shipping date. Your bank credit card will 
NOT be charged until the day we ship. 1 1 

DRIVE CABLES 

2-DRIVE $24.95 

4-DRIVE S34.95 

WRITE AEROCOMP TODAY 
FOR MORE VALUES III 



CALL TOLL FREE FOR FAST SERVICE 
(800) 824-7888. OPERATOR 24 

FOR VISA/MASTERCHARGE/C.O.D. ORDERS 

California dial (800) 852-7777, Operator 24. Alaska 
and Hawaii dial (800) 824-7919, Operator 24. 
TOLL FREE LINES WILL ACCEPT ORDERS ONLYI 

For Applications and Technical information, call 
(214) 337-4346 or drop us a card. 



AE3GCGfil? 

Redbird Airport, Bldg. 8 

P.O. Box 24829 

Dallas, TX 75224 ' 82 



s-See List ol Advertisers on page 402 
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GRAPHICS 



The Key Box 

Basic Level II 
Line Printer IV 



Send your screen creations to an LP IV. 



D 



aper Graphics 



Jay F. Rosenberg 
715 Williams Circle 
Chapel Hill, NC 27514 



The Line Printer IV may not be 
a graphics printer, but it is a 
versatile instrument. With a lit- 
tle software and patience you 
can produce elegant charts and 
graphs on a LP IV to incorporate 
into your printed reports. Or, just 
for fun, you can save your pretty 
screen pictures. 

When dealing with graphics 
think of the screen as consisting 
of 6144 pixels (48 lines of 128 
pixels) which you can Set or Re- 
set either individually or in com- 
bination by printing graphics 
characters. Normally when you 
I LIST programs or LPRINT text. 
your LP IV is in its 10 cpi (charac- 
ters per inch) or proportional 
spacing mode. Allowing for mar- 
gins, this produces primed lines 
of either about 64 or 95 charac- 
ters. In normal use the LP IV 
uses six line feeds per inch. In 
the 10 cpi mode the LP IV can 
give you a snapshot of the 1024 
print positions on your screen, 
as a block of printed text 6.4 
inches wide and 16 lines (about 
2.7 inches) deep. 

The Line Printer IV also has a 
16.7 cpi character set. I will call 
this print mode the Tiny mode. 
In the Tiny mode, the LP IV gen- 
erates a maximum of 132 print 
positions across a standard 8V 2 
by 11 inch page. Since one line 
of screen graphics is only 128 
pixels long, you have enough 
room in Tiny mode to reproduce 
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such a line pixel for pixel across 
the page, with four characters 
for two-position margins on 
both ends. 

In addition, you can control 
the LP IV's line feeds. You can 
advance or roll back the paper in 
half-line-feed increments (12 per 
inch). There are 48 lines of pixels 
on the screen; if you print in the 
half-line-feed steps In Tiny 
mode, you can produce a snap- 
snot of the screen in the form of 
a tightly printed text block 7 './ 
inches w;de by 4 inches deep. 
This is compressed vertically in 
comparison with the 8 inch by 6 
inch screen display (a depth-to 
width ratio of 0.52 versus 0.75), 
but the resultant distortion is ir- 
relevant for most graphs and 
charts, and, as we shall see, is 
untroublesome for pictorial 
graphics as well. 

Program Listing 1, GRAPHIX/ 
SUB, is a Basic subroutine 
which you can incorporate into 
your program and then call (by a 
GOSUB 50000 or an If, . .Then 
GOSUB 50000) to produce such 
a printed snapshot of the screen 
display. Printing the entire 
screen takes time (the LP IV 
prints 50 characters per second 
at best). Partia ; screen printing 
allows you to omit any message 
lines (such as "Press Enter to 
continue"). You do not want to 
output such lines to the printer, 
when producing a graph or 
chart. 

How the Program Works 

GRAPHIX/SUB has two main 
parts. After a bit of housekeep- 
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ing, lines 50110-50160 allowyou 
to define the region of the graph- 
ics screen you wish sent to the 
printer. Lines 50180-50290 scan 
the selected region of the screen 
and put the LP IV through its 
paces. 

The balance of the listing con- 
sists of three internal subrou- 
tines. "Move Cursor" and "Enter 
Corner" are called during the 
first part o ; the program; "Load 
Letters" is called during the sec- 
ond part, to ensure that non- 
graphic characters (labels, num- 
bers, and the like) are also in- 
cluded in the final printed snap- 
shot. 

During "Define Region," line 
zero of the screen is a message 
line that helps you keep track of 
where you are in the procedure. 
Two points specifying diagonal- 
ly opposite corners define a rec- 
tangular region of the screen. 
GRAHIX/SUB uses the upper left 
corner and the lower right cor- 
ner of the desired region. Conse- 
quently, the program succes- 
sively displays two messages: 
"Place cursor on upper left cor- 
ner and press Enter" and "Place 
cursor on lower right corner and 
press Enter." Lines 50060 and 
50070 set up the strings for 
these messages. Line 50080 
saves the original contents of 
line zero on the screen in a 
string Z0$ and prints the first 
message. The Print instruction 
in Line 50180 restores the 
screen to its original condition 
before output to the LP IV 
begins. 

As a final bit of housekeep- 



ing, line 50090 uses two POKEs 
to set up a non-blinking cursor 
(you will control its flashing) 
which fills a full print cell (graph- 
ics character 191, all six pixels 
lighted). The program then posi- 
tions the cursor at the center of 
the screen. Two counters, ZR for 
rows (0-15) and ZC for columns 
(0-63), keep track of the cursor's 
position. ZU computes the actu- 
al print position (0-1023) for the 
PRINT® instructions within the 
program. 

Line 50110 is the first half of a 
Basic simulation of the Repeat 
. . . Until instruction characteris- 
tic of "structured" (or "GOTO- 
less") programming. (See "Bas- 
cal" by Richard C. Metzler in 80 
Microcomputing, September 
1981 for a fuller discussion.) It is 
paired with the NEXTZ1 instruc- 
tion on line 50160. Notice that 
the For. . . Next counter Z1 isset 
to minus (ZX - 2) just before the 
NEXTZ1. Since Basic uses 
minus 1 for its logical true, if ZX 
is equal to 2, Z1 will be set to 
minus(minus 1), that is, to plus 1. 
The NEXTZ1 instruction then in- 
crements Z1 to two which, since 
it is larger than the range set at 
50110 in the instruction FOR 
Z1 = 1T01 causes an exit from 
the For . . . Next loop. If ZX is not 
equal to two, Z1 will be set to 
zero (Basics logical false). The 
NEXTZ1 increments it to one, 
and you loop back to 50110 
Since the counter is stiii in the 
narrow range originally set by 
the For instruction. 

The net effect is that the in- 
structions 50110-50160 are 




FREE 

OUT-OF-STATE TAXES AND SHIPPING COSTS 

WARRANTIES HONORED BY ALL COMPANY OWNED 
RADIO SHACK STORES OR COMPUTOR CENTERS 

WE ALSO CARRY A FULL LINE OF PRINTERS, 
COMPUTORS AND ACCESSORIES 



WE ACCEPT 

CERTIFIED CHECKS, 

CASHIERS CHECKS 

AND MONEY ORDERS 



PERRY OIL & GAS INCORPORATED 



137 NORTH MAIN ST., PERRY, MICHIGAN 48872 



PHONE (517) 625-4161, MICH. 



WE OWN AND OPERATE A RADIO SHACK — DEALERSHIP R162 

FOR OUR PRICES, PLEASE CALL TOLL FREE 1 -800-248-3823 
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TAX/SAVER: M The tax help program 
for the layman and the professional. 

• Privacy. 

• Built-in tax aids. Answers questions like "Is my father my 
dependent?" and "Are my deductions reasonable?" 

• Tax regulations programmed in by our team of accountants. 
Type in your figures and you've done your own tax return. 

• Output to video or lineprinter. (Overlays available.) 

• Tax deductible. 

• Optional text: help for novices - speed for professionals. 

• Manual: Tax information, lists of deductions, tax glossary. 

• TAX/SAVER" I: completes long and short forms, itemized 
deductions, interest, dividends, income averaging and 
maximum tax, tax calculation. 

• TAX/SAVER™ II: all features of TAX/SAVER ,M I plus 
business income and capital gains. 

• Discount on yearly updates. 



& 



& 



TAX/FORECASTER'" converts TAX/SAVER " 
to a tax planner. Lets you see how financial decisions 
will affect your taxes. TAX/FORECASTER'" can 
be used alone. 



Orders will be filled in late January to allow inclusion of new tax laws. 
TO ORDER: 
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Reviews: 

"Well designed and easy to use" -D. Lubar. Creative Computing Magazine 1/81 

"TAX/SAVER™ may very well live up to its name" 

M. Tannenbaum, CPA, 80 Microcomputing Magazine 2,81 

•Registered trademark o( Radio Shack ^Copyright 1981 



Call collect 203-324-3009 or 203-544-8777 or mail this 
coupon to: Micromatic Programming Co. 

P.O. Box 158, Georgetown, CT 06829 

Please enroll me in member's service and send: 

□ TAX/SAVER'" I C<» $79.95 Manual included 
D TAX/SAVER'" II <&> $119.95 Manual included 

□ TAX/FORECASTER'" @ $49.95 
(with either TAX/SAVER'" $29.95) 

□ Tax Form Overlays @ $39.95 

□ Please send me more information 

Please check one: 

□ TRS 80* Model 1, 32K with 2 disk drives . 
D TRS80* Model III, 32K with 2 disk drives 

Add $3. 50 lor postage and handling. CT residents add 7- , '■• sales tax 

Name 



Address 
City 



.State 



Zip. 



D Check 
Card No. 



□ Master Charge O Visa 



. Exp.date_ 



^See List ol Advertisers on page 402 
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repeated until ZX equals two, at 
which time the program pro- 
ceeds into its next phase. The 
flag ZX keeps track of how many 
corners of the intended region 
you have already specified. 
Since you need only two (upper 
left and lower right), ZX is 
originally set to zero (line 50090) 
and then incremented by one (in 
the "Enter Corner" routine) each 
time you specify one of the cor- 
ners until ZX reaches two. 

Line 50120 is another self- 
contained Repeat. . .Until loop. 
It repeatedly flashes the cursor 
until you input a character from 
the keyboard. Unlike normal cur- 
sor blinking, however, this in- 
struction makes the character 
on the screen at the cursor's 
location visible to the user be- 
tween flashes. The character is 
found by a PEEK instruction and 
saved as a one-character tem- 
porary string ZT$. The cursor is 
then turned on (CHR$(14)), and 
after a short (count-to-15) wait, 
turned off again. The screen 
character saved in ZT$ is re- 
stored, and, after another short 
wait, the keylatch is checked to 
see whether there has been an 
input (Z$ = INKEY$). If not, Z$ is 
the null string (Z$ = "") and our 
test, (Z$<>"") generates a logi- 
cal false (zero), looping back to 
the beginning. If there has been 
input, however, (Z$<>"") gener- 
ates a minus 1 as a logical true, 
its negation is a plus 1, and the 
NEXTZ2 will increment that to 
two, exiting from the loop. 

The next two lines check to 
see which character you input. 
You move the cursor with the 
four arrow keys; when you press 
one (ASCII code 8, 9, 10, or 91), 
line 50130 calls the "Move Cur- 
sor" routine at 50400. This rou- 
tine checks to be sure that you 
are not at the edge of the screen 
and then increments or decre- 
ments the row counter ZR or the 
column counter ZC appropriate- 
ly. After a new PRINT® address 
(ZU) is computed for the cursor, 
control returns to the main 
routine. 

You specify one of the cor- 
ners of the region to be printed 
by pressing the Enter key (ASCII 
code 13). Any keypress other 
than an arrow or Enter (or Break) 
is ignored. If you press Enter, 
the instruction at line 50140 
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calls the "Enter Corner" routine 
at line 50500. This routine stores 
the column and row number of 
the cursor in one of two little ar- 
rays. If ZX equals zero, you are 
stipulating the upper left corner 
of the region to be printed, so 
line 50510 stores the column 
number ZC and the row number 
ZR in positions 1 and 2 of the ar- 
ray ZT (for top-left). The Return if 
ZU equals 1023 prevents the un- 
likely selection of the lower right 
corner of the screen as the top 
left corner to be printed. 

If ZX equals one, you are stip- 
ulating the lower right corner of 
your region. Line 50520 checks to 
be sure you have indeed moved 
downward and to the right from 
your first corner (or, at least, not 
upward or toward the left) and 
then stores the cursor column 
and row numbers in the little ar- 
ray ZB (for bottom-right). When 
you have successfully set a cor- 
ner, line 50530 changes the flag 
ZX and returns control to the 
main routine, where line 50150 
modifies the instruction mes- 
sage if necessary. 

When you have stipulated 
both corners of the region to be 
printed, ZX equals two and you 
pass on to the program's print- 
ing phase. Line 50180 restores 
the original line zero of the 
screen (and frees the string Z0$, 
which has been holding it, for 
other work). It also selects the 
Tiny mode (LPRINT CHR$(27); 
CHR$(20)) on the LP IV and ad- 
vances the paper one half inch 
(STRING$(3,138)) to leave space 
between printed outputs. Line 
50190 then computes the pixel 
addresses which you need to 
control your printing loops. 

A pixel is addressed by two 
coordinates: (0,D). The coordi- 
nate O is the pixel-count Over 
(0-127); D is the pixel-count 
Down (0-47). Since you need two 
such pixel addresses (one for 
each corner of your region) the 
program again uses some little 
arrays. The Over and Down 
counts for the upper-left pixel of 
the region and will be stored in 
position one of the arrays ZO 
and ZD; the Over and Down, 
counting for the region's lower- 
right pixel, are in position two of 
the same two-position arrays. 
Since there are two pixels Over 
for each print position, the pro- 
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gram multiplies ZT(1), the col- 
umn address of the top-left cor- 
ner, by two to get ZO(1). The pro- 
gram multiplies ZB(1), the col- 
umn address of the bottom-right 
corner, by two and then adds 
one (making sure you pick up 
the rightmost column of pixels) 
to get ZO(2). Similarly, since 
there are three pixels Down for 
each print position, the program 
multiplies ZT(2), the row address 
of the top-left corner, by three to 
get ZD(1), and ZB(2), the row ad- 
dress of the bottom-right corner, 
by three to get ZD(2), adding two 
(to ensure that you pick up the 
two bottom-most rows of pixels 
in the bottom row of print cells). 
ZR is reset to the row address of 
the first row of print cells, ZT(2). 
It keeps track of your rows for 
the printing of non-graphic char- 
acters, letters and numbers. 



Next, the print routine steps 
through each row of pixels, 
ZD(1) to ZD(2). Line 50210 initial- 
izes two print strings, ZP$(1) and 
ZP$(2). If you have also arrived at 
a row of pixels which is the top- 
most row of the corresponding 
row of full-character print cells, 
line 50210 pauses to call the 
"Load Letters" routine at 50600. 
This routine loads the non- 
graphic, alphanumeric informa- 
tion from the row of print cells 
ZR into a string (Z0$) to be print- 
ed later. It successively PEEKs 
at each screen position in the 
row ZR of your region, from the 
leftmost column ZT(1) to the 
rightmost column ZB(1). If it 
finds an alphanumeric charac- 
ter there— a letter or a number 
(ASCII codes 32-127)— it adds it 
to the string Z0$. If it finds 
anything else (for example, a 



*** GRAPHIX/SUB — Simulate printer graphics on LPIV 

* by Jay F. Rosenberg — 10/23/81 

* Include CLEAR 1000, DEFINT Z, and DIM ZO(2),ZD(2), 

* ZPS(2) ,ZT(2) ,ZB(2) in Hsekping for calling program 



50000 
50010 
50020 
50030 
50040 

50050 '** HOUSEKEEPING 

50060 ZIS="Place cursor on ": ZJ$=" corner and press <ENTER>" 
50070 ZLS="UPPER LEFT": ZR$="LOWER RIGHT" 

50080 Z0$="«: FOR ZX=0 TO 63: Z0S=Z0S+CHRS (PEEK (15360+ZX) ) : POKE 1 
5360+ZX,32: NEXT ZX: PRINT @ 0, ZIS+ZLS+ZJS; 

50090 POKE 16412,1: POKE 16419,191: ZR=8: ZC=32: ZU=64*ZR+ZC: ZS-" 
": ZX=0 

50100 '** DEFINE REGION TO BE PRINTED 
50110 FOR Z1=1T01 

50120 FOR Z2=1T01: ZT$=CHR$ (PEEK(15360+ZU) ) : PRINT @ ZU,CHR$ (14) ; : 
FOR ZY=1 TO 15: NEXT ZY: PRINT § ZU ,CHR$ ( 15) ; : PRINT @ ZU,ZT$;: F 
OR ZY=1 TO 15: NEXT ZY : Z$=INKEY$: Z2=-(Z$<>""): NEXTZ2 
50130 IF ASC(Z$)=8 OR ASC(Z$)-9 OR ASC(Z$)=10 OR ASC/ZS)=91 THEN G 
OSUB 50400 

50140 IF ASC(Z$)=13 THEN GOSUB 50500 
50150 IF ZX=1 THEN PRINT @ 0, ZI$+ZR$+ZJ$; 
50160 Z$="": PRINT @ ZU,"";: Zl=-(ZX=2): NEXTZ1 
50170 '** PRINT LINE PRINTER GRAPHICS 

50180 PRINT g 0,Z0$;CHR$(15);: LPRINT CHR$ ( 27 ) ; CHRS ( 20 ) ; STRINGS ( 3 , 
138) 

50190 ZO(l)=2*ZT(l): ZO( 2) =2*ZB(1) +1: ZD ( 1 ) =3*ZT ( 2) : ZD ( 2) =3*ZB( 2) 
+2: ZR=ZT(2) 

50200 FOR ZY=ZD(1) TO ZD(2) 

50210 ZP$(1)="": ZP$(2)="": if ZY/3=ZR THEN GOSUB 50600 
50220 FOR ZX=ZO(l) TO ZO(2) 
50230 IF POINT(ZX,ZY) THEN ZP$ (1) =ZP$(1) +"0* ELSE ZP$ (1) =ZP$ ( 1) +" 

50240 IF POINT(ZX,ZY) THEN ZP$ ( 2) =ZP$ ( 2) +"» " ELSE ZP$ ( 2) = ZP$ ( 2) +" 

50250 NEXT ZX 

50260 IF ZPS(1)=STRING$(LEN(ZP$(1)) ,32) THEN Zl=-1 ELSE Zl=0 

50270 IF(ZY-1)/3=ZR THEN: IFZ2 THEN ZR=ZR+1 ELSE LPRINT TAB(ZO(l)+ 

2) CHR$(27) ;CHR$(14);Z0S;CHRS(27) ;CHRS(138) : ZR=ZR+1 

50280 IFZ1 THEN LPRINT CHRS ( 27 ) ; CHR$ ( 28) ELSE LPRINT TAB(ZO(l)+2) 

ZPS(l) ;CHR$(27) ;CHR$(138) : LPRINT TAB(ZO(l)+2) ZPS ( 2) ; CHRS ( 27) ;CHR 

S (30 ) 

50290 NEXT ZY 

50300 '** EXIT FROM GRAPHIX/SUB SUBROUTINE 

50310 LPRINT STRINGS(3,138) ;CHRS(27) ;CHR$(19) 

50320 POKE 16419,176: POKE 16412,0: RETURN 

50330 '******** 

50400 '** MOVE CURSOR 

50410 IF ASC(Z$)=8 THEN: IF ZC>0 THEN ZC=ZC-1 

50420 IF ASC(ZS)=9 THEN: IF ZC<63 THEN ZC=ZC+1 

50430 IF ASC(Z$)=10 THEN: IF ZR<15 THEN ZR=ZR+1 

50440 IF ASC(ZS)=91 THEN: IF ZR>0 THEN ZR=ZR-1 

50450 ZU=64*ZR+ZC: RETURN 

50460 '** 

50500 '** ENTER CORNER 

50510 IF ZX=0 THEN: IF ZU=1023 THEN RETURN ELSE ZT(1)=ZC: ZT(2)=ZR 

50520 IF ZX-1 THEN: IF ZC<ZT(1) OR ZR<ZT(2) THEN RETURN ELSE ZB(1) 

=ZC: ZB(2)=ZR 

50530 ZX=ZX+1: RETURN 

50540 '** 

50600 ■** LOAD LETTERS 

50610 Z0S="" 

50620 FOR ZC=15360+64*ZR+ZT(1) TO 15360+64*ZR+ZB( 1) 

50630 IF 31<PEEK(ZC) AND PEEK(ZC)<128 THEN Z0S=Z0 S+CHRS (PEEK ( ZC) ) 

ELSE Z0$=Z0S+" " " 

506 40 NEXT ZC 

50650 IF Z0$=STRING$(LEN(Z0S) ,32) THEN Z2=-l ELSE Z2=0 

50660 RETURN 

50670 '** 
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Sams unlocks the secrets of your TRS-80® 
microcomputer with eight great books that 
show you how to process data, enhance 
your programming skills and control and 
receive information from a number of 
external devices. 

INTERMEDIATE PROGRAMMING FOR 
THE TRS-80® (MODEL I), No. 21809, $9.95, 
leads you smoothly Uom standard BASiC to 
machine- and assembly-language 
programming. 

TRS-80® ASSEMBLY LANGUAGE MADE 
SIMPLE, No. 21851, $12.95, shows you 
how to effectively utilize the existing Level II 
BASIC ROM assembly language 
subroutines. 

TRS-80® MORE THAN BASIC, No. 2181 3, 
$ 1 0.95, takes you beyond higher-language 
programming to the efficient and powerful 
realm of assembly-language programming, 
where you can use the Z-80 instruction 
code to perform functions not practical or 
possible under BASIC. 



MOSTLY BASIC: APPLICATIONS FOR 
YOUR TRS-80®, BOOK 1 (No. 21788, 
$12.95) and BOOK 2 (No. 21865, $12.95) 
together contain more than 50 BASIC 
programs for use in your home or office. 
These programs can help you save money 
on investments, entertain, and educate 
yourself and your family. 

The heart of your TRS-80® 
microcomputer is its Z-80 microprocessor. 
With THE Z-80 MICROCOMPUTER 
HANDBOOK, No. 21 500, $1 1 .95, from 
Sams, you will learn about the internal 
architecture and numerous interfacing 
signals of this popular device. 

With TRS-80® INTERFACING BOOK 1 
(No. 21633, $10.95) and BOOK 2 (No. 
21739, $11. 95) you will learn to use your 
microcomputer's internal signals to control 
and monitor external circuitry via 
BASIC-language programs. 

Once you understand how your TRS-80® 
operates, your applications are limited only 
by your own imagination. Sams holds the 
key to freeing your creativity. 



To order these Sams Books or to get the 
name of your local Sams retailer, call 
800-428-3696 toll-free, or 317-298-5566 
and reference AD1 46. 
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SAMS BOOKS 

Howard W Sains & Co , inc. 

4300 West 62nd Street, PO. Soy 70S'.' 

Indianapolis IN 46206 
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AUTO-WRITER 




NEW! 



YOU ALREADY OWN THE BEST DATA 
BASE MANAGER AVAILABLE . . . 



It's Your Word Processor . 



JJUse your word processor to craate and maintain a 
FREE FORMAT data baeo. There is NO NEED TO ABBREVIATE 

. because of fixed-length fields. 

Sort your data base by any field. 

Print form letters and reports, automatically selecting and 
extracting information from your data base. 

Use format codes to control the printing of form letters and 
reports. 

Create subsetB of your data base with the powerful SELECT-IF 
software. 

Requires 48K, 2 disk drives, and lower case Model I or III. 
Available for moat Disk Operating Systems. 

NOW AT THE SPECIAL INTRODUCTORY PRICE OF S72.83 

[Manual available separately for 520.00) 

auto-writer . . IN A CLASS BY ITSELF 

WRITE OR CALL NOW FOR A FREE BROCHURE 

MIDWEST DATA SYSTEMS 

a division of Walonick Associates, Inc. 

5624 Girard Ave. So., Minneapolis, MN 55419 

^148 [612)866 9022 




!!NOW AVAILABLE!! 

I NDEX 

Sequential 

Access 

Method 

* Get and Put Records to Disk File by "KEY" 

* Read File in Key Sequence Without Sorting 

* Delete Records Without Recopying File 

* Add Records to Disk Files in Any Sequence 

* Variable Key Length From 1 to 50 Characters 

* Machine Language or Basic Subroutines. 

BUSINESS APPLICATION ADVANTAGES 

- Improved Disk Utilization 

• Easier Program Development 

- Improved Operating Characteristics 

- Reduce or Eliminate Sorting 

- Improved Performance 



ISAM SUBROUTINES 
ISAM UTILITIES 



Documentation 

On Diskette $90 00 



NEW! MACHINE LANGUAGE + BASICSUBS — $140 

— PLUS — Free Mailing List Sample Application 
Add 6% Sales Tax for California Orders 
-150 

TRS-80 MODEL I, II, & III and CPM SOFTWARE FROM 

Johnson Associates - or - Telephone Order Line 

For Bank Card Sales 



P.O. Box 1402 
Redding, CA 96001 



(916)221-0740 



WRITE FOR FREE CATALOG 



graphics character) it adds a 
blank. Finally, before returning, 
it checks at line 50650 to see if 
there are any alphanumeric data 
to be printed or if Z0$ is all 
blanks (ASCII code 32). The 
routine sets Z2 to minus 1 (logi- 
cal true) as a flag meaning 
"Nothing to be printed" and to 
zero (logical false) if there is 
something alphanumeric to 
print. 

Lines 50220-50260 do the 
same job for your row of pixels. 
The program Points at each pix- 
el in the row ZY from Over ad- 
dress ZO(1) to ZO(2). If the pixel 
is set (lighted), Point returns a 
logical true; O and # are added 
to the two print strings ZP$(1) 
and ZP$(2) respectively. The pro- 
gram constructs your line printer 
pixel by overprinting the O with 
the n . This operation creates a 
nice little black rectangle when 
the LP IV is set in Tiny mode. If 
the pixel is not set (unlighted), 
the program adds a blank to 
your print strings. Line 50260 
checks to see if there are any 
pixels to be printed and sets the 
flag Z1 appropriately— logical 
true (minus 1, if there is nothing 
to be printed, and logical false 
(zero) otherwise. 

Now you are ready to print. 
Line 50270 checks to see 
whether you are in the middle 
row of pixels for the current row 
(ZR) of print cells. If you are, and 
if there is alphanumeric infor- 
mation to be printed (IFZ2 
checks the flag Z2 for logical 



true or false), the program 
LPRINTS it in the appropriate 
horizontal location. Allowing a 
two-column margin, you Tab 
over to your first print position 
ZO(1) — thus TAB (ZO(1) + 2). 
Since each print cell is two pix- 
els wide, the program takes ad- 
vantage of another nice feature 
of the LP IV and ensures that 
your alphanumeric string Z0$ 
lines up properly with the 
graphics by printing it double 
width. The CHR$(27);CHR$(14) 
starts the double width opera- 
tion; the LP IV terminates it au- 
tomatically. The CHR$(27); 
CHR$(138) is a full reverse line 
feed which keeps you on the 
same print line by cancelling the 
automatic full line feed forward 
inserted by the LP IV. 

Finally, line 50280 prints the 
graphics. If there are no graph- 
ics to print (IFZ1 checks the ap- 
propriate flag), the program rolls 
the paper forward one-half line 
with CHR$(27);CHR$(28). If there 
are graphics, however, the pro- 
gram prints two ZP$ strings. 
First, it LPRINTs the string of Os 
(ZP$(1)), and rolls back the paper 
to the same line with CHR$(27); 
CHR$(138). It then overprints the 
string of #s (LP$(2)) and posi- 
tions the print head on the next 
half-line by using only a half 
reverse, CHR$(27);CHR$(30). 
Then you are ready for your next 
row of pixels— NEXT ZY. 

The program finishes by roll- 
ing the paper up another half 
inch, returning the LP IV to 10 



Program Listing 2 



SKETCHER -- Screen Drawing Board 

by Jay F. Rosenberg — 10/23/81 

Use with GRAPHiX/SUB for Printed Graphics Output 



1000 

1005 

1010 

1 8 3 ', 

1020 CLEAR 1000: DEFINT A-Z: DIM ZO ( 2) , ZD ( 2) , ZP$ ( 2) , ZT( 2) , ZB 

1030 VR=15360: CN$=CHRS ( 14 ) : CF$=CHR$(15) 

1040 POKE 16412,1: POKE 16419,191 

1050 CI,S: CU=542: PRINT g CU,""; 

1060 FORR=lT01 

1070 X$="-: AX=0 

1080 FORR0=1TO1 

1090 TS=CHRS(PEEK(VR+CU) ) 

PRINT g CU,CN$;: FOR N=l TO 15: NEXT N 
PRINT g CU,CF$;: PRINT g CU,T$; 
FOR N=l TO 15: NEXT N: X$=INKEY$ 

R0=-(XS<>"") : NEXTR0 

AX=ASC(X$) 
1150 IF AX = 27 THEN G0SUB 1500 
t a f i x 

1160 TF AX=8 OR AX = 9 OR AX=10 OR AX = 91 THEN GOSUB 1600 'Arrow 
1170 IF (3KAX AND AX<91) OR (96<AX AND AX<128) THEN POKE VR+CU,A 



1100 
1110 
1120 
1130 

1140 



'Solid block 
'Center cursor 
'Begin Main 
'Null Inputs 
'Begin input 
'Save screen 
'Blink cursor 
'Restore screen 
'Get keypress 
'Loop if none 
'Find ASCII 
SHIFT UP-ARROW = G 



1180 R=-(AX=31) : NEXTR 

1190 POKE 16412,0: POKE 16419,176 

1195 '* 



'Exit on <CLEAR> 
'Normal Cursor 



1205 '** NeXt instcuction calls GRAPHIX/SUB. Change if needed. 

'LP IV Graphics 
R=-(X$=CHR$(13) ) : NEXTR 'Loop here 



1210 GOSUB 50000 
1215 '* 

1220 FORR=lT01: X$=INKEY$ 
til <ENTER> 



Program continues 
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'Apple; 
12,20,40and 00 Megabyte systems 

Completely assembled and tested subsystem inc" 



witchable power supply 
Winchester drive 

• Host adapter car 

• Sealed case 



$&i4®?-&t M 






^ 



• Formatting program 

Assigns alternate sectors 



during formatting assuring 



• Warranty: The system has a full one year 
warranty on all parts and workmanship 

• Also available: attach for TRSDOS, 
OASIS*, Apple DOS 

• Optional 5 1 / 4 " floppy (shown) 






:w 






QuC 

178 Main Street 

Metuchen, New Jersey 



201-548-2135 







<,- \.¥ : SS 



'.•£&'•< 



Program continued 



123 

1240 
1500 

1510 
1520 
1530 
1540 
1550 
1560 
1570 
1600 
1610 
1620 
1630 
1640 
1650 



'Program exit 

Graphics Routine 
'Begin input 
'Get keypress 
'Save if numeral 
'Exit if <ENTER> 



CLS: END 

GXS="": IS="": AI=0 
F0RR1=1T01 

IS = INKEYS: M=ASC(IS+CHRS(D) 

IF 47<AI AND AK58 THEN GX$=GX$ + I$ 
R1=-(AI=13) : NEXTR1 

NG=VAL(GX$): IP 3KNG AND NG<192 THEN POKE VR+CU.NG 
RETURN 
i «* 

IF AX=8 THEN: IF GU/6 4<>INT (CU/6 4 ) THEN CU=CU-1 

IF AX = 9 THEN: IF (CU-63) /640INT ( (CU-63 ) /64) THEN CU = CU + 1 

IF AX=10 THEN: IF CU<960 THEN GU=CU+64 

IF AX=91 THEN: IF CU>63 THEN CU=CU-64 

PRINT @ CU,"";: RETURN 'Move- cursor 



cpi mode by CHR$(27);CHR$(19), 
and POKEing that cursor back 
to its normal small blinking self 

before returning from GRAPHIX/ 
SUB to the calling program. 



Using GRAPHIX/SUB 

Program Listing 2, Sketcher, 
lets you put graphics on the 

screen. 

Most of Sketcher will by now 



UNITS 



300: 



zoo; 



100: 



MM 



1977 



MM 



Mil 
MM 
MM 
MM 
MM 
MM 
•MMMMMMMMMMMMMMM 
1980 1981 1982(est) .PAR 

SALES OF COMPUTERIZED WIDGETS 




IMM) 

1978 1979 



Fig. 1. 



look familiar to you. The house- 
keeping lines 1020-1050 estab- 
lish the string space and arrays 
GRAPHIX/SUB will use. They de- 
fine the beginning of video RAM 
(15360), introduce abbreviations 
for "cursor on" and "cursor off" 
control commands, and POKE 
in a solid block cursor which is 
then positioned at the center of 
a blank screen. As before, you 
handle cursor blinking. Lines 
1080-1130 are the "Repeat 
flash-cursor Until input-from- 
keyboard" loop which we packed 
into line 50120 of GRAPHIX/SUB. 
When a character is input into 
X$ by the INKEY$ command, the 
program exits from this loop and 
(at line 1140) finds the ASCII 
code for that character. 

If you input an arrow (ASCII 
codes 8, 9, 10 and 91), line 1160 
calls the "Move Cursor" subrou- 
tine at I600- 16*0 which checks 
for the edge of the screen and 
moves the cursor one position in 
the direction corresponding to 
the arrow. The cursor PRINT® 
address is stored in CU and 
operated on directly, since in 



PRODUCTS FOR YOUR RADIO SHACK 





MICROTEXT COMMUNICATIONS VIA YOUR MODEM! 



Now you can use your printer with your modem! Your computer can be an 
intelligent printing terminal. Talk to timeshare services or to other personal 
computers; print simultaneously through a second printer port; and re-display 
text stored in memory. Download text to Basic programs; dump to a cassette 
tape, or printer, or both. Microtext can be used with any printer or no printer at 
all. It features user-configurable duplex/parity for special applications, and can 
send any ASCII character. You'll find many uses for this general purpose 
module! Available in ROMPACK, ready-to-use, for $59.95. 



SOFTWARE DEVELOPMENT SYSTEM 

The Micro Works Software Development System (SDS80C) is a complete 6809 
editor, assembler and monitor package contained in one Color Computer program 
pack! Vastly superior to RAM-based assemblers/editors, the SDS80C is non- 
volatile, meaning that if your application program bombs, it can't destroy your 
editor/assembler. Plus it leaves almost all of 16K or 32K RAM free for your 
program. Since all three programs, editor, assembler and monitor are co-resident, 
we eliminate tedious program loading when going back and forth from editing to 
assembly and debugging! 

The powerful screen-oriented Editor features finds, changes, moves, copys and 
much more. All keys have convenient auto repeat (typamatic), and since no line 
numbers are required, the full width of the screen may be used to generate well 
commented code. 



The Assembler features all of the following: complete 6809 instruction set; 
complete 6800 set supported for cross-assembly; conditional assembly; local 
labels; assembly to cassette tape or to memory; listing to screen or printer; and 
mnemonic error codes instead of numbers. 

The versatile ABUG monitor is a compact version of CBUG, tailored for debugging 
programs generated by the Assembler and Editor. It features examine/change of 
memory or registers, cassette load and save, breakpoints and more. SDS80C 
Price: $89.95 



THE 




mi mi mi nut- 



GAMES 



'Ml 



Star Blaster — Blast your way through an asteroid field in this action-packed 
Hi-Res graphics game! Available in ROMPACK; requires 16K. Price: $39.95 
Pac Attack — Try your hand at this challenging game by Computerware, with 
fantastic graphics, sound and action! Cassette requires 16K. Price: $24.95 
Berserk — Have fun zapping robots with this Hi-Res game by Mark Data 
Products. Cassette requires 16K. Price: $24.95 

Adventure — Black Sanctum and Calixto Island by Mark Data Products. Each 
cassette requires 16K. Price: $19.95 each. 



ROMLESS PAK I — is an empty program pack capable of holding two 2716 or 

2732 EPROMs, allowing you up to 8K of program! The PC board inside comes 

with sockets installed, ready to go with the addition of your custom EPROMs 

Price: $24.95 

2-PASS DISASSEMBLER — with documentation package. 16K; cassette. 80C 

Disassembler Price: $49.95 

CBUG — Machine language monitor. CBUG Cassette Price: $29.95 

CBUG ON 2716 EPROM: Can plug into Romless Pak I. CBUG ROM Price: 

$39.95 

PARALLEL PRINTER INTERFACE — serial to parallel converter allows use of all 

standard parallel printers. PI80C Price: $69.95 

Assembly Language Programming, by Lance Leventhal. Price: $16.95 

MEMORY UPGRADE KITS: 4-1 6K Kit Price $39.95. 16-32K (requires soldering 

experience) Price: $39.95 

PARTS & SERVICES: SAMs. 6809Es, RAMs, PIAs. Call for prices. 



7 y\ [ I / ^ i r , nnn WE SH,P FR0M ST0CK! 

IK AVllvQylr v^Q ) ' U &&£?' GOOD STUFF. Master Charge/Visa and COD Accepted 

W@l^^ P.O. BOX 1110 DEL MAR, CA 92014 714-942-2400 



■,V.b'<i'J>.aJ^-ii:,-i 
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BUY DIRECT 



c^b WE SELL THE FULL LINE OF TRS-80 AT WHOLESALE PRICES <^=> 



MODEL II 

26-4002 64K 1 Drive $3279 

Ask About Hard Drives 

MODEL III 

26-1062 16K .$839 

26-1066 48K with 

2 Drives. RS232 $2059 

COLOR COMPUTER 

26-3001 4K $318 

26-3002 16K Ext. Basic $469 

26-3003 32K Ext. Basic $569 

POCKET COMPUTER 

26-3501 Pocket Computer $188 

TRS-80 COLOR COMPUTER 
*DISK DRIVES* 

26-3022 Disk Drive #1 $498 

26-3023 Disk Drive #2,3,4 $338 

LEARN TO 

"DO IT YOURSELF" 

AND SAVE 



| / MICRO 

1 MANAGEMENT 

m SYSTEMS 



TRS-80 




C 



TIED 
MERS 



WRITE FOR YOUR 
FREE CATALOG 

ORDER TOLL FREE 

1-800-841-0860 

•LARGE INVENTORY 
•FAST DELIVERY 

TM - TANDY CORPORATION 

FREE COPY OF WARRANTY UPON REQUEST 

MICRO 
MANAGEMENT 
SYSTEMS, INC. 

DEPT. NO. 4 
115 C. SECOND AVE. S.W. 
CAIRO, GA. 31728 
GA. 912-377-7120 




TRS-80 



TM 



MODEL III SOFTWARE 

26-1563 Scripsit I & III $79.00 

26-1566 Visicalc I $83.00 

26-1567 Visicalc III $83.00 

26-1552 General Ledger $90.00 

26-1553 Inventory Ctl $90.00 

26-1556 Payroll $180.00 

26-1555 Accts. Receivable. . $135.00 

26-1554 Accts. Payable $135.00 

26-1558 Bus. Mail List $90.00 

26-2201 Fortran I $90.00 

26-1562 Profile $72.00 

26-1592 Profile III Plus $180.00 

26-1565 Microfiles $90.00 

26-1569 Visicalc $180.00 

26-1590 Super Scripsit $180.00 

26-1591 Scripsit Dictionary. . $135.00 

26-1582 Time Manager $90.00 

26-1580 Project Manager $90.00 

26-1581 Personnel Manager. . $90.00 
26-1568 Medical Off. Syst. . . $270.00 
26-2203 Cobol $180.00 

COLOR COMPUTER SOFTWARE 




BUY I 
DIRECT 


1 






MODEL II SOFTWARE 

26-4515 Profile Plus . $270.00 

26-451 1 Visicalc II $265.00 

26-4512 Profile II $162.00 

26-4501 General Ledger $180.00 

26-4502 Inventory Mgmt $180.00 

26-4503 Payroll $360.00 

26-4504 Accts. Receivable. . $270.00 

26-4505 Accts. Payable $270.00 

26-4507 Mail List II $108.00 

26-4701 Fortran $270.00 

26-4703 Cobol $270.00 

26-4705 Compiler BASIC $180.00 

26-4540 Statistical Analysis . $90.00 
26-4508 Medical Off. System$675.00 
26-4509 Manuf. Inventory. . . $675.00 

26-4513 Job Costing $135.00 

26-4520 Time Accounting. . . $450.00 
26-4621 Personnel Search. . . $270.00 

26-4560 Westlaw $225.00 

26-4531 Scripsit 2.0 $360.00 

26-4534 Scripsit Dictionary. . $180.00 

POCKET COMPUTER SOFTWARE 



v* 95 



•See List of Advertisers on page 402 
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Convert your TRS-80 Model I or III into a 



Now you can de* t " :, .' 6-> oased, stand-alone devices such as games, robots, 
instruments and pen:,'i.- : vvollors. by using your TRS-60 as a development system. 
The DEVELOPMA7. . :„g" .'-to the expansion connector of your TRS-80 and adds 
PROM PROGRAMMING and IN-CIRCUIT-EMULATION capabilities to your 
system (with or without expansion interlace). 

Complete instructions and sample schematics are included to help you design your 
own simple stand-alone microcomputer systems. THESE SYSTEMS CAN BE AS 
SIMPLE AS FOUR ICs. one TTL circuit tor clock and reset, a Z-80, an EPROM, and 
one peripheral interface chip. 

When the In-Circuit-Emulation cable is plugged 
into the Z-80 socket of your stand-alone system, 
the system becomes a part ol your TRS-80 You 
can use the lull power ot your editor/assembler s 
debug and trace programs to check out both the 
hardware and the software Simple lest loops 
can be used to check out Hio hardware then the 
system program can be run to debug the logic ol 
your stand-alone dev ce 

Since the program is kept in TRS-80 RAM, 
changes can be made quickly and easily When 
your stand-aione device works as desired you 
use the Developmate s PROM PROGRAMMER 
to copy the program into a PROM. With this 
PROM and a Z-80 in p>ace ol the emulation 
cable , ur stand-alone device will work by itself 

The DEVELOPMATE is extremely compact: Both the PROM programmer and the 
In-Circuit-Emulator are in one small plastic box only 3.2" •■ 5.4". A line-plug mounted 
power supply is included The PROM programmer ''as a personality module which 
defines the voltages and connections ot the PROM so that future devices can be 
accommodated. However, the system comes with a universal" personality module 
which handles 2758.2508(8K). 2716,2516(16K). 2532(32K). as well as the new elec- 
trically alterable 2816 and 48016(16K EEPROMs). 

The COMPLETE DEVELOPMATE 81, with software, power supply, emulation 
cable TRS-80 cabie, and universal personality module, is ONLY S329! 

please indicate model 1 or model 3 version 
ORION INSTRUMENTS 




m 



1 72 Otis Avenue Dept M WooGside CA 94062 

(415)851-1172 

Master Charge and Visa phone orders accepted. 

California residents please add 6% sales tax. 



* * * 
Good Thi» Month 



NEW LOW PRICES! 

RADIO SHACK-CENTRONICS-EPSON PRINTERS 



INSERTS 



RELOADS 



NEW 



EXACT REPLACEMENTS made inV^You SEND your used [CARTRIDGES 
our own shop feature LONG-LIFE ^VCARTRDGES to us. \ (from the 
.and HEAVY INKING. Our instructions ^^ We RELOAD \ manufacturer) 

nake inserts easy to put in. ^s. them for you. 

Cartridges NOT 

DAISY WHEEL T~ 

Carbon Film (26-1419) 26.00/6 50.00/doz 15.00/3 22.00/3 

Red, Green 
Blue, Blown 



COLORS 

Long-Life Fabric (1449) 
LP VI-VIII (26-1418) 

LP lll-V (26-1414) 

I p 1-il-iW 7 00 Zip-Pack 
LI- I II IV 730/737/779 

EPSON MX 70-80-100 

CENTRONICS 7-meg 

702/703/704/753 



included. 
26.00/6 50.00/doz 
32.00/6 60.00/doz 
25.00/3 95.00/doz 
20.00/3 76.00/doz 

21.00/3 80.00/doz 
11.00/3 42.00/doz 
21.00/3 80.00/doz 



15.00/3 
18.00/3 
9.00 ea 
9.00 ea 
9.00 ea 

9.00 ea 
10.00 ea 



21.00/2 
22.00/2 
25.00/2 

so 25/2 
ioo 46/2 
26.00/2 



Volume 1 



MODEL II 8" GAME DISCS 



Biorhythms, Trap 
Rip Cord, Yacht Sea 
Concentration & 4 More 



$25.00 each 



Volume 2 

Ugly, Bingo 

Towers, Blackjack 

Farkle, Pony & 3 More 



SEND CHECK, MONEY ORDER or C0D(S2 oo ups) TO: 



e© 



BCCOMPCO 



800 South 17 Box 246 417 932-4196 
152 Summersville MO 6557 1 

I We Pay Shipping on PREPAID Orders! Net 30 Accounts Available 

„ i n i /in .he image mating 



IRIED ABOUT ORDERING BY MAIL? Relax. We 



t been business many years and know how lo please the 

tccount. Voi, receive some ol the linest ribbons available made ol out own exclusive 

irbon lilm. Our ribbons lit your DMnter exactly. COMPARE, bul BEWAREI We order 

iived a new fabric ribbon you 



IMAGE PLUS " labri 
ali our competitor's producls and 

had to unwind and dump out on the table before you could use il? We have. Or, carbon film inserts that had, „ 
end-of-ribbon sensor"? Or, r-meg cartridges witti only HALF enough ribbon at full retail? RIBBON manufacture 
and distribution is our only business. We use the latest state--of-1t>e-art production equipment and are blessed 
with a fine, dedicated staff. We fully guarantee all our products because we make them ourselves. You must 

made fresh daily and are shipped within 24 hours. Write or c.al 
nqurries welcome. ~/y_ f^ p res|dBnt ^^^ 



this case we do not need the row 
and column counts. 

If you input any standard key- 
board character (ASCII codes 
32-90 and 97-127), line 1170 dis- 
plays it by POKEing it into the 
appropriate screen location. 
The only new twist, in fact, is in 
line 1150 and the little subrou- 
tine (beginning at 1500) which is 
called there. Line 1150 checks 
for ASCII code 27, the code cor- 
responding to the combination 
of Shift and the up arrow. Press 
Shift and up arrow together 
whenever you want to display a 
graphics character at the posi- 
tion of the cursor on the screen. 
The cursor disappears, and line 
1150 calls the graphics routine 
at 1500. 

In the graphics routine, the 
ASCII code for the graphics 
character you wish to display 
(128-191) is input from the key- 
board in the form of a string 
(GX$). Lines 1510-1540 are an- 
other Repeat .. .Until loop 
which accepts inputs from the 
keyboard until Al, the ASCII 
code of the input, equals 13(that 
is, until you press Enter). The 
ASC function used in line 1520 
converts each keypress into its 
ASCII code. (CHR$(1) is added to 
l$ before using ASC, since the 
ASC function will crash on a null 
string input. If there has been no 
keypress, l$ will be "" and Al will 
be set to ASC(CHR$(1)), which is 
1.) Line 1530 checks to see if you 
have input a numeral 0-9 (ASCII 
codes 48-57); if so, the routine 
adds it to the string GX$. When 
you press Enter, Basic's logical 
true for Al equals 13 forces an 
exit from the input loop. Line 
1550 then uses the VAL function 
to convert the string of numerals 
(GX$) into an integer (NG). 

Finally, if NG is the ASCII 
code of a valid alphanumeric or 
graphics character (32-191), the 
corresponding character is 
POKEd into the cursor position 
on the screen and control re- 




|,i;,mmri 



turns to the main program. The 
inclusion of all valid alphanu- 
meric codes in addition to the 
graphics codes allows you to 
display and print characters 
from 91-96 which are not other- 
wise accessable from the key- 
board. 

Press the Clear key to exit the 
main program. Clear corre- 
sponds to an ASCII code of 31, 
which line 1180 establishes as 
the Until condition for the en- 
tire Repeat. . .Until loop begun 
at line 1060. When the screen 
looks the way you want it press 
Clear. The cursor vanishes 
again (POKEd back to normal by 
line 1190) and then reappears a 
few moments later, along with 
the message line and first in- 
struction for GRAPHIX/SUB 
(called at line 1210). 

Sketcher line 1220 (another 
Repeat .. .Until loop) pauses 
and holds the picture on the 
screen following the LP IV print- 
er operations so that you can 
compare the screen graphics 
with the printer graphics. Press 
Enter one last time to end. 

Load Sketcher and GRAPHIX/ 
SUB, power up your LP IV, and 
start drawing. Fig. 1 and 2 show 
sample outputs. Fig. 1 is a bar 
chart or histogram for the sales 
of computerized widgets (You 
know what they are!). Fig. 2 is 
the graphic representation of a 
classical zoological equation. 
The printed versions are a little 
compressed as a result of the 
difference in the depth-to-width 
ratio, but still every bit as recog- 
nizable as their screen versions. 

Notice in printing alphanu- 
meric data in double width that 
the labels are horizontally cen- 
tered in the boxes. You may 
wish to center the labels verti- 
cally as well, by compensating 
for the fact that the LP IV prints 
letters and numbers on a single 
line, while they are two pixels 
deep on the screen (the top two 
rows of a print cell). ■ 





mm 

n 

M 



Fig. 2. 
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E/Z-SCREEN DESIGN 

By using your key boon 
commands let you forrr 
chanama channels, vc 



SCREEN'S formatting 

3 modify vour screen Like: 



what you see on screen is what you get, you never get < 
layout or write a program you're not completely 
satisfied with,: , - : . - 

• Want to center; a line? Maybe: a few? Just give the 
command and' watch it happen— automagicaliy 1 Y 
can even repeat information, horizontally or vertical 

Best of all, if you still don't like what you see, you can 
•totally rearrange. the screen design— even after you' 
written your program; ■ 
E/Z-SCREEN lets you move any and all fields of \ 



progrc 
printin 



reaily goer 'o w :■•:*: >c: yc-i. 
THE GRAND FINALE 

;:;■ 8) ite-- ';• ■ s Teen process 

code, 'making *. o u scresr 

work and look tike those 

written for larger industrial , 

computers. The. code 

controls the displaying 

and reading of data, and 

the printing of text on the 

screen— for up to 12 

' ." , screens per program! 

** What's more, the keyboard 
uly the program director, in total control of 
j entered. Data changes, corrections., and 

s are all made easily by using the various 
cursor control keys. 

A MATTER OF RECORD 

KEEN even makes documentation of your 
sy by automatically cross-referencing cmcf 
>er (if printer is connected to systerhj'. • 

, EASY ON THE BUDGET 



>npaj 



Eboutth 



to or< 



ame as an average black 
nd white T.V. Only $149.95. 



*Compaii6ie 



SOURCE LIB 

Systems 



call toll free 800-223-1087. 
In NY. State call 212-751-8891. 

iformation, write SOURCE LIB Systems, Inc., 
1670 Pershing St., Valley Stream. NY. 11880. 



credit caress accep 
>ropriate sales tax. 



GRAPHICS 



Use Boothe's techniques on your Model II. 




Jesse W. Baker 

P.O. Box 145 

Fort Kent, ME 04743 



A shortage of fun programs 
for the Model II character- 
izes all the computer maga- 



zines. Everyone writes programs 
for the Level II or the Model III 
and by-passes the Model II com- 




Fig. 1. 
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The Key Box 

Model II Basic 
Model II 



pletely. I own a Model II and I too 
like to play with my computer; 
so I rework programs to run on 
my computer. 

The Model ll's graphic capa- 
bilities are limited, but it can do 
a nice job with what it has if you 
take the time. Usually, you can 
modify programs written for the 
Level II without much hassle. 
You can also modify programs 



06 


REM'GRAPHICS IN 3-D 


06 


REM'MODIFIED BY JESSE W. BAKER FOR THE TRS-80 


07 


REM'MODEL II MICROCOMPUTER AND LINE PRINTER V 


08 


REM'BASED ON A PROGRAM WRITTEN BY BOB BOOTHE. 


20 


CLEAR 500 


30 


GOSUB 270 


40 


CLSLPRINT CHR$<27);CHR$(28):LPRINT CHR$(27);CHR$(14) 


50 


PRINT@910,CHR$(26)" PROGRAM RUNNING "CHR$(25) 


60 


DEFINT H — Z 


70 


DIM A$(132) 


80 


FOR X = 1 TO 121 


90 


H = 0:L = 200 


100 


FOR Q = 1 TO 132:A$(Q) = " ":NEXT 


110 


FOR Y = 1 TO 80 


120 


X = (X1— Y)'2 


130 


IF X < 1 THEN 250 


140 


IF X > 80 THEN 240 


150 


C = SQR«X— 40) , (X-40) + (Y-40)*(Y— 40)) + 1 


160 


A = CM213 + .63:M = X— SIN(A + A*A/6)/A/SQR(A)*50 + 40 


170 


IF M > H THEN 200 


180 


IF M < L THEN 220 


190 


GOTO 240 


200 


H = M 


210 


IF M > L THEN 230 


220 


L = M 


230 


A$(M) = "X" 


240 


NEXTY 


250 


FOR I = 1 TO 132:LPRINT A$(I);:NEXT:LPRINT 


260 


NEXT X1 


270 


CLS:PRINT@910,CHR$(26)" END OF PROGRAM "CHR$(25):END 


280 


SYSTEM-FORMS P= 138,L = 130" 


290 


RETURN 


To change the program so it will print different forms, 


change line 160 as follows: 


160 


M = X + EXP(-.004*C*C)"75 + 5 


160 


M = X - EXP(-.004*C-C)'75 + 40 




Program Listing 1. 



Sle 
for 



; t* 




by Jon Bokelman 

Music Synthesis and Percussion 
Model III. 



All the great features of Orchestra-85 enhanced by 
Jon Bokelman's SPECIAL COMPOSER'S EDITION software. 

Orchestra-90 now includes ORCHUTIL a powerful utility 

program for ASCII/Binary conversion, music file packing, 
Model I to Model III tape conversion, and tape/disk 

transfer. 

Plays existing Orchestra-80 and 85 music files in stereo. 

Plugs into any 16K Model III Level II or disk system without 
voiding the warranty. 



Special Composer's Edi. 

Orchestra-90™ $ 4 

pips $2.00 postage and handling 
($5.00 for overseas airmail ) 
CA residents' add 6% sales tax 



Please specify TAPE 





'TM 



. FANFARE 

9fS by Jon Bokelman, author of Orchestra-80, 85 and 90 
PLAY MUSIC AND SOUND EFFECTS 



IN UP TO FOUR-PART HARMONY 
THROUGH YOUR MODEL I 
OR MODEL III CASSETTE PORT! 



Includes our four finest software-only synthesizers: 

SOLO Plays single musical notes and effects. 

DUO Plays two simultaneous musical notes 

or effects, (two-part harmony) 

TRIO Plays three simultaneous musical nofes 

or effects, (three-part harmony) 

QUARTET Plays four simultaneous musical notes 
or effects, (four-part harmony) 

Now you can add fantastic music and sound 

effects to your BASIC program! Our machine- 
language synthesizers are called from BASIC. 
Here's your chance to experiment with music 

synthesis at an incredibly low price 1 



These software synthesizers play through the 

cassette port — no hardware is required 

Each synthesizer comes complete with a special 
song that you will enjoy 

FANFARE includes four music synthesizers and 
sample music for each (ready to load and 
play) plus complete documentation. Supplied 
on cassette. 



$24.95 SUPPLIED ON DISK 

plus $2.00 postage and handling 
($5.00 for overseas airmail) 
CA residents add 6% sales tax 
Mastercard and Visa accepted 



Includes a full-length graphics c< 
demonstrating sound effects by 



>5 - »*tm 



• See List ot Advertisers on page 402 
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written in straight Basic. 

Bob Boothe's article "A Turn 
of the Screw" (80 Microcomput- 
ing, April 1981) featured a series 
of programs for the TRS-80 and 
a Base 2 Printer. I wanted to do 
the same with my equipment. 
Could I make them work on my 
Line Printer V? 

I modified his program number 
5. First I added a GOSUB state- 
ment in Line 30 which sends you 
to the FORMS command. The 
Line Printer V can print 12 lines 
per inch, and 15 characters per 
inch (condensed mode), so I add- 
ed this instruction to the pro- 
gram (Line 40). An additional line 
displays the phrase, "PROGRAM 
RUNNING" (Line 50), on the 
screen. I prefer an X so I changed 



another line to print an X instead 
of a *(Line 230). 

I added another line that 
clears the first message from 
the screen and replaces it with 
"END OF PROGRAM" (Line 
270). The subroutine set up in 
Line 30 allows you to use the 
FORMS command to disable 
the page default settings, and 
insert P = 138, L = 130 (Line 280) 
which allows the program to 
print everything on standard 8 x 
11V2 inch paper. 

Line 160 changes the shapes 
you print on the printer (see 
Figs. 1-3). All three of these pro- 
grams are identical except for 
that line. 

Two other programs that I 
modified to run on the Model II 




print a head of a famous bunny 
and makes the outline. These 
also print on 8 x 1 1 V2 inch paper. 
I made many changes in this 
program and included a gener- 
ous supply of remark state- 
ments to help you along. If you 
want just the outline, change 
Line 110 to read 110 LPRINT 
TAB(X + 15);. 



Send along any graphics pro- 
grams you may have modified 
for the Model II and want to 
share. ■ 

Jesse Baker is a high school 
teacher and is working toward a 
M.Ed, in Educational Computer 
Curriculum design and develop- 
ment. 



Fig. 3. 
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BUNNY HEAD PROGRAM 
LPRINT:LPRINT:LPRINT 

FOR I =0TO4 THIS LINE SETS THE COUNTER FOR THE READ STATEMENT 
READ B(l) THIS LINE READS DATA LINES STARTING AT 210 
NEXT ! 
GOSUB 170 

L = 42 THIS LINE DETERMINES WHAT CHARACTER YOU WANT PRINTED 
LPRINT 

READX:IF X<0 THEN 80 'X SETS THE LEFT MARGIN OF THE PRINTOUT 
IF X>128 THEN 160 THIS SETS THE RIGHT MARGIN OF THE PRINT OUT 
LPRINTTAB(X + 15);:READY THIS LINE TABS LINE 90 OVER TO CENTER 
PRINTOUT 
FOR l=XTO Y 

LPRINTCHRS(L); THIS LINE PRINTS THE CHARACTER FROM LINE 70 
NEXT I 
GOTO90 

GOSUB170:GOTO360 

FOR I = 1TO6:LPRINTCHR$(10);:NEXTI THIS LINE INPUTS A LINE FEED 
RETURN 

DATA POSITIONS FOR LPRINTING OF * 
THIS IS READ BY LINE 40 
DATA 2,21,14,14,25 

DATA 1,2, - 1,0,2,45,50, - 1,0,5,43,52. - 1,0,7,41,52, - 1 
DATA 1,9,37,50, - 1,2,11,36,50, - 1,3,13,34.49, - 1,4,14,32,48, - 1 
DATA 5,15,31,47, - 1.6,16,30,45, - 1,7,17,29,44, - 1,8,19,28,43, - 1 
DATA 9,20.27,41, - 1,10,21,26,40, - 1,11,22,25,38,-1,12.22,24,36, - 1 
DATA 13,34, - 1,14,33, - 1,15,31, - 1,17,29, - 1,18,27, - 1 
DATA 19,26, - 1,16,28, - 1,13.30, - 1,11.31, - 1.10,32, - 1 
DATA 8,33,-1,7,34, -1,6,13.16,34,-1,5,12,16,35,-1 
DATA 4,12,16,35, - 1,3,12,15.35, - 1,2,35, - 1,1,35, - 1 
DATA 2,34, - 1,3,34, - 1,4,33, - 1,6,33, - 1,10,32,34,34. - 1 
DATA 14,17,19.25,28,31,35,35. - 1,15.19,23,30,36,36, - 1 
DATA 14,18,21,21,24.30,37,37, - 1,13,18,23,29,33,38, - 1 
DATA 12,29,31,33, - 1,11,13,17,17,19,19,22,22,24,31, - 1 
DATA 10,11,17,18,22,22,24,24,29,29.-1 
DATA 22,23,26,29, - 1,27,29, - 1,28,29. - 1,4096 
END 



Program Listing 2. 



Instructor of Finance and Accounting at UCLA has written 

AND EDITED THESE NEW PROFESSIONAL PROGRAMS FOR THE TRS - 80® MODEL II 



BUSINESS MANAGEMENT I ($125) 

• Mortgage/Annuity Program 

• Effective Interest Rate Analysis 

• Depreciation Analysis 

• Savings Analysis 

• Internal Rate of Return Program 

• Present Value Analysis with Plot 

BUSINESS MANAGEMENT II ($100) 

• Lease versus Purchase Analysis 

BUSINESS MANAGEMENT III ($110) 

• Linear Regression 

• Confidence Limits on Linear 
Regression 

• Statistical Analysis 

• Curve Fitting 

• Multiple Regression with Plot 

Write or call for free brochure. 




(213) 



OQQQQQQQQQQQQQQQQQQQQQQQQQQQQQI 



Each system on a single 8" diskette 
with TRSDOS Version 2.0A. 

Complete support, extensive documen- 
tation and examples for each program 
All programs are user-oriented 
and "Ready to Go" 
Programs operational for post 10 years. 
Computer consulting available and 
other software packages under 
development. 
Programs written and compiled in an 
efficient program language 

Save postage & handling. 

Send check o< Money Order today to 

CENTURY SOFTWARE SYSTEMS 

1875 Century Park East, Suite 1730. 
879-5911 ,.505 Los Angeles, CA 90067 
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Ever wanted to do things to your 
TRS-80 that Radio Shack said couldn't be 
done? 

How about upper/lower case, reverse 
video, high- resolution graphics, a high- 
speed clock, audible keystrokes, an extra 
keyboard, and a real-time clock? 

Still not enough? 

How about using an 8 -track as a mass 
storage device, making music, controlling 
a synthesiser, monitoring your data bus, 
and individual reverse characters' All 
these hardware modifications, plus lots 
more, are in The Custom TRS-80 and Other 
Mysteries by Dennis Bathory Kitsz - the 
latest book from IJG Computer Services. 



If the 
thought of using a screwdriver 
gives you the shivers then you can turn 

to the software section. In this you learn 




1260 W. Foothill Blvd. 
Upland, California 9 1786 

(714) 946-5805 

TRS-80 is a trademark of Tandy 



how to make 
BASIC programs auto- 
execute, reset the memory size, patch 
into the interpreter, test memory with 
machine- language, pack program lines 
with machine code, and generate sound 
effects. 

The Custom TRS-80 and Other Mysteries is 
more than 300 pages of practical infor- 
mation, and tested software, for $29.95. 
Order your copy now, and start turning 
your TRS-80 into a five- hundred- dollar 
supercomputer! Pick one up at your local 
IJG dealer and B. Dalton bookstores. 



UTILITY 



Upgrade Model II Profile. 



Graphics for Profile 



Charles R. Wood 
327 Seventh Avenue 
Pelham, NY 10803 

One of the Model ll's most 
useful features is its graph- 
ics character set. These graph- 
ics should be available for use in 
Profile for special CRT forms, 
but Profile does not allow ac- 



cess to them. In addition, the 
graphics in my Epson MX-80 
printer should also be available 
to underscore columns and 
headings for reports. 

If you want to highlight a cer- 
tain area on the CRT you can 
use the graphics to paint fancy 
borders with matching corners. I 



use graphics to stress that 
some fields require a data entry, 
while other data is optional. 
When designing reports, I em- 
phasize summary columns with 
very ornate underlines. 

Converted Graphics 

I enhanced Profile by adding a 



Program Listing 1. 



1 f) 

1. 02 

112 
114 
115 



)+ - 3 - 
I + " 4 " 



'PROGRF - 9 JULY 1981 Graphics for PROFILE+ by Charles R. Wood 

'Machine code support is "PROGRF/rac" 

'char 'I' turns on graphics in PROFILE; 'space' for off 

' @ thru - (upper case alpha) for normal graphics. Also 160-191 for printer 

' thru RO (lower case alpha) for revers graphics. Also 192-223 for printer 

120 CLEAR 2000 

122 SYSTEM "LOAD PROGRF/rac" 

125 DEFUSR8=(&HF050) :DEFUSR9= ( &HF060) 'RAM2CRT, CRT2RAM 

128 DEFUSR7=(SHF070) 'VDCHAR 

130 DEFINT I-K:DEFSTR B-D 

140 DIM BB(7) ,KB(240) ,KV(960) ,KW(960) 

150 CLS:PRINT "PROGRF - PROFILE Graphics Converter " :PRINT: PRINT 

152 INPUT "Screens(S) or Reports (R) " ;BB( 0) 

154 KB(0)=0:IF BB(0)="R" THEN KB(0)=1 'flag for reports 

155 IF BB(0)="r" THEN KB(0)=1 

156 INPUT "Name of File n ;BB(0) 
158 I=LEN(BB(0) ) :IF I>8 GOTO 156 
160 BB(6)=LEFT$("/PMP",4) 'Ext for screens 

162 IF KB(0)=1 THEN BB(6 ) =LEFT$ ( "/PRT" , 4) 'Ext for reports 
16 4 BB(7) =BB(0)+LEFT$( "0000000", 8-1) 

166 BB(1)=BB(7)+BB(6) '1st screen or report file name 
168 BB(0)=LEFT$(BB(1) ,11) 'Delete last byte of EXT 
170 BB(2)=BB(0)+"2" '2nd screen/report 
172 BB(3)=E 
174 BB(4)=E 
176 BB(5)=BB(0)+"5" 

200 ON ERROR GOTO 2000 

201 ' Note: Opening a non-existing file will create the file. PROFILE canno 
t accept a null file. Therefore, this program will KILL the null 

file. 
204 PRINT:PRINT:PRINT"First ";:IF KB(0)=0 THEN PRINT"screen 

ELSE PRINT "report "; 
206 INPUT "to edit ";KF 
208 INPUT "Last to edit";KL 
210 IF KF<1 OR KF>5 OR KF>KL THEN 204 
212 IF KL<KF OR KL>5 THEN 204 
215 FOR K=KF TO KL 'screens/reports 
220 OPEN "D",1,BB(K) ,256 

222 FOR I=lTO960:KV(I)=&H2020:NEXT I 'spaces to CRT array 
225 KZ=7:IF KB(0)=1 THEN KZ=8 
240 FOR Kl=l TO KZ 'records 

242 IF Kl=7 AND KB(0)=1 GOTO 912 'Forget Rec#7 of PRT 
245 FIELD1,120 AS CA,120 AS CB 
250 GET 1,K1 

255 IF Kl=l THEN CLS : PRINT"Processing graphics characters" 

320 FOR I=1TO120 'KB is array for 3 lines; 1 byte/element. Element has ASCII 
330 KB(I)=ASC(MIDS(CA,I,1) ) 
340 KB(I+120)=ASC(MID$(CB,I,1) ) 
350 NEXT I 
390 Jl=l 

400 FOR I=J1 TO 239 

420 IF KB(I)=124 GOTO 490 'found a I 
430 NEXTI 

440 GOTO 630 "checked all 3 lines 
490 J5=INT( (I+80)/80)*80: IF KB(0)=1 THEN J5=132 'End of this line 

Program continued 



graphics converter called PRO- 
GRF to the menu (see Program 
Listing 1). PROGRF, written in 
Basic, accepts previously cre- 
ated files from Profile. It con- 
verts keyboard characters to 
graphics characters and writes 
the graphics back to the same 
files. The augmented CRT forms 
are compatible with Profile. 
Data files are not affected. At 
run time, the graphics are dis- 
played along with the standard 
character set. 

Model II graphics consist of 
32 characters (hex 0-1 F) and 
their reverse video equivalents 
(hex 80-8F). You need all 64 for 
effective forms creation. To use 
them, PROGRF translates the 
keyboard characters from @ 
(hex 40) to UL (hex 5F) into the 
graphics group hex 0-1 F. Like- 
wise, lowercase alpha charac- 
ters (hex 60-7F) signal PROGRF 
to add the eight-bit to the graph- 
ics character, causing reversed 
video for the other 32 graphics. 
You can make up a chart of 
graphics versus keyboard char- 
acters by writing the alphabetic 
characters in the graphics col- 
umn on page 300 of the TRSDOS 



The Key Box 

Model II 
64K RAM 
TRSDOS 2.0 
1 Disk Drive 
Printer 
Profile 
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then your TRS-80 COLOR COMPUTER needs the 




It converts your screen from an illegible checkerboard to this: 



olograph mas taken of an 

television screen 
a Color Ccfuputer 
except fcr the installation 
icwyerkit. Characters: 




i ik Imopqrstu^wyz./ 1 : 



• Complete and ready to install — no software needed 

• Nothing to solder — fully assembled, tested, guaranteed 

• Compatible with all Color Computer software 

• Absolutely no loss of hi-resolution graphics modes 

• Optional cut-off switch restores original reverse-caps display 

• European, Kata Kana (Japanese) and Greek characters optiona 

• Designed by 80 Microcomputing's Dennis Bathory Kitsz 




$79.95 complete 




B 



^328 



Drawer 766, Barre, Vermont 05641 
(802)476-7311 

Bare board and kits available. Call or write for information. 

Dealer inquiries invited. "TRS-80 is a trademark of Tandy Corporation 

COD— Visa—Mastercard Dealer Inquiries Invited 



■See List ol Advertisers on page 402 
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Bayesian 

Investment 

Services 



Send $1.00 for 
instructive catalog 
with sample output 
of TRS-80' 
investor programs 
written by economist 
Dr. Richard Harriff 
of BIS. 

Stock Timer™ 
Commodity Timer™ 
Option Valuator™ 
Convertible 
Valuator™ 
Portfolio Valuator™ 

Write or call: 



BIS 



757 Santa Rosita 
Solana Beach, CA 92075 
(714)755-6225 

"TRS-80 is a trademark of Tandy Corp. 

v- 1 83 



* SPECIAL** SPECIAL 

TRS-80 TANDON ADD ON 

IMMEDIATE DELIVERY 



SINGLE SIDED $215.00 
DOUBLE SIDED $335.00 



COMPLETE SYSTEMS 
SINGLE SIDED $345.00 
DOUBLE SIDED $465.00 

INCLUDES: 
MINI DISK DRIVE 
FUSED POWER SUPPLY 
VENTED CABINET 
CABLE 

90 DAY WARRANTY 
FACTORY ASSEMBLED 
FACTORY TESTED 

THESE ARE NEW 5" FD's 



I 



2 INTERFACE, INC - 182 

20932 CANTARA ST 
CANOGA PARK, CA 91304 
(213)341-7914 

VISA AND MASTER CHARGE ACCEPTED 



P-OQia:!; continued 



491 
500 
510 
516 
517 
5i8 
520 
521 
522 
523 

525 

530 
532 
535 
540 
54 J 
550 
599 
6 
634 
63 
635 

6 3 <; 

636 
638 

641 
6 43 
644 
646 
650 
651 
653 
655 
656 
657 
659 
660 
662 
66 4 
6 66 

66 8 
6 7 
671 
6"4 

67 6 
67 8 
6 80 
681 
6 82 
684 
686 
593 
6 9 1 
692 
693 

69 5 
6 96 

70 a 



:rt lines 



integer (word) 
J0) '8-bit added 



568 ' ignc 



702 
7 4 
706 

708 
710 
712 
714 
716 
718 
720 
722 
724 
726 
728 
7 30 
732 
735 
736 
737 
738 
7 39 
7 40 
741 
7 4 2 
750 
7 55 
753 
1 5 8 
761 
76 4 
7 65 
7 67 
770 
7 7 3 
7 7 6 
780 
840 
843 
846 
847 
85B 
853 
856 
912 
915 

93 
940 
944 

94 6 
949 
951 
953 

96a 

2 
2 

202 
2 



IF J5>160 AND Kl=7 THEN 630 'Don't bother with CRT line #22 
FOR J3=I+1 TO J5 'Find 1st 'space' before end of line 
IF KB(J3)=32 THEN 518 
NEXT J3 

GOTO 520 'leave J5 at 80,160 or 240; or 132 for printer 
J5=J3-1 

FOR J4=I+1 TO J5 'convert to graphics 

IF KB(J4)<64 OR KB(J4)>127 THEN 532 'Skip existing graphic codes 
IF KB(0)=1 THEN 599 'EPSON graphics 
' Process for MOD II graphics 

IF KB(J4)>95 THEN KB( J4) = (KB( J4) OR &H80) 'Reverse video 
KB(J4) = (KB(J4) AND &H9F) 'Drop 6,7 bits 
NEXT J4 

KB(I)=32 'replace with a space 

J1=J5+1 'start again, after converting the last field 
KW=240:IF KB(0)=1 THEN KW=132:IF J1>KW THEN 630 
GOTO 400 
'EPSON graphics 

KB(J4)=KB(J4)+96:GOTO 532 'Shift into 8bit region 
GOTO 643 'Bypass CRT display 

J=(K1-1)*120 'base for video xfer 120 words/3 
FOR I=1TO120 

Jl=(KB(2*I) AND 4H7F) 'only + numbers 
KV(J+I)=(KB(2*I-1) OR (Jl*256)) '2 bytes into 
IF KB(2*I) X&H7F) THEN KV( J+I ) = ( KV ( J+I ) OR &H6 
NEXT I 

GOSUB 840 'write 3 CRT lines to disk 
PRINT "CRT lines";Kl*3-2;" to ";K1*3 
NEXT Kl 'next record 

PRINT CHR$(30); 'paint complete CRT for editing 

FOR 1=1 TO 960:KW(I)=KV(I) :NEXT I 'save assembled screen to KW 
I=USR8(VARPTR(KV(1) ) ) 

KF=0 'flag for normal mode 

PRINT@(22,0) , "| (cnttl-zero) to start graphics, 'space' to stop"; 

PRINT@(23,0) ,"ESC to finish editing, Fl to reinstate screen"; 

I=USR9(VARPTR(KV(1) ) ) 'lines 23/24 into KV 

PRINT CHRS120); 'home 

IK = 'initial cursor position 

C=INKEY$:IF C="" THEN 664 

IC=ASC(C):IF IC-27 THEN 740 ELSE 670 'esc? no disk rewrite needed 

C=INKEY$:IF C="" THEN 668 ELSE IC=ASC(C) 'loop start 

IF IC=27 THEN 735 'esc, end edit 

IF IC=1 THEN 730 ELSE IF IC=17 THEN 735 'cntrl A,Q 

IF IC<32 GOTO 690 'control codes 

IF KF=1 GOTO 700 'graphics 

IF IC=124 THEN KF=l:G0TO 664 'turn on graphics w/ I 

PRINT CHRS(IC); 'print chrctr 

IK=ROW(0) *80+POS(0) ' & get its position 

IF IK>1599 THEN IK=IK-1600:PRINT@IK , ; 'wraparound 

I=USR9(VARPTR(KV(1) ) ) 'update KV 

GOTO 668 'next character 

IF IC=31 THEN IC=10 ' dn aro 

IF ICO30 THEN 695 'up aro 

IK=IK-80:IF IK<0 THEN IK=IK+1600 

PRINT @IK,;:GOTO 684 

IF IC<8 THEN 668 ELSE IF IC>24 AND IC<27 THEN 

GOTO 680 

IF IC<>32 GOTO 704 'test for space bar 

KF=0:GOTO 681 'graphics off 

IF IC>95 THEN IC=(IC OR &H80) 'reverse video 

IC=(IC AND &H9F) 'drop 6,7 bits 

I=IK/2+l 'word position in KV 

IF FIX(IK/2)*2=IK THEN 712 ELSE 718 'which byte? 

KV(I)=(KV(I) AND &HFF00) 'delete old RH byte 

KV(I)=(KV(I) OR IC) 'add new RH byte 

GOTO 726 

KV(I)=(KV(I) AND &HFF) 'delete old LH byte 

ID=(IC AND &H7F) 

KV(I)=(KV(I) OR (ID*256) ) 'add new LH byte 

IF IC>127 THEN KV(I)=(KV(I) OR &H8000) 

I=USR8(VARPTR(KV(1) ) ) 'update PIX 

IK=IK+1:PRINT@IK,; :GOTO 682 

CLS:F0R 1=1 TO 96 : KV ( I) =KW( I ) : NEXT I 

GOTO 653 

CLS:PRINT "Do you want to: 1. Re-edit this screen ";: 

PRINTg(l,16) ,"3. Make no changes to disk 4. Return to PROFILE "; 

C=INKEY$:IF C="" THEN 737 

PRINT C:I=ASC(C) : IF K49 OR I>52 THEN 737 

ON 1-48 GOTO 650, 750, 915, 960 

PRINTg(22,0) ,"No editing required for screen/report #" ;K;STRING$(40,32) 

PRINT@(23,0) ,STRING$(70,32) ; 

GOTO 915 

'rewrite 7 records after screen edit 

CLS: PRINT "Copying to disk file ";BB(K) 

FOR Kl=l TO 7 

FOR 1=1 TO 240 STEP 2 'convert from integer to string 

j=(ki-1)*120 + (i-D/2 +1 'integer index 

KB(I+1)=(KV(J) AND SH7F001/256 

IF KV(J)<0 THEN KB(I+1)=(KB(I+1) OR 4H80) 

KB(I)=(KV(J) AND &HFF) 

NEXT I 

GOSUB 840 'write kl record to disk 

NEXT Kl 

GOTO 912 'next screen 

CO" :CD="'' 'sub to write 1 record back to 

FOR J=l TO 120 'convert values back to ASCII 

CC=CC+CHR$(KB(J) ) :CD=CD+CHR$(KB(J+120) ) 

NEXT J 

LSET CA=CC:LSET CB=CD 'Into write buffer 

POT 1,K1 

RETURN 

PRINT §(20,0), "Screen/Report #";K; "has 

CLOSE 

NEXT K 'Next File 

FOR 1=1 TO 4000:NEXT 1 

CLS:PRINT"Do you want to: 1. Edit another file 

PRINT6(1,16) , "3. Return to PROFILE 

C=INKEY$:IF C="" THEN 949 

PRINT C:I=ASC(C) :IF K49 OR I>51 THEN 949 

ON 1-48 GOTO 100,200,960 

SYSTEM "M" 
IF ERR=60 OR ERR=62 THEN RESUME 2020 
2 PRINT "ERR #";ERR;" AT " ; ERL : STOP 

CLS:PRINT "No file name ";BB(K); ", Screen/Report J";K 
2 CLOSE:KILL BB(K):GOTO 930 



lisk 



jeen rewritten" ; STRINGS ( 40 ,32) 



2. Review this file"; 
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Leve 
Is Expanding Again! 

3 Locations To Serve You... 




HEADQUARTERS 


LEVEL IV 


RADIO SHACK* 


DIVISION 


COMPUTER CENTER 


DEALER STORE #P-130 


32429 Schoolcraft Road 


182 North 20th Street 


134 South Front 


Livonia, Michigan 48150 


Battle Creek, Michigan 49015 


Dowagiac, Michigan 49047 


313/525-6200 


616/963-2212 


616/782-6600 



Our Purchasing Power, ($5 Million plus Gross Sales) allows us to offer the best of RADIO 

SHACK*, as well as other popular Hardware and Software at the 

LOWEST DISCOUNT PRICES AVAILABLE! 

OUR POLICY IS THAT IF WE SELL IT. .WE ALSO SERVICE IT! 

CALL US TOLL FREE IF YOU DON'T SEE THE ITEM YOU'RE LOOKING FOR 



TYPICAL PRICES (PARTIAL LISTING) 

TRS 80* Color Computer, 32K w/ext. Bas 499.00 

TRS 80* Mod III, 48K w/1-40 TR Drive 1589.00 

TRS 80* MOD II, 64K w/1-8" Drive 3375.00 

TRS 80* MOD 16, 128K w/1-Double 8" Drive CALL 

TRS 80* MOD III, 6.4MEG Winchester Drive 2795.00 

5W Add on Drives for MOD I, III, Color, etc from 228.00 

8" Add on Drives for MOD II, MOD 16 from 540.00 

Printers, Radio Shack*, Epson, Citoh, etc CALL 

Technical Service (7 technicians on staff) 24.00/hour 

UPGRADE YOUR PRESENT COMPUTER CALL FOR A QUOTE! 



WARRANTY POLICY: 

The Radio Shack* 90 Day Warranty requires 
construction from Radio Shack* Supplied 
components, at slightly higher prices. 

Equipment containing non-R/S components is 
covered by our 6 month parts and labor warranty. 

Inquire when ordering to ascertain your coverage. 



TERMS OF SALE: 

We allow a 2% discount for cash pre-paid 

orders, personal checks require 2 weeks for bank 

clearance. 

VISA, Master Charge and COD. orders accepted, 

deposits are required for all special order and 

assembly items 



SHIPPING: 

Foreign orders and large items shipped best-way 
frieght collect, most others are shipped promptly 
from stock via UPS. add 1.5% or $2. 50 minimum, 
and $1.50 if C.O.D. 



DEALER'S NOTE Some key areas are still available for both re-sale 
and servicing dealerships, contact our Headquarters Division for 
Details. 



TOLL FREE ORDER HOT LINE 
800-521-3305 

HARDWARE/SOFTWARE 

Service Line 

313 / 525-6200 



Your One Stop Computer Shopping Center 



'TRADE MARK OF TANDY CORPORATION 



.-■See List of Advertisers on page 402 
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RAM $15.99 



ONE YEAR GUARANTEE. INCLUDES RAM TEST AND INSTRUCTIONS 
Premium 16K high speed ram for TRS-80 MODEL lll/l. and COLOR COMPUTER. 
MODEL 1 owners add 2.00 for 2 dip shunts. 



£■ «r ukf 



COLOR COMPUTER SO 

SUPER "COLOR" WRITER 

At last ! ! Fast, machine code, character oriented word processing for the TRS-80™ 
COLOR COMPUTER and any printer FEATURES • 32K compatible • choice of 
display color • key beep • help command • words typed & words left • tab key • 
repeat key • word wrap around • block move • duplicate & delete • global search & 
replace • Quick paging • paragraph scrolling • line scrolling 

SPECIAL FEATURES automatic linking of cassette text files for handsoff 

continuous printing • unique movable window for viewing any part of the text. 

PRINT FEATURES send printer control codes, along with text, to printer • full use 
of printer's special features during normal printing • set margins, line length, line 
spacing, page length, and page spacing within the text for continuous printing • 
automatic centering • right justification • page numbers & titles 
TAPE' $49.95 ROMPAK* $74.95 DISK $99.95 

'Tape I/O only, not disk compatible. 

SUPER "COLOR" TERMINAL all the features of VIDEOTEXTM and mofe i Allows 

COLOR COMPUTER to communicate with computers like TRS-80 MODEL Ill/I & 
APPLE II etc. services like COMPUSERVE via MODEM or RS232 DIRECT' Features 

• upload & download basic programs • print or save data to tape • half & full duplex 
TAPE $39.95 ROMPAK $49.95 DISK $69.95 

SUPER "COLOR" BUG examine & change memory contents in the color computer 

• step video display to any location including ROM • look at contents of 
ROMPACKS 1 • access high res graphics & create & debug machine language 
programs TAPE AND DOCUMENTATION $19.95 Rom Pak $29.95 

GAMES 

MODEL III ' I 16K AND COLOR COMPUTER EXT/BAS. 

FEATURE QUALITY GRAPHICS AND SOUND! 

ADVENTURE 3-PAK TAPE $24.95 

This TRILOGY OF 3-D FANTASY GAMES takes you to the WORLD UNDER THE 
CIMEEON MOON. Engage m ritual combat with tooamoath, narthokc monsters 
and skilled warriors Advance m rank with play experience Then adventure through 
DAZMAR'S UNDERWORLD OF DOOM to the forbidden ruins of castle argaan 
Search for the eye of dammar while avoiding the sorceror's intricate traps Survivors 
must then negi tiate treai herou: tra is among the perilous peaks of the ugrek 
moutams to the FORSAKEN GULTCH where the wicked idol awaits restoration. 

VEGAS 5 PAK TAPE $19.95 

The THRILLS OF A VEGAS CASINO at home Five action packed Vegas games for 
up to four players CASINO CRAPS «21 • ONE ARMED BANDIT • UP & DOWN THE 
RIVER • KENO Bank tracks players winnings from game to game • realistic cards 

• regulation tables • boards • authentic sounds • lively graphics • official rules in 
each game 

COMBAT 3 PAK TAPE $24.95 

Three action packed two player games featuring lifelike graphics ana sound of 
LASER FIRE. CANNONS, and PHOTON TORPEDOES 

2-1-0 TANK COMBAT five terrains • the experienced arcade player can design 
combat scenario STELLAR BATTLE pilot a flex wing lighter at incredible speeds in 
enemy space taking out dorian tye fighters defending the imperial star fortress 
GALACTIC BLOCKADE maneuver your craft m a course that boxes your opponent 
but avoid cosmic deons and hostile space probes' 



MODEL lll/l SOFTWARE 

REQUIRES 16K MODEL III OR LEVEL II BASIC 
READ THIS! Add graphics to your programs in minutes or draw schematics, 
graphs, logos, pictures, etc with graphics and lettering & save them as 
subroutines or programs'' SUPER SKETCHER does more and works just like a text 
editor with graphics • image frames can be edited and animated on screen • 
gene r ate >ad : s ive graph : s : as i subro ,' nes 5 programs * includes EPSON 
MX 80, R.S.LPVII & R.S.LPVIII graphics screen print driver and more 
TAPE (TAPE I/O) $1 9.95 requires 32K DISK (DISK AN D TAPE I/O) $29.95 

SUPER WRITER word processing that combines the best features of other good 
word processors and those of the SUPER COLOR" WRITER including automatic 
tape of disk file linking and the movable window feature except B/W display See 
SUPER COLOR ' WRITER for details! MODEL l/LII needs lower case mod. 
MODEL lll/l TAPE & DOCUMENTATION $49.95 DISK $59.95 

AUTOMATIC MENU SYSTEM power up and automenu takes over. Execute 
programs and command files, or LIST. LOAD, enter DEBUG. BASIC, or TRSDOS 
with single keystroke! Features options menu with library of commands. 
MODEL III DISK & DOCUMENTATION $15.95 

CODES fo' THE ELECTRIC PENCIL enter printer control codes within text file to 
send to smart printers Includes drivers for EPSON MX 80. CENTRONICS 737, MPI 

88SERIES. and h etc customize forothe- pnnters 

TAPE $19.95 DISK $24.95 

DISK INVENTORY for the MODEL III manage your disk programs. A menu driven 
utility featuring sort & print by name. disk, program type, extension, etc... 
MODEL III DISK $29.95 

TRS 80 is a Registered Trademark of Tandy Corp 
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Master Charge. VISA and CO D 

accepted 

Allow additional 2 weeks 'or 

personal checks 

Wher ordering specify computer type 

Add $3.00 shipping & handling 

MN Res add 5% sales tax 



IKLSDIl 

SDFTURRE 

5H5TEF15 



P.O. Box 19096 
Minneapolis, Minn. 
55419 



612627-4703 



manual (the ASCII code chart). 
When composing a screen, con- 
trol-zero enables the shift to 
graphics. Hitting space turns off 
the graphics. 

After you design a screen us- 
ing Profile, PROGRF processes 
the file and allows further edit- 
ing of the CRT. PROGRF then 
displays the finished screen. 
You can edit using the same 
control system. When you fin- 
ish, press Escape to rewrite the 
forms file to disk. The files af- 
fected by this process are file- 
name/PMP, PM2, and so on for 
screens and filename/PRT, PR2 
and so on for reports. 

If you are using Profile plus, 
you can add PROGRF to a 
menu. Select option one (Define) 
on the Profile plus menu. When 
you are prompted for a menu 
name, remember that PROGRF 
is used only for programming 
special forms. As such, it should 
be accessible to programmers 
who set up forms; select a menu 
name accordingly. Likewise, in- 
clude in this menu only pro- 
grammer-related functions. You 
may define up to 12 functions, 
including the clerk, print and 
label programs from Profile. 



Then add PROGRF by typing: 



G Graphics Converter and Editor 
BASIC PROGRF -F:1 



The user menu is now linked 
to PROGRF with keystroke G. 
Exit from PROGRF (line 960) 
goes back to menu M. If you 
are using other versions of Pro- 
file, run PROGRF after loading 
Basic -F:1. 

A small machine code pro- 
gram, PROGRF/mc (see Pro- 
gram Listing 2), is required to 
support the USRx programs. It 
serves as linkage to TRSDOS 
SVC's VDGRAF and VDCHAR. 
To create PROGRF/mc use 
Debug to type code between 
FO50 and FOA8; use Dump to 
hold it. PROGRF loads the ma- 
chine code during initialization. 

If you use other printers alter 
lines 599 and 600 to take advan- 
tage of their graphics capabili- 
ties. The CRT will not reproduce 
the graphics of a printer, but you 
can make equivalencies. ■ 

Charles Wood, an electronics 
engineer, specializes in comput- 
er interfaces. 



F050 


0100 


ORG 


F050H 
















0120;' 






• 




0130;* 


SUPPORT PROGRAMS FOR 'PROGRF' 




0140;* 






* 














0160; 








F050 CDA0F0 


0170 USR8 


CALL 


SUB 


;(HL) = RAM BUFFER 


F053 3E5E 


0180 


LD 


A,94 


;FCODE 


F055 0600 


0190 


LD 


B,0 


;RAM TO VIDEO 


F057 CF 


0200 


RST 


8 


;SVC #94 


F058C9 


0210 


RET 






F060 


0220 


ORG 


F060H 




F060 CDA0F0 


0230 USR9 


CALL 


SUB 


;(HL)=RAM BUFFER 


F063 3E5E 


0240 


LD 


A,94 


;F CODE 


F065 0601 


0250 


LD 


B.1 


;VIDEO TO RAM 


F067CF 


0260 


RST 


8 




F068C9 


0270 


RET 






F070 


0280 


ORG 


F070H 




F070 CDA0F0 


0290 USR7 
0300 


CALL 


SUB 


;(HL) HAS ADRS OF 
;FULL INTEGER 


F073 46 


0310 


LD 


B,(HL) 


;ADRS IS FOR LS BYTE 


F074 00 


0320 


NOP 






F075 3E08 


0330 


LD 


A, 8 


;FCODE 


F077 CF 


0340 


RST 


8 




F078 


0350 


RET 






F0A0 


0360 


ORG 


F0A0H 




F0A0 5E 


0370 SUB 


LD 


E,(HL) 


;LS BYTE OF ADRS 


F0A1 23 


0380 


INC 


HL 




F0A2 56 


0390 


LD 


D,(HL) 


;MS BYTE OF ADRS 


F0A3 EB 


0400 


EX 


DE.HL 


;HL HAS ADRS OF INTEGER 


F0A4 56 


0410 


LD 


D,(HL) 


;LS BYTE OF INTEGER 


F0A5 23 


0420 


INC 


HL 




F0A6 5E 


0430 
0440 


LD 


E,(HL) 


;DE = INTEGER 

;HL = ADRS OF INTEGER 


F0A7 2B 


0450 


DEC 


HL 


;RESTORE 


F0A8 C9 


0460 


RET 






0000 


0470 


END 








Program Listing 2. 
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Your best 
Model l/lll 

literal buy 
is a modem. 





Considering expanding your TRS-80 
Model I or III? Then you should know 
that only one kind of peripheral can 
give you all these extra capabilities 
... in a single unit: 

• Computer-to-computer data 
communications, for better 
personal or business manage- 
ment. 

• Access to free "bulletin board" 
resources. 

• Access to Source, Compu- 
Serve and other time-sharing 
systems. 

• Services like electronic mail, 
instant news and financial re- 
ports. 

• An almost limitless supply of 
new games and other enthusi- 
ast activities. 

Of course, we're talking about a 
modem. A far more sensible first 
step in expanding than, say, joy- 
sticks, or a voice box, or a printer. 
And, therefore, your best peripheral 
buy. 

A modem opens up a whole new 
world to you. A world of thousands 
of computers and computer people 
just like you, in homes and busi- 
nesses around the block and across 
the country. A world you tap through 
your telephone. 

But don't simply settle for any mo- 
dem. For the most modem satisfac- 
tion, you need to make the best mo- 
dem buy. 

And that's LYNX. 




The new LYNX for TRS-80 Model I and Model 
III. It's the latest innovation from the people who 
are making data communications affordable. It's 
the best first step you can take in expanding. It 
makes your microcomputer a whole new animal. 




DLYrvnc© 



123 LOCUST STREET 
Phone 717/291-1116 



LANCASTER, PENNSYLVANIA 17602 



TRS-80 is a trademark of the Radio Shack Division of Tandy Corporation. 
FCC Registration Number: A909KE-68171-DM-N 



The new LYNX is the ideal modem 
for your Model I or III. That's because 
it's the key element of a total direct- 
connect telephone communica- 
tions package. 

This package includes all serial 
and computer bus interfaces, cables 
and terminal software . . . and comes 
to you with these remarkable fea- 
tures: 

• SINGLE PRICE: $299.95! 

• Compatible with both Model I 
and III. 

• No separate purchases re- 
quired. 

• One-year warranty. 

• Auto dial/auto answer. 

• Works with any software, in- 
cluding ST-80 by Micklus. 

• Active clear, break, and "con- 
trol" keys. 

• Half or full duplex, variable word 
length, parity and stop bits. 

• Dial from phone, keyboard, or 
memory. 

• Works with or without Model I 
expansion interface. 

• Works with or without Model III 
RS-232 card. 

• Can be placed on either side of 
Model III. 

• No tools needed to install. 

No other modem gives you so much 
in a single package. And when you 
compare the LYNX price with the to- 
tal cost of bringing any other modem 
on line, it could save you OVER $100! 



^49 



Consult your local microcomputer retailer, or call one of these LYNX handlers today. 



THE BOTTOM LINE 
Milford, NH 
800/228-3900 

THE PROGRAM STORE 
Washington, DC 
800/424-2738 



B. T. ENTERPRISES 

Centereach, NY 
516/981-8568 

STEVENS RADIO SHACK 
Phoenixville, PA 
800/345-6279 



BREEZE/QSD 
Dallas, TX 
214/484-2976 

SIMUTEK 
Tucson, AZ 
800/528-1149 



COMPUTER PLUS 
Littleton, MA 
800/343-8124 

PROGRAMS UNLIMITED 
Jericho, NY 
800/645-6038 



•sSee List of Advertisers on page 402 
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HARDWARE 



Get rid of those white streaks. 



Video 




lovel 



Brian Smith 
6770 Halifax Street 
Burnaby, BC Canada 
V5B 2R4 

Video snow, the black streaks 
against white characters, is 
most apparent with large, rapidly 
changing areas of white graphics. 
The root of the problem is that 



the TRS-80 display is memory 
mapped by the CPU. In addition, 
the display memory is continual- 
ly scanned by the video cir- 
cuitry. This circuitry reads the 
display memory and translates 
it into characters on the screen. 
The CPU and video circuitry can- 
not access the display memory 
at the same time: The CPU has 



VID* >- 

DLY BLANK >- 



o 



-> V I D I * 



~> VWf.1T . 



Fig. 1. Conceptual Circuit. 



FROM Z36 PIN 6 >- 
FROM Z2 7 PIN / > 



higher priority. When the CPU 
reads or writes part of the dis- 
play memory, the video circuitry 
is locked out. The result is a 
black streak, or glitch, on the 
screen. 

For a more complete descrip- 
tion of display circuits' op- 
erations read Radio Shack's 
TRS-80 Microcomputer Tech- 
nical Handbook. 

The Solution 

My solution is to give the 
video circuitry higher priority 
than the CPU. 

The display is made up of 192 
lines of 384 dots per line. Each 
character is 12 rows of 6 dots. 



DLV BLANK 



13 VIDI' 



TO 

Z3i p:N I, 

Z49 PIN i, 
Z64 PIN I, 

2 7 P;f, 'i 



=CUT TRACE 

Z36A 



Fig. 2. Version 1 Schematic. 
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The maximum display is 16 lines 
of 64 characters. After display- 
ing afull line of dots the electron 
beam in the picture tube turns 
off and moves back to the left 
side of the screen to begin a new 
line. When the bottom line is 
complete the electron beam re- 
turns to the top left corner. The 
TRS-80 maintains black borders 
along all four sides. I will call 
these periods when the electron 
beam is not displaying anything 
blanking periods. 

When the CPU accesses dis- 
play memory during a blanking 
period we do not see any black 
streaks. The snow removal solu- 
tion is simple: Let the CPU read 
and write the display memory 
only during blanking periods. In 
other words, reverse the prior- 
ities of the CPU and video cir- 
cuitry for reading the display 
memory. 

By using the WAIT* input to the 
CPU, access is blocked and the 
CPU is put into a wait state until 
the video circuitry enters a blank- 
ing period. Then the CPU is re- 
leased and allowed to continue. 

This does not slow down 
faster real-time graphics games. 




PRINTERS & ACCESSORIES 

Common Features of the MX80, MX80FT & MX100 Printers 



80 characters per second 
Replaceable print head by user 
User programable from BASIC 
Bi-directional logic seeking printhead 
96 ASCII characters 
Programable tabs (vert./horz.) 
Cartridge ribbons 
Self-test mode 



* Tractor/pin teed paper flow 
' Extreme reliability 

* 12 type fonts under software control 

* 9x9 & 9x18 matrix 

* Programable torm feeds 

" Compressed/expanded letters 

* Parallel interlace standard 

" Double strike & emphasized modes 






OMPUTER SYSTEMS 



Offers Lowest Prices on 




MX80 The Printer that started it all. All of the above features plus extreme ease ol use 
CompleteTRS80 block graphics set as well as user selectable international symbols Gives 
correspondence quality printing in several user selectable modes. Dip switch pins may be 
set for dedicated applications. Complete forms programability from BASIC software 

MX80FT All the features ot the MX80 but with FRICTION feed as well tor the use of 
single sheets of paper or roll paper. An exceptional buy for the user needing the single sheet 
capability In the compressed mode 132 characters can be printed across the width of a page 
which means it can be used for any printouts that normally need a 15 inch wide printer 

MX100 An exceptional printer with a extra quiet printhead and extra heavy duty 
construction for the intense use of a business environment Does not have the TRS80 graphic 
blocks but comes standard with Bit-Image graphics which allow the user control of 
individual dots for designing specialized graphs, symbols, etc A best buy tor business use 

MX70 For the budget minded a excellent entry level printer It has most all of the 
features mentioned above including Bit-Image graphics in place ot the TRS80 graphic blocks 
set. The Printer is unidirectional only. Expandable text can be printed but not compressed 
Only single density printings is supported on the MX70 An inexpensive heavy duty printer 

$CALL for BEST prices on Epson Printers 
All Printers & accessories in STOCK now!!! 

If you buy your EPSON somewhere else you'll probably pay too much! 
EPSON ACCESSORIES, INTERFACES & CABLES 

GRAFTRAX 80 option (bit-image & italics) $79 
CABLE Model I interface* Model III. .. $35' 

* $25 it purchased with printer 
CABLE & INTERFACE to Model I Keyboard. $85 

APPLE interlace & cable 

PET IEEE interface & cable (Pet) 

SERIAL RS232 unbuffered int. card.. . 

SERIAL RS232 2k buttered int. card 

Epson to Color Computer card/cable 

All RIBBONS and CARTRIDGES in Stock 




odel II 64K 




The best buy for small business needs 
and yet completely expandable as 
your business grows. Easy to use for 
the beginning operator, we have in 
STOCK all accessories and disk 
expansions as well as printers and 
software. IMPORTANT: We also 
have CP/M for the Model II plus a 
arge amount of support software. All 
of these items at our fabulous 
DISCOUNT prices. We ship from DFW 
by air and fully insured for FAST safe 
delivery. 



HARD DISK SUPPORT FOR THE MODEL II... NOW! 

5 10 oi 20 Megabytes (up to 80 Megabytes) for the Model II Full CP/M support Also full 
support tor TRSDOS and all TRSD0S software Multiple computers (multi-user) can be con- 
nected to these hard disk systems and can share and access common data bases under both 
CP/M and TRSDOS The same common data base can even be accessed simultaneously by 
several users We use top of the line C0RVUS Hard Disk Drives which have a proven track 
record and have outsold all of their competitors combined in the microcomputer market 
Model I and III are also supported by these Hard Disk Systems SCall for our LOW prices 



COLOR COMPUTERS 



Orgmal mfg warranty on these items 

4K Level 1 $308 

16K Level 1 $439 

16K Extended Basic $459 

32K Extended Basic $569 

Color Disk 0. $499 Disk 1. .$349 



TCS 180 day Limiteo wairanty on TCS items 

16K Level 1 $369 

16K Extended Basic $439 

32K Extended Basic $499 

32K Upgrade Kit (TCS) $79 

EPSON/COLOR Int & cable $59 



800-433-5184 



Radio Shack LINE PRINTERS Line Printer VI 

Daisy Wheel II $1695 Line Printer VII $325 

Line Printer V $1580 Line Printer VIII $699 



TRS80 MODEL III COMPUTER SYSTEMS 

The following with Radio Shack Warranty: _ 

• a j i in «<*i ,„ nr The following with quality TCS memory Sour 

Model III Ibk $825 own 180 day limited warranty 

Model III 32k $979 Model III 32K $909 

Model III 48k $1089 Model III 48K $969 

Model III 48k 2 Drives RS232.$2069 



CUSTOM SOFTWARE FROM TCS 

Completely Integrated BINARY SEARCH TREE programs now available This series of 
programs fully implements the B-TREE structures including INSERTION, DELETION. EDITING 
& TRAVERSAL No more sorting or long data file searches and yet files can be larger than 
memory. Duplicate keys are fully supported. Files can be retrieved in sorted order via B- 
TREE Traversal Each of the programs come with fully commented source code so that you 
can use the modules in your own programming A Screen oriented Input routine is also 
included in each module The following B-TREE programs are now available and each 
includes all ot the mentioned modules and full documentation 

B-TREE Library (organize your horn* library ksysd by author) $39.95 

B-TREE Vldao (organlza your vldao caaaatta library, prints labels, ale) $39.95 

B-TREE Mailing List (keyed by nama or zip, label prlntlng.atc) $49.95 



EPSON PACK A Utility Soft- 
ware package for MX80 & 80FT. 

MX80/CMD will send all printer commands 
from DOS. BIGLETT/BAS prints large Graphic 
Letters EPSON/SUB merges with BASIC pro- 
grams allowing 2 letter mneumonic 
commands to be sent to printer. JKL Patctis 
allow JKL in NEWDOS 80 1 & NEWD0S 2.1 to 
send graphics properly. DEMO/BAS tutorial 
program of use of printer. LABEL/BAS custom 
label making program with graphics. DEF- 
STATE/SUB allows one word BASIC com- 
mands for centered titles, titles with borders, 
etc. A great program package for EPSON fans 
SPECIAL DEAL $24.95 with printer $34 95 
seperately Specify Model 1 or III. disk only 



EPSON PACK 2 - GRAFTRAX 

version for MX80. 80FT & MX100 This 
package includes updated versions of 
modules in original Epson Pack. A screen 
oriented BIT IMAGE GRAPHICS generator uni- 
ty is provided Create your special 
characters, symbols, etc. directly on your 
monitor and tnen send to printer. Printout in- 
cludes code to generate graphics and will 
save needed code as BASIC program line to 
disk Then MERGE these into your BASIC pro 
gram. Also demo programs showing use of 
Bit-Image graphics Full documentation 
INTRO SPECIAL: $24.95 with printer or 
GRAFTRAX. $34.95 saparataly. $7.50 for 
update of old Epaon Pack 



MODEL III DISK EXPANSION KITS 

We use the highest quality fiberglass Our DISK DRIVES are made by Tandon the 

CONTROLLER BOARDS with double sided same company that makes the drives used by 

glass epoxy board and gold plated contacts in Radio Shack These drives are 40 track, 

our ICS systems The finest switching double density. 5 millisecond stepping rate 

POWER SUPPLY available is also provided and are fully burned in for 48 hours These 

foe aluminum MOUNTING HARDWARE drives have the same specifications as the 

has slotted holes for easy installation of the drives used by Radio Shack. No solderinq or 

drives and includes all the power and data modifications to existing circuitry ' is 

cables necessary to install the controller, necessary The following kits are available 
drives and powei supply 

KIT 1 Controller, Power Supply A Mounting Hardware $379 

KIT 2 Controller, Power Supply, Hardware & 1 Disk Drive $595 

KIT 3 Controller, Power Supply, Hardware & 2 Disk Drives $819 

KIT 4 One Tandon Disk Drive (bare drive only) $219 

KIT 5 16K of High Quality TCS Memory chips $49.95 

KIT 6 32k of High Quality TCS Memory chips $79.95 

MODEL III 48K 2 DISK DRIVES KIT....$1753 

Yes. you read it right A complete 48k 2 Disk Drive Model III computer system tor just 
$1753 Here's what you get: one TRS80 Model III 16k Computer in factory carton, one 
CONTROLLER. POWER SUPPLY & HARDWARE kit (kit 1), two Tandon Disk Drives 
and 32K of TCS Memory You also receive several important extras that make this a 
complete super kit These extras include a complete illustrated instruction and trouble 
shooting manual, a TRSDOS 1 .3 operating system and manual and a special diagnostic 
Diskette tor testing the unit after you have put it together The only tool necessary— a 
screwdriver. EVERYTHING is included in this kit and the price is right.. $1753 



ZAP3 - Direct read/write access to any TRSDOS 1.2 or 1.3 sector Disable Passwords & 
access levels Self prompting. Modify any sector in HEX or ASCII. Includes many patchesto 
TRSDOS 1 2 & 1 3. Also C0PYIT to allow backups ot SCRIPSIT. VISICALC, etc Just. $24 95 
SDIR - Super directory manipulation for TRSDOS 1.2 or 1.3. Alpha 4 column directory & 
free space. Display a range of programs by extension. Change name and date. Generate 
report of location of any program on diskette. Just. .. $14.95 

SPECIAL DEAL: Buy ZAP3 & SDIR together tor .... $29.95 



MODEL III 48k 2 DISK DRIVES ... $1895 

Above KIT fully assembled, with 48 hour burn-in test 4 180 day TCS Limited Warranty!' 
DEALER INQUIRIES ARE INVITED ON THE ABOVE TCS KITS 



CASIO ELECTRONIC ORGANS have arrived!!! 

The fantasic CASIO Electronic Orqans are here in force. Fully equal to any $2000 traditional 
Organ with dozens of exciting NEW teatures not seen on other musical instruments: 

CASITONE CT— 403 (25 Instruments.^ rythms.chord memory.etc.) $519 

CASITONE CT-701 (programable, barcode reader.51 keys.etc.etc.) $835 



For last, efficient service. Heart Of we can air freight from Dallas 

TEXAS COMPUTER SYSTEMS 

P.O. Box 1327 Arlington, Texas 76004-1327 

VV Toll Free Number 800 433-5184 

Texas Residents 817 274-5625 - 59 

Prices subject to change at any time 
No Tax out-ot-state. lexans add 5%. 
Many items shipped FREE Call for quote 



Payment Money order, cashiers or certified 
check. Prices above reflect 3% cash Discount 
Call for Visa/MC card prices. 



sSee List of Advertisers on page 402 
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Even the most intensive graph- 
ics program spends little time 
accessing the display memory. 
Games that combine intensive 
graphics with simultaneous 
sound generation suffer slight- 
ly. The sound quality deter- 
iorates because the wait states 
change timing loops. 



FROM Z36 PIN 8 >- 
FROM Z27 PIN 7 >- 



DLY BLANK 



< 



TO 

Z3I PIN I, 

Z49 PIN I, 
Z64 PIN I, 

n pin 4 



-> ro Z40 pin z ■■ 



The Circuit 

Fig. 1 shows a conceptual ver- 
sion of the video de-glitcher cir- 
cuit. It functions identically to 
the actual circuit and is easierto 
understand. DLY BLANK is high 
when characters are displayed 
and low during blanking peri- 
ods. VID* goes low when the 
CPU addresses the display 
memory. Normally, VID* goes 
directly to the video RAM selec- 
tors, allowing the CPU to access 
the display memory. With the 
de-glitcher installed, the new 
signal (VID1 *) decides whether 
the CPU or video circuitry can 
access the display memory. 
VID1* is low only when both 



-CUT TRACE 

Z36A74LS02 



VWAIT* signal from the WAIT* 
line until VWAIT* goes low. If 
this is not done, the de-glitcher 
circuit will fight with other de- 
vices over whether the WAIT* 
signal should be low or high. 
Any other devices using the 
WAIT* input should also be 



"Let the CPU read 
and write the display 
memory only during 

blanking periods." 



VID* and DLY BLANK go low. 
The CPU can access the display 
memory only during blanking 
periods. 

VWAIT*, when low, puts the 
CPU into a wait state. It goes low 
when VID* is low (the CPU is try- 
ing to access the display mem- 
ory), and DLY BLANK is high (the 
video circuitry is displaying 
characters). With VWAiT* high 
the CPU operates normally. 

The actual circuit, (Fig. 2 and 
3) is less obvious than Fig. 1. 
Fig. 2 is the simple version and 
Fig. 3 includes a switch to turn 
the de-glitcher off. The second 
version is for those who want no 
sound distortion in their graph- 
ics and sound programs. 

To use other modifications or 
peripherals with the WAIT* in- 
put, add a tristate buffer to 
either of the circuits in Fig. 2 and 
3. The buffer removes the 
292 • 80 Microcomputing, March 



isolated with a tristate buffer. 
(See Fig. 4). 

On the simple version (Fig. 2), 
the buffer is added between 
Z36A pin 1 and Z40 pin 24. On 
the switchable version (Fig. 3) it 
is installed between Z36A pin 1 
and S1 point F. 

Installation 

The following are step by step 
instructions for installation of 
the video de-glitcher. Since only 
one or two integrated circuits 
are added, I use piggy-back in- 
stallation rather than construc- 
ting a circuit board. 

- «Open the case and place 
the main circuit board, compo- 
nent side up, on a flat surface. 
— ' • Locate Z36 on the board. 

' • Bend all pins except 7, 8, 
and 1 4 on the new 74 LS02 (Z36 A) 
into a horizontal plane. 

- • Install Z36A on top of Z36, 
1982 



Fig. 3. Version 2 Schematic. 

soldering pins 7, 8, and 14 of 
Z36A to the corresponding pins 
on Z36 (see Fig. 5). 

— • Solder a wire between pins 
5 and 10 of Z36 A. 

— •Solder a wire between pins 

10 and 11 of Z36A. 

-*- • Solder a wire between pins 

11 and 12 of Z36A. 

*"» Solder a wire between pins 
8 and 6 of Z36A. 
—-• Solder a wire between pins 

2 and 3 of Z36A. 

- • Solder a wire between pins 

3 and 4 of 236A. 

-• Solder a wire from Z27 pin 7 
toZ36A pin 9. 

_ «Cut the trace between Z36 
pin 8 and Z31 pin 1 (see Fig. 7). 
Depending on which version 
of the circuit you use follow the 
indicated steps in Fig. 9. 

A1. Solder a wire from pin 13 of 
Z36A to the point indicated in 
Fig. 8. 

A2. Solder a wire from pin 1 of 
Z36A to the point indicated in 
Fig. 6. 




B1. Solder a wire from pin 13 of 

Z36A to the point indicated in 

Fig. 8. 

B2. Locate Z75 on the circuit 

board. 

B3. Bend all pins except 7 and 14 

of the new 74LS125 (Z75A) into a 

horizontal plane. 

B4. Install Z75A on top of Z75, 

soldering pins 7 and 14 to the 

corresponding pins on Z75. 

B5. Solder a wire between pins 1 

and 2 of Z75A. 

B6. Solder a wire from pin 1 of 

Z36A to pin 2 of Z75A. 

B7. Solder a wire from Z75A pin 3 

to the point indicated in Fig. 6. 

C1. Install the new switch in a 

suitable place on the TRS-80s 

case. 

C2, Solder a wire from pin 8 of 

Z36A to point A on the switch. 
-C3. Solder a wire from pin 13 of 

Z36A to point C on the switch. 
"C4. Solder a wire from point B on 

the switch to the point indicated 

in Fig. 8. 

C5. Solder a wire from pin 1 of 



Z36A: 


74LS02 


275A: 


74LS1 25 (optional) 


S1: 


DPDT toggle switch (optional) 




Thin-gauge insulated wire, such as wire wrap wire 




Table 1. Parts List. 



-'ROM Z^A PIN l >- 



: Z4C PIN 4 
CR S/b POINT F 



Z75A74LSI25 



Fig. 4. Buffer Circuit. 



Z36A to point F on the switch. 
C6. Solder a wire from point E on 
the switch of the point indicated 
in Fig. 6. ■'■-■;■ ""'■■■ 

D1. Install the new switch in a 
suitable place on the TRS-80s 
case. 

D2. Solder a wire from pin 8 of 
Z36A to point A on the switch. 
D3. Solder a wire from pin 13 of 
Z36A to point C on the switch. 
D4. Solder a wire from point B on 
the switch to the point indicated 
in Fig. 8. 

D5. Locate Z75 on the circuit 
board. 

D6. Bend all pins except 7 and 14 
of the new 74LS125 (Z75A) into a 
horizontal plane. 
D7. Install Z75A on top of Z75, 
soldering pins 7 and 14 to the 
corresponding pins on Z75. 
D8. Solder a wire between pins 1 
ana 2 of Z75A, 

D9. Solder a wire from pin 1 of 
Z36A to pin 2 of Z75A. 
D10. Solder a wire from pin 3 of 
Z75A to point F on the switch. 
D11. Solder a wire from point E 
on the switch to the point in- 
dicated in Fig. 6. 

The video de-glitcher is now in- 
stalled. Doublecheckyourwiring 
and reassemble the computer. 

Testing 

Power up to begin testing. If 
you do not see a normal display, 
immediately turn the machine 
off and recheck your wiring. If 
everything looks fine run any 
program with video glitches or 
type in the following program: 



10 'QUICK VIDEO DE-GLITCHER TEST 

20 CH =0 

30 FOR I = 15360 TO 16383 'VIDEO 

MEMORY ADDRESSES 

40 POKE I.CH 

50 CH = CH + 1 

60 IFCH > 255 THEN CH = 

70 NEXT I 

80 GOTO 20 

You should see no snow on 
the screen with this program 
running. If you installed Version 
2, try switching the de-glitcher 



on and off. Note the difference 
in the displays. If you still see 
snow, the circuit is not working 
properly. Go back and check 
your wiring. 

Postscript 

After designing and installing 
the video de-glitcher, I looked at 
a Model III schematic. It uses a 
technique similar to mine to 
eliminate snow on the new 
machine. ■ 




Fig. 5 
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Version 1 without buffer circuit: 
Version 1 with buffer circuit: 
Version 2 without buffer circuit: 
Version 2 with buffer circuit: 



Follow steps starting with A. 
Follow steps starling with B. 
Follow steps starting with C. 
Follow steps starting with D. 



Fig. 9 




Effective advertising is more 
than good luck. 

Ir your advertising is not 
producing results, you are losing 
money. Money lost on 
advertising and money in lost 
sales. 

Successful advertising is a 
combination of product 
research, stimulating concepts 
and proven marketing 
techniques. 

Riley, Shepherd and 
Associates is an agency 
dedicated to profiting you. With 
the talent and experience to 
create advertising that sells. But 
it has to start with you. 

If you would like to get more 
from your advertising dollar, 
clip out and return the coupon. 
We'll handle it from there. 



NAME 



.TITLE 



COMPANY 

ADDRESS 

CITY STATE ZIP 



PHONE 



Riley, Shepherd & Assoc. 

ADVERTISING/GRAPHIC DESIGN 
159 East Huntington Dr., Suite 2 , Arcadia, California 91006 

Telephone: (213) 445-9696 



^See List of Advertisers on page 402 
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GRAPHICS 



LOAD 80 



Computer negatives. 



When Black is White 



Thomas W. Tache 
1522 Melrose Parkway 
Norfolk, VA 23508 



Readers of 80 Microcom- 
puting may recall an article 
by Valerie Vann in the December 
1980 issue entitled "Seasons 
Greetings." In particular, I liked 
the snow-covered countryside 
scene so much that I reproduc- 
ed it on my printer. I he beautiful 
scene on my video display ap- 
peared on my printer (as logical- 
ly it should) reversed. The snow 
was black! I decided to create 
the equivalent of a photographic 
negative of the picture with the 
graphic characters 128-191. 

Graphics Characters 

Analysis of the graphics 
codes reveals an interesting 
characteristic. A graphics char- 
acter consists of six segments 
to a block— all, some, or none of 
which may be turned on. Those 
segments of any character 
which are turned on appear 
white on the screen. (The seg- 



ments of the same character, 
displayed on the printer, appear 
black.) Since character 191 is all 
segments on and character 128 
is all segments off they are op- 
posites (or complements) of 
each other. Character 190 has 
one segment turned off, and 
character 129 has that segment 
turned on. Thus, characters 190 
and 129 are also complements 
of each other. This pattern holds 
true throughout the graphics 
codes. Character 189 comple- 
ments 130, 188 complements 
131, 187 complements 132, and 
so on through 160 and 159. With 
a simple mathematical formula 
It is possible to convert one 
graphics character to its neg- 
ative counterpart. 

The formula is based on the 
above relationship. If we add 

128 and 191, we get 319. If we 
add 129 and 190, we also get 

319. Any character code added 
to its complement equals 319. If 
we subtract 128 from 319, we get 
191; 191 from 319 equals 128; 

129 from 319 equals 190, and so 
on. Thus, subtracting any graph- 
ics character in the range 



128-191 from 319 yields the 

complement of that character. 
Doing this to all characters in a 
picture results in the negative of 
that picture. If we let N equal the 
number of a character code and 
C equal the complement of that 
character, then the formula is 
C = 319-N. 

Program Listing 1 demon- 
strates an application of this 
formula. Fig. 2 is the equivalent 
of a photographic negative of 
Fig. 1. Fig. 3 shows a reference 
chart of the graphics codes. 

Program Analysis 

I used remark statements 
liberally and numbered each 
section with multiples of one 
hundred. 

The 100 series line numbers 
identify the program. The 200 
series initialize the printer and 
the program. The 300 series al- 
lows the operator to select the 
negative option. The 400 series 
processes the data. The 500 
series prints the picture. The 600 
series on is the data. All but the 
300 and 400 series are straight- 
forward. 



The 300 series prepares the 
interpretation of the space com- 
pression codes. If you want a 
negative reproduction of the pic- 
ture, the program interprets the 
space compression codes as a 
string of character 191. If you do 
not want a negative, the pro- 
gram interprets the space com- 
pression codes as a string of 
character 128. CR holds the 
character used in the string sub- 
stituted in place of the space 
compression code. SELECTS 
holds the operator's choice for a 
negative reproduction. 

The ^00 series section dem- 
onstrates the technique which 
p r o d u c '..-. s a negative. A 
For. ..Next loop beginning at line 
402 fills an array of A$(L). The 
variable N included throughout 



The Key Box 

Basic Level II 
Model I or III 
16K RAM 
Printer required 




Fig. 1. Black Snowscape. 
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Fig. 2. White Snowscape. 



Color computer owners 
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Yes, that's right - for as little as 
$298.00 you can add 32K of dynamic 
RAM, and a disk interface, to your 
TRS-80 Color Computer! If you just 
want the extra memory it's only 
$199.00, and you can add the disk 
interface later for $99.00. 

Just plug the Color Computer In- 
terface (CCI), from Exatron, into 
your expansion socket and "Hey 
Presto!" - an extra 32K of memory. No 
modifications are needed to your 
computer, so you don't void your Ra- 
dio Shack warranty, and Exatron give 
both a 30 day money-back guarantee 
and full 1 year repair warranty on 
their interlace. 

The CCI also contains a 2K 
machine-language monitor, with 
which you can examine (and change) 
memory, set break-points, set memo- 
ry to a constant and block-move 
memory. 

So what about the CCI Disk Card*! 
Well as we said it's only an extra 
$99.00, but you'll probably want 
Exatron's CCDOS which is only 
$29.95 - unless you want to write your 
own operating system. The CCI Disk 



Card uses normal TRS-80 Model I 
type disk drives, and CCDOS will 
even load Model I TRSDOS disks into 

your color computer - so you can 
adapt existing TRS-80 BASIC pro- 
grams. 

As a further plus, with the optional 
ROM Backup adaptor, you can dump 
game cartridges to cassette or disk. 
Once the ROM cartridge is on cas- 
sette, or, disk, you can reload, examine 
and modify the software. 'The ROM 
Backup adaptor is only $19.95. 

For more information, or to place an 
order, phone Exatron on their Hot 
Line 800-538 8559 (inside California 
408-737 7111), or clip the coupon. 




excellence in electronics 

exatron 



DEALER ENQUIRIES INVITED 



;" 94 




Exatron, 

181 Commercial Street, 

Sunnyvale, CA 94086 



□ Please send a 32K Color Computer 

Interface for $199.00 

□ Please send a CCI Disk Card for $99.00 

Q Please include CCDOS and manual 

for $29.95 

□ Also include a ROM Backup adaptor 
for $19.95 

Please add $5.00 for shipping to all orders, 
and 6 percent sales tax in California. 

Name 

Address 

City 

State Zip 

Charge my: 

□ MasterCard Interbank Code 

□ Visa Expiration Date 

Card 

□ Check enclosed for 

□ Ship COD ($2.00 extra) 



Signature 



*:S2K RAM plus Disk Interface 



TRS-HII is a trademark of Tandy 



the data statements indicates 
the number of data characters 
in each level of A$(L). It might be 
a good ideatoaddaline409IFY 
< 128 OR N > 128 THEN PRINT 
"ERROR IN DATA WHEN L = 
";L;"AND Z = ";Z: STOP. Once 
the program has run correctly, 
delete this statement. After N 
has been read, another For... 
Next loop reads data state- 
ments until the number of data 



statements read (Z) equals N. As 
the statements are read, the pro- 
gram performs the tests shown 
in Table 1. 

Line 418 contains the for- 
mula. Remember, 319 is the 
magic number. This technique 
works with any Level I or Level II 
system, with or without a print- 
er. The only catch is that you 
must make the picture using the 
graphics characters: It will not 



work for pictures drawn using Thomas Tache is systems an- 

SET commands. ■ alyst with Q.E.D. Systems Inc. 



130 1B3 

1 3 3 1 SB 

■ J 



1 ss 

:* 

l s:2 






1 3B 1 SI 

■ L 



1S3 



Line Function 

412 Data values greater than 191 are space compression codes. My printer in- 

terprets them as graphics characters; therefore it was necessary to con- 
vert them to strings of spaces. If value is a graphics character, skip 414. 

414 The space compression code minus 192 equals the number of spaces to 

be equated (Y-192). CR will be either character 128 or character 191, as 
determined in line 318. Add it to the line. 

416 Was the negative option selected? 

418 If so, and data value is a graphics character, convert the character to its 

complement. 

420 If value is a graphics character, it was not added in 414; add it now. 

422 End the For. ..Next loops. 

Table 1. Line Functions. 



1 43 


17E 


144 


1 "75 


1 45 


1 74 


1 4B 
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1 4 "7 
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14S 
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171 
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1 43 
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1 T-EJ 
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1 SB 
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1 52 
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1 53 
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1 BS 


1 54 
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1 5~7 
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Fig. 3. Graphics codes and their complements. 



100 
10 2 
104 
106 
108 
110 
112 
114 
116 
118 
120 
122 
124 
126 
128 
130 
: 52 
134 
136 
5 33 
140 
142 
200 
202 
204 
206 
208 
210 
212 
214 
216 
218 
300 
502 
1 ',: ■', 
306 

308 
3.13 
312 
314 
316 
318 
320 
322 
400 
402 

40 4 
406 
408 

4 1 
412 
4.14 
416 
418 
420 
4 2 2 
424 
4 26 
428 
500 
502 
30 4 



THIS PROGRAM DEMONSTRATES A TECHNIQUE 
WHICH WILL PRODUCE THE EQUIVALENT OF 
A PHOTOGRAPHIC NEGATIVE OF A PICTURE. 

WRITTEN: 8/2/81 REV: 8/8/81 

BY: THOMAS W. TACHE 1 

15 22 MELROSE PKWY 
NORFOLK, VA 23508 

DATA AND THE BASIC DISPLAY FOR THE 
PICTURE WAS TAKEN FROM AN ARTICLE IN 
THE DEC '80 ISSUE OF 80 MICROCOMPUTING 
ENTITLED 
"SEASONS GREETINGS". 
BY: VALERIE VANN 

631 G STREET 
DAVIS, CA 95616 



LPRINTCHRS(27) ;CHR$(65) 
LPRINTCHRS(27) ;CHR$(54) 
LPRINTCHRS(29) ' 



CLEAR2000:DIMA$(16) : CLS ' 



PRINT n ENTER " ;CHR$ (34) ; "N" ; ' 

PRINTCHRSI34) ; ' 

PRINT" FOR NEGATIVE OF PICTURE "' 

PRINT'PRESS <ENTER> ALONE TO *;' 

PRINT"PRINT THE ORIGINAL ";' 

PRINT" PICTURE"; ' 

INPUT SELECTS' 

CR=191 ' 

IF LEFTS ( SELECTS, 1)»"N" GOTO 322' 

CR=128' 



F0RL = 1T016' 

* REAI 

AS(L)»"":READN' 

FORZ=lTON' 
READ Y' 

IF Y<=191 GOTO 416' 
A$(L) =AS(L) +STRINGS(Y-192,CR) ' 
IFLEFT$(SELECT$,1) <>"N"THEN420' 
IF Y<=191 THEN Y=319-Y' 
IFY<=191THENA$(L) =A$(L) +CHRS(Y) 

NEXTZ:NEXTL' 



CLS' 

PRINTCHR$(28) 
F0RL = 1T016' 



****** 



INITIALIZE PROGRAM 



THIS SECTION 
ALLOWS 



TO 
SELECT 

the 
negative 

OPTION 



THE 

DATA 

VALUES 



FIND GRAPHIC CHAR . 


CREATE 


SPACES 


DETECT 


OPTION 


CONVERT 


CHAR 


ADD TC 


LINE 



END READ LOOP 



506 

5 08 
510 
512 
514 
600 
602 
604 
606 
608 
610 
612 
203 
614 
616 
194 
65 8 
620 
622 

6 24 
626 
628 
6 3 
6 3 2 
634 
636 
638 
6 4 
642 
644 
646 
648 
650 
652 
654 
656 
658 
131 
660 
662 
664 
666 
668 
67 
6 72 
67 4 
6 7 6 
67 8 
6 80 
682 
684 
6 86 
6 88 
690 
692 
6 94 
696 

6 98 
70 

7 02 
704 

•06 



PRINTAS(L) ; ' 

LPRINTTAB(10)A$(L) 

NEXTL' 

STOP 1 



THE 
PICTURE 



DATA9, 197, 144, 215, 136, 208, 172, 19 8, 144, 202 

DATA1 9, 200, 160, 184, 188, 191, 191, 191, 191, 189, 188, 17 6, 215 

DATA1 29, 195, 160, 186, 189, 17 6, 207 

DATA25, 200, 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, 149 

DATA207, 129, 201, 17 6, 190, 191, 191, 191, 141, 176, 19 9, 130, 197 

DATA27, 194, 129, 197, 130, 139, 143, 191, 191, 191, 191, 159, 143 

DATA131, 197, 130, 211, 135, 128, 176, 191, 191, 191, 189, 188, 180 

DATA27, 196, 144, 206, 168, 2 03, 129, 19 9, 16 0,1 96, 188, 191, 191 
DATA191, 191, 191, 191, 191, 191, 143, 188, 188, 180, 17 6, 144, 194 



144, 
160, 



DATA3 0, 
DATA19 8 
DATA17 6 
DATA43 , 
DATA191 
DATA17 6 
DATA188 
DATA58, 
DATA143 
DATA160 
DATA191 
DATA131 
DATA60, 
DATA128 
DATA128 
DATA179 
DATA191 
DATA6 4, 
DATA188 
DATA189 
DATA179 
131,131 

DATA179 
DATA5 4, 
DATA191 
DATA191 
DATA131 
DATA188 
DATA50, 
DATA191 
DATA188 
DATA191 
DATA49, 
DATA188 
DATA17 9 
DATA191 
DATA45, 
DATA17 9 
DATA191 
DATA175 
DATA41, 
DATA191 
DATA16 
DATA144 
DATA32, 
DATA131 
DATA15 2 



94,160,186,198,129,199,168,191,176,198,144,197 

17 6,188,188,191,191,191,191,191,191,191,191,189 

196,130,133,198 

28,160,184,190,183,17 9,2 2,17 6,18 8,191,191,191 

188,176,200,186,176,195,168,143,131,131,131,131 

187,191,191,191,191,191,191,191,191,191,191,188 

188,176,176,196 

28,129,184,191,191,191,191,188,176,195,176,188 

131,175,191,191,191,191,188,17 6,17 8,131,135,194 

140,172,191,191,191,189,176,144,128,176,176,190 

135,191,191,143,191,191,191,191,191,191,135,131 

143,131,131,129,130,196 

40,17 5,191,191,191,191,172,188,176,129,194,130 

184,190,191,175,191,191,191,191,178,17 9,179,139 

160,184,188,191,191,191,131,143,140,140,142,17 9 

179,179,188,140,140,128,172,17 9,143,191,191,191 

189,188,180,196,160,188,190,191 

34,187,191,191,191,191,189,180,17 8,139,132,176 

183,179,188,188,191,191,191,191,191,191,191,191 

191,189,188,191,143,179,188,128,143,143,143,179 

17 9,188,18 8,188,191,191,140,143,143,143,143,131, 

131,131,179 

188,191,191,143,191 

91,191,191,191,191,191,191,191,191,191,191,191 

191,191,191,191,191,191,191,191,191,191,191,143 

143,179,188,188,143,143,179,188,191,143,143,131 

131,2 03,176,188,191,191,191,191,191,15 9,143,17 9 

128,188 

91,191,191,191,191,191,191,191,191,191,191,191 

191,143,191,191,143,143,143,17 9,179,17 9,188,128 

191,143,17 9,188,191,143,131,207,176,190,191,191 

143,131,143,17 9,18 8,190,191,143,17 9,128,17 9 

91,191,143,191,191,191,143,143,143,179,17 9,17 9 

188,128,188,188,191,143,143,143,17 9,17 9,179,128 

188,191,191,143,129,208,138,191,191,191,191,191 

128,182,131,135,137,188,191,191,191,191 

79,17 9,128,188,188,188,191,191,143,143,143,179 

179,128,188,188,188,191,191,191,191,191,191,191 

143,135,129,212,131,191,191,191,188,176,152,143 

191,140,132,129,162,191 

43,143,128,17 9,17 9,188,188,188,191,191,191,191 

191,191,191,191,191,191,143,143,143,131,131,216 

184,191,191,131,131,191,143,135,17 9,188,182,139 

162,191 

91,191,188,159,143,143,143,143,143,131,131,131 

131,129,221,176,176,188,188,191,191,191,188,194 

143,143,167,179,188,191 
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START HERE 
WITHB3 




li r Tr -i mf-iir jg i fiir- -if 



Begin your search in the 
index of Computer Shop- 
per's bargain filled pages. 
Locate the category and 
page number of items 
that interest you from 
TRS-80 and Apple to soft- 
ware and peripherals. 




► 



Start or add to your com- 
puter system by finding 
money saving bargains in 
each month's issue from 
individuals who no longer 
need their personal equip- 
ment. 




III! 



You've got your computer 
hardware, but what about 
the software? Use a Com- 
puter Shopper ad to find 
what you need. Someone 
advertising in Computer 
Shopper probably has what 
you want. 




► 



If you need help with any 
computer related problem 
whether it's an interface 
problem or advice on the 
right peripheral for a home- 
brew system, use the free 
HELP column especially 
designed for that purpose. 



WflA 



► 



As you outgrow your 
system or want to trade up 
(most dealers. won't take 
trade-ins), use Computer 
Shopper ads to sell your 
items to 20.000 readers na- 
tionwide for the low cost of 
12 cents per word. 




Computer Shopper is THE nationwide magazine for buy- 
ing, selling and trading Micro and Mini-computer equip- 
ment and software. Each issue has over 60 pages full of 
bargains of new and used equipment. 

You can save hundreds of dollars by getting the equip- 
ment you need from the hundreds of classified ads in- 
dividuals place in Computer Shopper every month. 

Now is the time for you to join over 20,000 other com- 
puter users who save time and money with a subscription 
to Computer Shopper. 

Subscribe today and get your first issue and a classified 
ad absolutely FREE. Type or print your ad on a plain piece 
of paper and send it along with your subscription. 

Just fill in the coupon or MasterCard or VISA holders 
can phone TOLL FREE 1-800-327-9920 and start making 
your computer dollar go further today. 



Cut out and mail to: COMPUTER SHOPPER 

P.O. Box F138 • Titusville, FL 32780 

Yes, I'll try Computer Shopper, I understand that if I'm 
not satisfied with my first issue I can receive a full re- 
fund and keep the first issue free. 

□ 1 year $10.00 ($30.00 in Canada) 

D I have enclosed my free classified ad. 

D I want to use my free ad later, send me a coupon. 

NAME: 



ADDRESS: 
CITY: 



STATE: 



.ZIP:. 



'.amPUTER SHDPPSR 

P.O. Box F138 • Titusvilie, FL 32780 
Telephone: 305-269-3211 



.-" 39 



,--:>•:■ List ol Advertisers on cage 402 
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GENERAL 



A variety of peripherals and expansions make it easy. 




adening tl 




S-80 Horizon 



David D. Busch 

515 East Highland Avenue 

Ravenna, OH 44266 



in "Radio Shack versus the 
Competition" (80 Microcom- 
puting, November 1980) I dis- 
cussed the most common expan- 
sion options available to the 
TRS-80 Model I owner, and com- 
pared sticking with Radio Shack 
with going to an outside supplier 
for these goodies. 

The intervening months have 
altered the picture considerably; 
I have reversed my recommen- 
dations in some cases. In addi- 
tion, the Model I is no longer pro- 



The Key Box 

Model I or III 
Disk Drive 
Printer 
Modem 
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duced in this country, and 
Model III users have a new set of 
considerations. Some 300,000 
happy owners are ready to ex- 
pand their sytems. 

My original premise was that 
the computer hobbyist or small 
business user is not very hard- 
ware oriented, and may also be 
a novice programmer. These 
users want a p|ug-in, turnkey 
computer system; they are at 
least moderately apprehensive 
about choosing between Radio 
Shack's offerings and lower- 
priced upgrades from the neigh- 
borhood House of Computers. 

Additional Memory 

For the Model I, the upgrade 
from 4K to 16K was almost auto- 
matic. With the Model III, this 
expansion is even simpler: It is 
unnecessary- to purchase an ex- 
pansion interface to add memo- 
ry chips up to 48K. Some enter- 
prising firms nave recently intro- 
duced "keyboard" memory 
units so owners of the Model I 
sans interface can also add the 
maximum amount of memory 
without purchasing a disk con- 
troller board. 

Should you purchase your 
RAfv 1 chips from Radio Shack oi 

1982 



some other source? I added 
"foreign" RAM to my Model I 
keyboard, and decided to go 
with Radio Shack for the 
"touchier" expansion interface 
memory when I upgraded in late 
1979. If I were purchasing a 
Radio Shack computer today, 
my choices would be reversed. 

The price differential today is 
as significant as ever. Expand- 
ing a Model III 16K machine to 
48K costs $198 using Radio 
Shack memory chips. Other sup- 
pliers sell identical sets of chips 
for about $20 per 16K, or 
$40-$50 total. Much sifting out 
of faulty chips has taken place in 
the last few years; a user should 
have little difficulty getting a set 
that works well. Some potential 
memory problems caused by 
connectors between the expan- 
sion interface and CPU in the or- 
iginal Model I do not exist in the 
Model III. 

With the help of widely avail- 
able "memory test" programs 
which root out faulty RAM 
chips, even neophyte users face 
little chance of being stuck with 
an untraceable problem. 

To avoid these difficulties, I 
elected to go with Radio Shack 
memory in 1979. There seems to 



be only one solid reason to do so 
today: A single vendor is respon- 
sible tor trie health and reliabili- 
ty of your computer. Radio 
Shack will repair computers 
containing foreign memory 
chips, but it does not accept re- 
sponsibility for problems 
caused by them. 

Because Radio Shack bun- 
dles its Model III ROM and the 
firsM6K upgrade kit, the simpl- 
est course is to add both as a 
package. 

Mass Storage Alternatives 

Options for storing programs 
and data become more numer- 
ous every day. Standard cas- 
sette recorder use has dropped 
off severely, replaced, in most 
cases, by disk systems. Disk of- 
fers faster access to data, as 
well as expanding capabilities 
through Disk Basic, and sophis- 
ticated operating systems like 
NEWDOS80and LDOS. 

Although Radio Shack's disk 
drives v cost significantly more 
than others, I purchased two 
"original equipment" drives for 
my system. Local servicing 
seemed preferable to shipping 
them across country to some 
other manufacturer. The extra 



money was an investment in 
maintaining close, convenient 
service facilities. I use my com- 
puter in business and can hardly 
afford to have my machine out 
of commission for long periods 
of time. 

As it turns out, both drives 
function poorly at the same 
time. Taking the drives less than 
a mile from my home was attrac- 
tive, but I did not know I would 
be doing it so often. One drive, a 
Tandon-built unit, made five 
trips to the shop during the war- 
ranty period, and continued to 
act up after the warranty 
expiration. 

My second drive, a Shugart 
model, expired after several 
years of faithful service. The 
several days' service I originally 
enjoyed is a thing of the past. 

Meanwhile, my friends who 
own Percom and other model 
disk drives are happily comput- 
ing. Here in the remote reaches 
of Ohio they must seek service 
help from distant sources. But 
some out-of-warranty shops are 
fast and reliable. 

I plan to upgrade to a four 
drive system in the near future; I 
will consider seriously drives 
manufactured by makers other 
than Radio Shack. 

Model III users purchase their 
disk controller circuitry only at 
the time they get their initial 
drive. They must consider 
whether to get that drive from 
Radio Shack (which will stand 
behind the entire computer), or 
from another supplier. Other 
firms build disk controllers for 
first drives, but in most cases, 
the user must install it. 

Another factor is the availabil- 
ity of 80-track drives from out- 
side firms. Given the Model 
Ill's double density capabil- 
ities, data storage possibil- 
ities are prodigious. 

Printers 

Several years ago, not many 
printers were available, and all 
were expensive— $800 and up. 
Radio Shack offered what was 
basically a line of Centronics 
printers sold at prices several 
hundred dollars higher than the 
same, frequently discounted, 
units in Centronics trade dress. 

Today, you can buy 80 col- 



umn dot matrix printers for $300 
and up, with fancy features such 
as proportional spacing, graph- 
ics, and near letter-quality of- 
fered at very low prices. Radio 
Shack's printers are competi- 
tively priced, and can be pur- 
chased on sale from time to time 
as genuine bargains. 

Daisy-wheel printers, gaining 
in popularity, are available for 
about $1400-$3500. Radio 



". . . both drives 

function poorly 

at the same time." 



Shack's own version is priced 
at the lower middle end of 
that range. 

Radio Shack or the competi- 
tion? A printer can be large, 
bulky, heavy and hard to ship. If 
you plan on heavy use and ex- 
pect to require service frequent- 
ly, find a reliable local service 
outlet. Radio Shack offers thou- 
sands of drop-off points for 
printers. Many local computer 
stores have their own service 
technicians. 

However, mail-order purchase 
of a printer is not out of the 
question. My own Integral Data 
Systems unit has functioned 
perfectly for nearly three years 
without a service call. I give it 
only light-duty use: 30 pages of 
program listings a week, and an- 
other 30-50 pages of text. 

You may use your printer 
more heavily, but except for 
those using their computers for 
writing, issuing invoices, or 
printing checks or mailing 
labels, a sidelined printer 
seldom brings an entire system 
to a screeching halt. 

Modems and Serial Interfaces 

Radio Shack stacks up well in 
this area. I have used my rugged 
and reliable Modem I, a direct 
connect unit, for some months. 
At $149 i! cost less than more 
portable acoustic units, but 
those have fewer features. 
Linked through the cassette 
port, it is one way to give Model I 
users without an expansion in- 



YOU DON'T NEED 
AN EXPANSION INTERFACE! 

Running out of rxxxn? 
Increase the memory in your TRS-80* Model I or PMC- up to 48K with no external 
hardware! The INTERNAL MEMORY™ plugs in inside your keyboard case with NO 
SOLDERING and can be easily removed at any time. Hundreds of satisfied customers 
have proven that the INTERNAL MEMORY is reliable, does not cause heat or power 
supply problems, and is compatible with virtually all hard%ard and software. 



IM-1B INTERNAL MEMORY™ (32K) 
I.M-2 INIERNAI MEMORY''' 1 I48K) 



$85.50 complete ($59.50 less RAMI 
$140.00 complete ($89.50 less RAM) 



SPEED UP your TRS-80/PMC-80 and add a PRINTER! 

The SPRINTER™ plugs into the Z-80 socket in your TRS-80/PMC case with NO 
SOLDERING. The SPRINTER equips your computer with a standard parallel printer 
port (extending out the case by the expansion connector) with no other hardware or 
software needed. In addition, the SPRINTER allows software selection of 8 different 
speeds from % to 3 times "normal" (no delay line needed). Speed automatically 
switches to normal during cassette and disk operations. 



SPRINTER" 
SPRINTER 



speed-up/printer port (assembled & tested) 
speed-up only; no printer port 



$99.50 
$69.50 



All products guaranteed for 1 year with a 30-day return privilege. PLEASE INCLUDE 
$3.00 SHIPPING IN U.S., $5.00 for CANADA, 15% for overseas orders. 

Send a self addressed stamped envelope for more information. 

- yfomteA' (onaisieesutia/ 

:iS55 South 3200 West Salt Lake City, Utah 84119 

DEALER INQUIRIES INVITED 

Prices valid through end of month on front cover. 




COLOR COMPUTER SOFTWARE 



EDITOR ASSEMBLER 
DEBUGGER 



$ 6 



95 



CCE AD: This 8K Basic Program supports cassette tiles, has full cursor control, line in- 
sertion/deletion, and much more Two pass assembler supports lull 6809 instruction sei 
& addressing modes, lists to screen or printer. Debugger allows memory examine/' mo- 
dify program execution II not delighted return within 2 weeks for a lull refund. You ge! 
fully commented Basic source & complete instructions. Requires Ext. Basic & 16K. . . . 
CASSETTE $6-95 

DELUXE TERMINAL PROGRAM 

COLORCOM/E: This terminal program has everythingi PLUS it's in a convenient plug- 
in cartridge. LOOK at these features 



Automatic or manual capture 
Selectable Capture characters 
Exchange Basic programs 
Word mode means no split words 
And much, much more 



• Complete upload & download support 

• Selectable baud rate & parity 

• KM or ■-.< I ::u::lcx 

• Write to any printer or cassette 

• Supports ANY serial printer 

Use with CompuServe, The Source, elc Talk to other Color Computers. Works with any 
model Color Computer & full duplex RS232 modem. .-. CARTRIDGE S49.95 

STRIPPER: The Stripper takes off alt that excess fat in your Basic Programs Three valu- 
able commands: ( 1 ) Delete Remarks. (2) Pack Lines. (3) Delete Spaces Fully automatic, 
is not fooled by GOTO's. GOSUB's. etc. Your programs will run faster and take up much 
less memory CASSETTE S7.95 

BOOTSTRAP: This Cartridge automatically loads and executes Basic programs from 
cassette at power-up. Can't fail Ignores data files. Machine Language files, or Basic tiles 
that have errors. For those programs that have to run! CARTRIDGE $34.40 

RS232 EXPANSION CABLE: With this cable you can connect 2 devices at the same 

time to the RS232 part of your Color Computer Great for printer & modem 

; RS232 Cable $20.00 

CUSTOM CARTRIDGES: Put YOUR Basic program into a convenient ROM Cartridge. 
It seasy 1 Runs instantly at power-up. frees up memory Use for Ad displays, schools, etc 
Call or write lor info FROM $41 65 



Send check, money order. 

or Visa/MC Number. 
Include $1 for postage and 
handling: Visa/MC: Phone 

■■.;■ 'HS! ! i'Ivi. 




P.O. 8ox10234 
Austin. Texas 78766 
(5121837-4665 

1^154 
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ZIP UP YOUR 
MODEL I 



SPEED-UP UNIT - an easy to install electronic device that enables programs 
to run 2 to 3 times faster. It's the fastest and finest quality speed-up unit 
on the market. 

• guaranteed to double processing speed- no additional 
purchases required. 

• programs will run up to 3 times faster (5.3 mhz) by adding 
a Z80B microprocessor and delay line - not supplied. 

• returns automatically to normal speed during disk and 
cassette operation - no software patches required. 

• keyboard power-on light changes color to indicate operating 
speed. 

$45.00 

VIDEO I. Reverses the video display to provide black characters and 
graphics on an all white screen for a much easier to read presentation. 
Software controlled. Cures pulling and distortion problems commonly ex- 
perienced with TRS-80 monitors. For use with TRS-80 monitors only. 
Assembled. 

$24.00 

'SATISFACTION GUARANTEED" 

Add $2.00 postage & handling - California residents add 6% sales tax 
-Foreign orders add 15%. 



ARCHBOLD ELECTRONICS 

10708 Segovia Way Rancho Cordova, CA 95670 

(916) 635-5408 

Dealer inquiries invited 



Make 




terface a dial-up connection. 

My RS-232 interface is also a 
Radio Shack unit. The board it- 
self has performed faultlessly. I 
must jiggle and tighten the con- 
nector at intervals to ensure 
good contact. Fortunately, I use 
an intelligent terminal program 
that tests the RS-232 every time 
the program is run. Only on rare 
occasions has my serial inter- 
face crashed during use. 

Other modems, such as the 
Micro Connection and the Lynx, 
allow telecommunications with- 
out an RS-232 board. 

In my case, the RS-232's prob- 
lems are minor, and would not 
weigh heavily should I have to 
choose again. I like the Modem 
I's low, low price. 

Software 

There are no overriding 

reasons to stick with Radio 
Shack software for any particu- 
lar applications. Some offerings 
are pale imitations of popular 
programs offered elsewhere. 
Others, such as Scripsit, be- 



come standards against which 
all similar programs are mea- 
sured. In a few areas Radio 
Shack lags badly behind the 
state of the art (for example, 
Disk Operating Systems). 

If the software you need is not 
available from Radio Shack,, it 
will generally be offered by out- 
side firms now writing for the 
TRS-80 Models I and III. Fortu- 
nately, many good magazines 
review software and provide val- 
uable information on the relative 
worth of each new package. 

The hundreds of thousands of 
TRS-80 owners have a treasure 
trove of programming available 
at low cost. Software is possibly 
the most exciting of all expan- 
sion offerings, the area in which 
it is easiest to go right. ■ 

David Busch is a partner in a na- 
tionwide public relations/photo- 
journalism firm. Since 1974, he 
has written more than 200 com- 
puter and word processing-orient- 
ed articles. He owns, operates, or 
programs five different microcom- 
puters. 





microcomputing 



the only major journal For the users of the TRS-80*, a sure bet for getting the computer 
enthusiast into your store. Once through the door you can sell him anything. 

We know 80 will make you money . . . it's the only magazine for the TRS-80* users and you know how many 

of those there are. So call today and join the dealers who make money with 80. 

For information on selling 80 Microcomputing, call 603-924-9471 and speak with Ginnie Boudrieau, our 
Bulk Sales Manager. Or write to her at 80 Microcomputing, Pine Street, Peterborough, NH 0.3458. 

*TRS-80 is a trademark of Tandy Corp. 
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HIGH SPEED CASSETTE SYSTEM 



Now the widely acclaimed 
J PC Cassette System is available 
for your TRS-80* computer. 
The price is only $90.00 

TC-8 Cassette System 

J PC Products 
Albuquerque, NM 
Kit: $90 
Assembled: $120 

by Carl A. Hollar 

I guess I don't have to tell any TRS-80 owners 
how frustrating the cassette system that 

comes with the computer can be. Even with the 
factory mod that's available, the annoyance of 
loading and checking programs becomes just 
barely tolerable. 

If you're like me, aftei you've just plunked 
down a chunk of money for a Level II 16K ma- 
chine, "you ain't got nuttin left" for even one 
disk drive at 500 bucks apiece. So you suffer. 

A reasonable alternative is the Exatron 
Stringy Floppy (ESF). This will cost you about 
250 bucks and totally eliminates your loading 
and saving problems, automatically and fast. 
I've had one of these for about six months and 
love it! 

But, if the price is still too steep, have I got a 
device for you! 

The Device 

The February 1980 issue of Microcomputing 
had an ad thai intrigued the hell out of me. It 
was a high-speed cassette system by J PC Prod- 
ucts acclaimed as a "poor man's floppy." It 
made all sorts of seemingly ridiculous claims 
such as "loads five times faster," "stores 50,000 
bytes on a 10-minute cassette," "less than one 
bad load in a million bytes with the volume con- 
trol anywhere between one and eight." 

All this for a measly [90] bucks? How could 
this be? A call to Albuquerque answered a few 
questions: Yes, it had its own power supply, 
and, it stored programs five times faster be 
cause it utilized higher density data. The com- 
puter outputs the information at a higher rate 
out of die rear keyboard connector. 

The ad had even claimed anyone could build 
il even if you have never soldered before. J PC 
would make it work, if you couldn't — for free. 
I was sold. I placed my order, and it arrived 
about two months later (parts shortage). 

I work in electronics, so I found the unit ex- 
ceptionally easy to build. It took about an 
hour. The manual is superb. (That's better than 
ereat.) It was clear, concise and exact with no 




FOR TRS-80 
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ambiguities. Important parts placements are 
stressed (polarity markings on electrolytics, 
bands on diodes, etc.). 

JPC was right! With these instructions, you 
couldn't go wrong. The board quality is excel- 
lent. It is double-sided and parts locations are 
clearly marked on the component side of the 
board. There are no jumper wires to install. 
JPC utilizes PC traces and plated-through 
holes for connections to traces on the other side 
of the board. 

Also, there are absolutely no adjustments or 
settings to bother with. 

The documentation is a sheaf of 8 Vi x 1 1 pa- 
pers stapled together. It is written in the nicest 
format I've seen in a while. Each command 
and/or subjects is covered on its own sheet in 
large type. All explanations are in easy to read 
English — not computerese. 

Commands and Features 

SAVE"filename": Saves your BASIC pro- 
gram on cassette. 

LOAD: Reads the next BASIC program from 
the cassette. 

I,OAD"filename": Searches for and loads the 
specified file from cassette. 
LOAD? and LOAD?"filename": Reads file 
from cassette, and compares contents to mem- 
ory. 

LOADN: Prints a list of all the programs on a 
cassette, until interrupted by the "break" key. 
LOADN"fiIename": Same as above except the 
tape will stop at the end of the program named . 
KILL: Removes the file manager program 
from memory so that the extra memory can be 
used by large programs. 

RSET: Allows the operator to rewind and posi- 
tion the tape on tape recorders that have these 
functions tied to the motor control jack. 
RUN"filename": TC-8 searches for a specified 
program and runs it immediately. 
PUT"filename": Same as SAVE "filename", 
except it is for use with system tapes. 
GET: Same as LOAD, except it is for use with 
system tapes. 

GET'Tilename": Same as LOAD "filename", 
except it is for use with system tapes. 
GET? and GET?"filename": Same as LOAD? 
and LOAD? "filename", except it is for use 
with system tapes. 
GETN and GETN"filename": Same as 



LOADN and LOADN'Tilename", except it is 
for use with system tapes. 
OPEN: Required before cassette input or out- 
put of a data file can be attempted. 
CLOSE: Required to end a cassette data file. 
PRINT*: Allows numerical or string data to be 
output to a cassette file. 
INPUT*: Allows numerical or string data to be 
input from a cassette file. 

I haven't counted them, so I don't know 
about the "one load in a million bytes" claim, 
but my son, Anthony (age 11), loaded about 30 
of his programs from his Radio Shack format 
tape to a new TC-8 format tape. He's run them 
all and found no bad loads. 

Unlike the standard tape system , you can po- 
sition your tape anywhere before the program 
you want and not have to look for a blank spot 
between programs. The TC-8 patiently waits 
for the program you want and then starts load- 
ing without getting confused by the portion of 
the previous program you just fed it. 

Try that on your regular cassette system; 
you'll wear out the reset button. ■ 

ORDER NOW 

To order your TC-8 kit, send your check or 
money order for $90.00 plus $3.50 postage 
and handling to JPC PRODUCTS CO., 12021 
Paisano Ct., Albuquerque, NM 87112 (New 
Mexico residents add 4% sales tax). Credit card 
orders accepted by phone or mail. Personal 
checks will delay shipment. We will otherwise 
immediately ship you the TC-8 kit, the cabinet, 
the ribbon cable, the power adapter, an instruc- 
tion manual, and a cassette containing the 
software. 




s 4? 



PRODUCTS CO. 
Phone (505) 294-4623 
12021 Paisano Ct. 
Albuquerque, N.M. 87112 
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DESI 



for TRS-80 1 




An afford- 
able multidrive 
floppy disk in- 
terface. The AN- 
760 supports 35, 40, 
80 and 160 track 
drives. Using proprie- 
tary Digital Data Separ- 
ation Techniques, maxi- 
mum permissible data 
transfer integrity is assured. Read, write, and step LED 
indicators prompt operator during all disk I/O. The 
AN-760 comes complete with power supply module and 
operation manual. (Operating system software optional.) 




8K Bytes of 
User Program- 
able Firmware 
(4-2716 Eproms) 
are automatically 
loaded by system 
/12345 Command con- 
trolled by a 2716 con- 
troller chip. The user can 
create his own firm 
operating system to load and execute programs from 
Eprom or to provide user defined arithmetic functions. 
Comes complete with power supply, operation manual 
and controller chip. (The AN-522 requires AN-551 Eprom 
programmer.) 



qq 
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An enhanced 
version of our 
original Eprom 
Programmer, the 
AN-551 will now pro- 
gram the single sup- 
ply 2516, 2716, 2532 
and 2732 
Eproms from Basic or 

machine language. Software provided will load Eprom 
from TRS-80 Ram or load TRS-80 Ram from Eprom with 
complete on-screen verification. The AN-551 comes com- 
plete with power supply and operation manual. 

All connections made to AN-SERIES products from your bread- 
board are simply pushed through the front panel. Custom connec- 
tors on the P.C.B. provide super reliable connection for thousands 
of operations. All AN-SERIES products are warranted for a full 
90-DAYS under DSI's limited warranty policy. Complete documen- 




presents the AN-SERIES DEVELOPMENT SYSTEM 
Apple II™, Commodore PET™, Superbrain™* 

CONVERTER 



Using DSI Pro- 
prietary Data 
Separation and 
Write Precompen- 
sation Techniques, 
the AN-920 provides 
approximately 1.6 times 
more data 
storage capacity on 
your 5 1 /4 disk drives. The AN-920 can be used in con- 
junction with the AN-760 FDC or the TRS-80 expansion 
interface. Double Density System comes complete with 
power supply module and operation manual. (Required 
Newdos-80 Ver 2.0 Disk Operation System Optional.) 

RANGE DVM INTERFACE 

Analog Sig- 
nal Interface 
is now as easy 
as turning a knob. 
EE-1670 provides 
DVM functions volts, 
and milli-amps and 8 
ranges, 1-200 milli- 
volts, 0-2, 0-20, 0-200 
volts, 0-200 micro amps, 

0-2, 0-20, 0-200 milliamps, standard banana jacks and test 
leads create perfect connection scheme for real time 
analog data acquisition. EE-1670 system is complete 
with power supply and manual of operation. 

RS-232 INTERFACE 

Can be con- 
figured to 
communicate 
with data com- 
munications equip- 
ment or data termin- 
al equipment at 110, 
150,300,600,1200,2400, 
4800 and 9600 Baud. The 
AN-464 provides 20MA 
loop output and RS-232C through a DB-25P connector. 
Software selectable odd/even parity, 5-8 bit word lengths 
and stop bit formats are standard along with power sup- 
ply module, software driver, and operation manual. 

tation is provided for each model in an attractive folder, including 
theory of operation, and special interest projects and applica- 
tions. All units are supplied with external power supply modules 
that connect through a mini-jack on the front panel. 




■ mi 




DESIGN SOLUTION inc. 

BOX 1225., FAYETTEVILLE, AR 72701 



C.O.D. add $5.00 — Other add $3.00 S/H. 

(Exports slightly higher) 

Orders and Information: (501) 521-0281 



HARDWARE BRI 



for TRS-80 1 



inc. presents the AN-SERIES DEVELOPMENT SYSTEM 
Apple II™, Commodore PEP M , SuperbrairT 



,TM* 




S179.95 



True TRS-80™ work-a-like capability is now 
available in kit form from DSI. The AN-7000 pro- 
vides a full 16K of dynamic ram, with a com- 
plete modulated video interface system for use 
with standard televisions, Z-80B Micro-processor, 
cassette interface, membrane keyboard, finished 
case and power supply module, as well as every 
component needed for ROM-less assembly. Save hun- 
dreds of dollars by assembling the AN-7000 processor 
yourself with only common hand tools. Step by step in- 
structions with clear cut pictorials and schematics create a very straight-forward work environment as 
you assemble your own system from scratch. Totally flexible, the AN-7000 will interface with all Model I 
Level II hardware accessories including the DSI AN-760 FDC and AN-1000 Megadrives. The AN-7000 system 
represents the most significant break-through in user assembled computer equipment available. The 
AN-7000 kit comes complete with all parts necessary for a full 16K, Z-80 based CPU, less the 12K basic in- 
terpreter ROMS. 



New DOS 80™ ver 2.0 is available at special package 
purchase rates for the AN-760 and AN-1000. Contact 
tact DSI for complete DOS pricing. 



A Registered Microsoft™ TRS-80 Level II work-a-like 3 
chip set with manual and complete documentation is 
available for the AN-7000. The Microsoft-DSI basic 
package lists at $89.95. 





$590. oo 

This single or double density 80 track 
dual sides 5 1 /4" floppy disk drive is a 
must for all serious TRS-80 and DSI 
fc systems users. With almost 1 million 
S bytes of unformated data storage capaci- 
ii^f ty in the MFM double density mode the 
$S[k AN-1000 provides the utmost in stability 
W® of performance at a very reasonable 
^^ price. Track to track access time 3 ms, 
soft error rate 1-10 9 reads, hard errors 1-10 12 
w reads, and media life 4x10 6 , clearly represent the 

AN-1000 technology. Complete with power supply, 
se, cable and operation manual. 



All connections made to AN-SERIES products from your bread- 
board are simply pushed through the front panel. Custom connec- 
tors on the P.C.B. provide super reliable connection for thousands 
of operations. All AN-SERIES products are warranted for a full 
90-DAYS under DSI's limited warranty policy. Complete documen- 



tation is provided for each model in an attractive folder, including 
theory of operation, and special interest projects and applica- 
tions. All units are supplied with external power supply modules 
that connect through a mini-jack on the front panel. 



DESIGN SOLUTION inc. 

BOX 1225, FAYETTEVILLE, AR 72701 



V 57 



C.O.D. add $5.00 — Other add $3.00 S/H. 

(Exports slightly higher) 
Orders and Information: (501) 521-0281 



TECHNIQUE 



Add precision to your graphics animation. 



Smooth Graphics 



Ronald Goodman 
12702 Emelita Street 
North Hollywood. CA 91607 



Most Space Invader games 
move the aliens two X posi 
tions lo the left or right and three 
Y positions down at a time. Even 
arcade games move the aliens in 
blocks rather than single X or Y 
positions at a time. Why? A pic- 
ture of an invader might occupy 



three adjacent CHR$ graphic 
blocks. It is difficult to slide the 
invaders only one X position at a 
time, because a CHR$ is two X 
positions wide. Likewise, a CHR$ 
is three Y positions tall; it is 
easier to move the invader three 
full Y positions. The Assembly 
Language program shown in Pro- 
gram Listing 1 shifts graphics on 
the screen Vz of a CHR$ position 
(one X position) left and right, 
and V 3 of a CHR$ position (one Y 







Program Listing 1. 




71) 110 


00100 




ORG 


3 2 00 




7D00 21003C 


011 


A:28S 


LD 


HL, 15360 


LINES 110- 


210 












7D0J 010004 


00120 




LD 


15 C ,10 2 4 


CHANGE ALL 


32 'S ON 












7D06 7E 


0013 


LOOPB 


LD 


A,(HL) 


THE SCREEN 


TO 128' S 












7D07 FE20 


00140 




CP 


32 


SO THE SCR 


EEN IS 












7D09 2002 


015 




J P. 


NZ,LOOPA 


COMPATIBLE 


WITH THE 












7D0B 3680 


016 




LD 


(HL) ,128 


SHIFTING P 


ROC, RAM. 












7D0D 23 


017 


LOOPA 


IMC 


HL 




717 0K 06 


00180 




dec 


BC 




7D0F 7 8 


00190 




LD 


A,B 




7D10 Bl 


00200 




OR 


C 




7D11 20F3 


00210 




JR 


NZ, LOOPB 




7D13 CD7F0A 


00220 




CALL 


0A7FH 


GET M FROM 


X=USR(M) 












7D16 7D 


00230 




LD 


A,L 


LINES 230- 


320 












7D17 3D 


00240 




DEC 


A 


JUMP TO TH 


E SHIFT 












7D18 280A 


00250 




JR 


Z,UP 


DIRECTION 


REQUESTED 












7D1A 3D 


2o 




DEC 


A 


OR RETURN' 


S TO BASIC 












lulV. 283F 


02/0 




JR 


Z , DOWN 


IF AN ILLE 


GAL NUMBER 












7D1D 3D 


00280 




DEC 


A 


WAS GIVEN. 


7D1E 2872 


00290 




JR 


2, LEFT 




7D20 3D 


00300 




DEC 


A 




7D21 286D 


00310 




JR 


Z.RITE 




7D23 C9 


00320 




RET 








00330 


; 


SH I FT 


SCREEN UP ROUTINE 


'ROM LINE 34 


TO 640 












7D24 21003C 


00340 


UP 


LD 


HL, 15360 




7D27 010004 


00 35 




LD 


BC,1024 




7D2A CB7E 


00.360 


L00P1 


BIT 


7,(HL) 




7D2C 2007 


00 37 




JR 


NZ,FIXi 




7D2E 0B 


00380 


NEXT1 


DEC 


BC 

Prog 


ram continues 



position) up and down. Use this 
program to shift banners, to 
make a picture of a car driving 
along, or for any other graphics 
application requiring precise 
shifting. The shifting ignores all 
non-graphic characters; shifting 
the letters by one X or Y position 
is impossible with software. 

Sometimes it is unnecessary 
to shift the entire screen. To 
modify the shift area for shift up, 
line 340 should load HL with the 
lowest spot on the screen you 
want to move. Line 350 should 
load BC with the number of posi- 
tions up from the spot you want 
to shift. You can modify shift left 
in the same way; line 970 should 
load HLand line 980 should load 
DE (instead of BC). For shift 
down, line 660 should load HL 
with the highest screen position 
to be shifted. Line 670 should 
load BC with the numberof posi- 
tions down from the first spot 
you want to shift. Modify shift 
right like shift down; line 1380 
should load HL and line 1390 
should load DE. After the pro- 
gram is in memory, you can relo- 
cate it. If you call the program 
from Basic, useX = USR(D). If D 
equals one then shifting goes 
up. Two shifts down; three shifts 



The Key Box 

Basic Level !l 
Model I or III 
16KRAM 



left; and four shifts right. If you 
call the program from another 
machine language program de- 
lete lines 220 and 230. When 
calling the program, load A with 
one for up, two for down, three 
for left and four for right. 

You can combine the program 
shown in Listing 2 with a Basic 
program. Change line 45000 to 
make X equal the starting ad- 
dress you desire (or leave it as is). 

The program in Listing 3 must 
be used with Listings 1 or2. If you 
use Listing 1, POKE 16526-16527 
with the starting address you 
choose. Listing 2 takes care of 
the POKEs for you. 

Combination Shifts 

There are four possible dia- 
gonal shifts- left and up, right 
and up, left and down, and right 
and down. The program shown in 
Listing 4 shifts at a slope. A 
slope is a vertical increase or 
decrease divided by a horizontal 
increase or decrease. The verti- 
cal movement is Y and the hori- 
zontal movement is X. When 
running Listing 4, enter the X 
and Y separated by commas. 
This program then shifts some 
graphics along that slope. To 
enter a new slope, press the 
space bar while the graphics are 
moving. ■ 



Ron Goodman, a 15-year old 
Beatles freak, has been working 
on a TRS-80 for about two years. 
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Program continued 



7D2P 23 
7D30 78 
7D3] B] 
7D32 20F6 
7D34 C9 
7D37 C5 
7D36 46 
7D37 114000 
7D3A ED52 
7D3C CB7E 
7D3E 280C 
7D40 CB40 
7D42 2802 
7D44 CBE6 
7D46 CB48 
7D48 2802 
7D4A CBEE 
7D4C 19 
7D4D CB3E 

7D4F CB3E 
N 

7D51 CBFE 
7D53 CB66 
7D55 CBAE 
7D57 CBA6 
7D59 CI 
7D5A 18D2 

660 TO 950 
7D5C 21FF3F 
7D5F 010004 
7D62 CB7E 
7D64 2007 
7D66 0B 
7D67 213 
7D68 78 
7D69 Bl 
7D6A 20F6 
7D6C C9 
7D6D C5 
7D6E CB26 

7D70 CB26 
M 

7D72 CBFE 
7D74 CBB6 
7D76 114000 
7079 ED52 
7D7B 46 
7D7C 19 
7D7D CB7 8 
7D7F 280C 
7D61 CB68 
7D83 2802 
7D85 CBCE 
7D87 CB60 
7D89 2802 
7D8B CBC6 
7D8D CI 
7D8E 18D6 
7D90 184B 

970 TO 1360 
7D92 21003C 
7D95 110004 
7D98 CB7E 
7D9A 201C 
7D9C 23 
7D9D IB 
7D9E 7A 
7D9F B3 
7DA0 20F6 
7DA2 213F3C 
7DA5 114000 
7DA8 0610 
7DAA CB7E 
7DAC 2806 
7DAE CB8E 
7DB0 CB9E 
7DB2 CBAE 
7DB4 19 
7DB5 10F3 
71)37 C9 
7DB8 CB2E 

7 DBA CBB6 

7DBC CBAE 

7DBE CB9E 

7DC0 CB8E 

7DC2 23 

7DC3 46 

7 DC 4 2B 

7DC5 CB7 8 

7DC7 28D3 

7DC9 CB40 

7DCB 2802 

7DCD CBCE 

7DCF CB50 

7DD1 280 2 

7DD3 CEDE 

7DD5 CB60 

7DD7 28C3 

7DD9 CBEE 

7DDB 18BF 

1383 TO 1770 
7DDD 21FF3F 
7DE0 110004 
7DE3 CB7E 
7DE5 201C 
7DE7 2B 
7DE8 IB 
7DE9 If. 
7DEA B3 



00390 

00400 

00410 

00420 

00430 

00440 FIX1 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 NEXBT1 

00540 

30550 

00560 G0BAK1 

00570 



10590 
90600 
50610 
30620 
30630 
30640 
30650 ; 

3 0660 DOWN 

?8678 

306 80 L00P2 

30690 

30700 NEXT2 

90710 

30720 

30730 

30740 

30750 

30760 FIX2 

30770 



00790 

00800 

00810 

00820 

00830 

0840 

00850 

00860 

00870 

00880 

80890 

00900 NEXBT2 

38910 

00920 

00930 G0BAK2 

00940 

00950 RITE 

03968 ; 

00973 LEFT 
00980 
00990 LOOP 3 

01000 

01010 NEXT3 

01020 

01030 

01040 

01050 

01060 

01070 

01080 

01090 LINE3 

01100 

01110 

01120 

01130 

01140 N0GRF3 

01150 

01160 

8 3 17 8 GRAFC3 

01180 

01190 

01200 

01210 

01220 

01230 

01240 

01250 

01260 

01270 

01280 

01290 

01300 NEXBT3 

81313 

813 2 

01338 M0RBT3 

01340 

01350 

31360 

81370 ; 

01380 RIGHT 

31390 

01400 L00P4 

01410 

01420 NEXT4 

014 3 

01440 

01450 



RET 

PUSH 

LD 

LD 

SBC 

BIT 

JR 

BIT 

JR 

SET 

BIT 

JR 

SET 

ADD 

SHE 

EKE 

SET 
PES 
RES 
RES 
POP 
JR 



NZ,L00P1 

BC 

B, (HL) 

DE,64 

HL,DE 

7,(HL) 

Z,G0BAK1 

0,B 

Z,NEXBT1 

4, (HE) 

1,B 

Z,G0BAK1 

5,(HL) 

HL,DE 

(HL)" 

(HL) 

7,; HE) 

6,(HL) 

5,(HL) 

4,(HL) 

BC 

NEXT1 



; SHIFT BYTE 
; SHIFT AGAI 



SHIFT SCREEN DOWN ROUTINE FROM LINE 



LD HL, 16383 

LD BC ,18 2 4 

BIT 7,(HL) 

JR NZ,FIX2 

DEC BC 

DEC HL 

LD A,B 

OR C 

JR NZ,L00P2 

RET 

PUSH BC 

SLA (HL) 



; SHIFT BYTE 
; SHIFT AG A; 



SLA (HL) 

SET 7,(HL) ■ 

RES 6,(HL) 

LD DE,64 

SBC HL,DE 

LD B,(HL) 

ADD HL,DE 

BIT 7,B 

JR Z.G0BAK2 

BIT 5,B 

JR Z,NEXBT2 

SET 1,(HL) 

BIT 4,B 

JR Z,G0BAK2 

SET 0,(HL) 

POP BC 

JR NEXT2 

JR RIGHT 

SHIFT SCREEN LEFT ROUTINE FROM LINE 



LD 
LD 

BIT 
J P. 
INC 

DEC 

LD 

OR 



HL, 15360 

IE, ,024 

7, OIL) 

NZ,GRAFC3 

HL 

DE 

A , 11 
F, 

NZ.L00P3 
HL, 15423 
DE,64 
B,16 
7,(HL) 
Z,N0GRF3 
1,1 HL) 
3,(HL) 
5,(HL) 
HL,DE 
LINE 3 

(HL) 

6, [HL) 
5,(HL) 

3,(HL) 
1,(HL) 
HL 

B, (HL) 
HL 
7,B 

Z,NEXT3 
0,B 

Z.NEXBT3 
1,(HL) 
2,B 

Z,H0RBT3 
3,(HL) 
4,B 

Z,NEXT3 
5,(HL) 
NEXT3 



; SHIFT BYTE 



LD 
LD 

BIT 

JR 

RES 

RES 

RES 

ADD 

DJNZ 

RET 

ERA 

RES 

RES 

RES 

RES 

INC 

LD 

DEC 

BIT 

JR 

BIT 

JR 

SET 

HIT 

JR 

SET 

BIT 

JR 

SET 

JR 

SHIFT SCREEN RIGHT ROUTINE FROM LINE 



LD 

EL 

BIT 

JR 

DEC 

DEC 

LD 

OR 



HL, 16383 
DE, 107.4 
7,(HL) 
NZ,GRAFC4 
HL 

DE 
A,D 



7DEB 


20F6 


01460 


JR 


NZ,L00P4 


7DED 


21003C 


01470 


LD 


HL, 15360 


7DF0 


114000 


01480 


LD 


DE,64 


7DF3 


0610 


0.1490 


LD 


B , I 6 


7DF5 


CB7E 


01500 LINE4 


BIT 


7,(HL) 


7DF7 


2806 


01510 


JR 


Z , NOGRF 4 


7DF9 


CB86 


01520 


RES 


0,(HL) 


7DFB 


CB96 


01530 


RES 


2,(HL) 


7DFD 


CBA6 


01540 


RES 


4, (HE) 


7DFF 


19 


01550 N0GRF4 


ADD 


HL,DE 


7E00 


10F3 


01560 


DJNZ 


LINE4 


7E02 


C9 


01570 


RET 




7E03 


CB26 


015 80 GRAFC4 


SEA 


(HI.) 


7E05 


CB96 


01590 


RES 


2,(HL> 


7E07 


CBA6 


01600 


RES 


4,(HL) 


7E09 


CBB6 


01610 


RES 


6,(HL) 


7E0B 


CBFE 


01620 


SET 


7,(HL) 


7E0D 


2B 


1633 


DEC 


HL . 


7E0E 


46 


01640 


LD 


B, (HL) 


7E0F 


23 


01650 


INC 


HL 


7E10 


CB7 8 


01660 


BI T 


7,B 


7E12 


28D3 


01670 


JR 


Z .NEXT4 


7E14 


CB48 


01680 


BIT 


: ,b 


7E16 


2802 


01690 


JR 


7 ,NEXBT4 


7 El 8 


CBC6 


01700 


SET 


0, (HL) 


7E1A 


CB5 8 


01710 NEXBT4 


BIT 


3,B 


7E1C 


2802 


3 720 


JR 


Z,M0RBT4 


7E1E 


CBD6 


017 30 


SET 


2,(HL) 


7E20 


CB6 8 


01740 H0RBT4 


BIT 


5,B 


7E22 


28C3 


01750 


JR 


Z,NEXT4 


7E24 


CBE6 


01760 


SET 


4,(HL) 


7E26 


18BF 


01770 


JR 


NEXT4 


0000 




017 80 


END 




0000 


TOTAL 


ERRORS 







SHIFT BYTE 



45000 

45005 

45313 

45020 

45030 

N." 

45040 

50000 

1.8818 

50020 

50030 

50040 



50100 
50110 
50120 
50130 

50140 
50150 
50160 
50170 
50180 



X=32000 

READA$:IFAS<>V**"THEN45005:DATA/** 
M=INT(X/256) :L=X-M«256:P0KE165 26,L:P0KE165 27,M 
READA:CS=CS+A:IFAO-1THENPOKEX,A:X=X+1:GOTO450 20 
IFCS<>32245THENPRINT"BAD CHECKSUM, CHECK DATA AND TRY AGAI 

RETURN 

DATA33,0,60,1,0,4,126 

DATA243,205,127,10,12 

DATA109,201,33,0,60,1 

DATA246,201,197,70,17 

DATA2,203,230,203,72, 

DATA254,203,182,203,17 

DATA4,203,126,32,7,11 

DATA203,3 8,203,254,203 

DATA40,12,203,104,40,2 

DATA214 

DATA3 2 , 

DATA158,203,174,25 

DATA158,203,142,35 

DATA206 

DATA33, 

DAT A3 3, 

DATA166 

DATA254 

DATA88, 



1,1,0 
i , 1 27 
.,33, 
1,197 
!30,2 
),182 
.26,3 
.203, 
!03,1 
7 5 , 3 
,33,6 
1,174 
1,142 
1,80, 
,63,1 
1,17, 
,16,2 
,70,3 
f,203 



254,32,32,2,54,128,35,11,120,177,32 

,61,40,10,61,40,63,61,40,114,61,40 
0,4,203,126,32,7,11,35,120,177,32 
64,0,237,82,203,126,40,12,203,64,40 
0,2,203,23 8,2 5,203,62,203,62,203 
4,203,166,193,24,210,33,255,63,1,0 
43,120,177,32,246,201,197,203,38 
,182,17,64,0,23 7,82,70,25,203,120 
,203,206,203,96,40,2,203,198,193,24 
17,0,4,203,126,32,28,35,27,122,179 
4,8,6,16,283,126,48.6,283,142,233 

243.2 01,2 03,46,203,182,203,17 4,2 03 
43,203,120,40,211,203,64,40,2,2 03 
3,222,203,96,40,195,203,23 8,24,191 
03,126,32,28,43,27,122,17 9,32,2 46 
16,203,126,40,6,203,134,203,150,203 

203.3 8,203,150,203,166,203,182,203 
20,40,211,203,72,40,2,203,198,2 03 
3,104,40,195,203,230,24,191,-1 



7,5 



Program Listing 2. 



5 GOSUB45000:REM LEAVE THIS LINE OUT IF YOU ARE USING LISTING 1 

10 CLS:CLEAR100:FORX=1TO15:PRINTSTRING$(64,191) ; : NEXTX 

20 PRINT@47 4, "LITTLE SHIFT"; 

30 G(1)=1:G(2)=3:G(3)=2:G(4)=4:FORA=1TO20STEP4:FORD=1TO4:FORC=1T 

OA:X=USR(G(D) ) :NEXTC,D,A 

40 CLS:FORX=47 0TO5 98STEP6 4:FORY=0TO5:READG:PRINT@X+Y,CHRS(G) : NEX 

TY,X 

50 PRINT@0,"USE THE FOUR ARROW KEYS TO ' MOVE THE FACE." 

60 A=PEEK(14 40 0) : IFA=8THENG=1ELSEIFA=16THENG=2ELSEIFA=3 2THENG=3E 

LSEIFA=6 4THENG=4ELSE6 

70 X=USR(G) :GOTO6 

100 DATA152,163,147,163,147,164 

110 DATA149,160,136,132,144,170 

120 DATA130,164,179,179,152,129 



Program Listing 3. 



5 GOSUB45000:REM DELETE THIS LINE IF YOU ARE USING LISTING 1 

10 CLS:DEFINTX-Z: INPUT" ENTER THE SLOPE Y/X (USE THIS FORM - Y,X) 

";Y,XsCLS 

15 PRINT9472,CHR$(191) ; STRINGS ( 5 , 17 9) ;CHRS(140) ; STRINGS ( 5 ,17 9) ; C 

HR$(191) ; 

20 IFX>0THENFORM-1TOX:S=USR(4) : NEXTM : G0T04 

30 1FX<0THENFORH=XTO-1:S=USR(3) :NEXTM 

40 IFY>0THENFORM=1TOY:S=USR(2) : NEXTM : G0T06 

50 IFY<0THENFORM=YTO-1:S-USR(1) : NEXTM : G0T06 

60 1FPEEK(14400)=128THENRUNELSE20 



Program Listing 4. 
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Encyclopedia for the TRS-80* 

What's the key to getting the most from your 
TRS-80*? No, it isn't disk drives or printers or joy- 
sticks. It's information. Without a continual sup- 
ply of information and ideas, you cannot realize 
the full potential of the TRS-80*. 

Our response to the clamor for additional infor- 
mation is the Encyclopedia for the TRS-80*, a ten- 
volume reference work of programs and articles 
carefully selected to help you make the most of 
your microcomputer. You can consider the 
volumes of the Encyclopedia to be an extension of 
the documentation that came with your TRS-80* . 
Each book is full of material on programming 
techniques, business, language, hardware, games, 
tutorials, education, utilities and interfacing 

Unlike conventional encyclopedias, the 
Encyclopedia for the TRS-80* will never become 
stale or out of date. That's because the volumes of 
the Encyclopedia are being issued one-at-a-time, 
approximately six weeks apart. This means that 
each new volume will reflect the latest develop- 
ments and discoveries, making this a living ency- 
clopedia for TRS-80* users. 

I'he first lour volumes are being issued during 
1981. The remaining volumes will be issued during 
the first half of 1982. The deluxe COLLECTOR'S 
EDITION has a handsome green and black hard 
cover with a dust jacket. 
A soft cover edition is also available. 

DEALERS Please request discount information 
and catalog when ordering. Mail Dealer orders 
ATT: Wayne Green Books Dealer Sales. 

WAYNE GREEN BOOKS 

A di,.. mum .V Wayne Cu-vn '.ni 4T ' 

Pine Street 
Peterborough. \H 03438 



Encyclopedia Loader 

The editors at Wayne Green Books want to help 
you use the programs in your Encyclopedia for the 
TRS-80*. So to help you maximize the use of your 
microcomputing time, we created Encyclopedia 
LoaderTM. 

By a special arrangement with Instant Soft- 
ware™, Wayne Green Books can now provide you 
with selected programs contained in each volume 
of the Encyclopedia for the TRS-80* on a special 
series of cassettes called Encyclopedia LoaderTM. 
Your encyclopedia provides the essential docu- 
mentation bu! now you'll be able to load the pro- 
grams instantly. 

With Encyclopedia LoaderTM you'll save hours 
of keyboard time and eliminate the aggravating 
search lor typos 

Save money with this introductory offer. 
Encyclopedia Loader'M for Volume 1 of 
Encyclopedia for the TRS-80* which will normal- 
ly cost $14.95 is available for a limited time only at 
the introductory price of $12.95. 

To order specify EL8001 $1 2.95 . 

The Encyclopedia for the TRS-80 
is a Wayne Green publication. 
Encyclopedia Loader is manufac- 
tured by Instant Software, a 
division of Wayne Creen Inc. 
* TRS-80 is a trademark of Radio 
Shack division of Tandy Corp 
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FREE 




If you order the entire 
ten volume set of the 
Encyclopedia for the 
TRS-80,* you'll receive 
the tenth volume FREE! 

10 Volume deluxe 
hard cover COLLECTOR'S 
EDITION -a $199.50 value. 

$164.00 b'N81 00 postpaid 

10 Volume soft cover 
edition, a $109.50 value. 
$83.00 EN8080 postpaid 








YES, I want your special offer! 



10 Volume deluxe hard cover 

COLLECTOR'S EDITION-a 
$199.50 value. FN8100 $164,00 

To order single hard cover volumes 

or the Encyclopedia please specify: 




_: .10 Volume soft cover edition 

-a $109.50 value. EN8080 $83 (X) 



To order single soft cover volumes 
of the Encyclopedia please specify: 



MAIL A COPY OF THIS FORM 
OR THE CARD PROVIDED TO: 
WAYNE GREEN BOOKS 
SALES DEPT, PINE ST. 
PETERBOROUGH,NH 03458 
OR CALL TOLL FREE 
1-800-258-5473 

lo order Encyclopedia loader™ 
cassettes please specify: 



Volume 1 


t.N81 01 $19.95* 


Volume 1 


EN 8081 $10 95* 


Volume 1 


EL8001 $12.95" 


Volume 2 


EN8102 $19.95* 


_ Volume 2 


EN8082 $10.95* 


Volume 2 


EL8002 $14.95* 


Volume 3 


EN8103 $19.95* 


Volume 3 


EN8083 $10.95* 


Volume 3 


EL8003 $14.95* 


Volume 4 


EN81 04 $19.95* 


_Volume4 


EN8084 $10.95* 


Volume 4 


EL8004 $14.95* 


Volume 5 


EN81 05 $19.95* 


Volume 5 


FN808.5 $10.9.5* 


Volume 5 


EL8005 $14.95* 


Volume 6 


FN8106 $19.95* 


Voiumeh 


EN8086 $10.95" 


Volume 6 


EL8006$14 95* 


Volume 7 


EN8107 $19.95* 


Volume 7 


EN8087 $10.95* 


Volume 7 


EL8007 $14.95* 


Volume 8 


i N8108 $19.95" 


__ _\ olume 8 


L'N 8088 $10.95* 


Volume 8 


EL8008 $14.95* 


Volume9 


EN81 09 $19.95* 


.Volume 9 


EN8089 $10.95* 


Volume9 


EL8009 $14.95* 


Volume'IO 


EN8110 $19.95" 


Volume 10 


EN8090 $10.95" 


VolumelO 


t L801 $14.95 • 


PAYMENT ENCLOSED 


PLEASE CHARGE T 


OMY VISA 


MASTERCAR 
EXPiRi 


D AMEX 


CARD# 




INTFRRANK# 


S 


NAME 










ADDRESS 












CITY 






STATE 


ZIP 




SIGNATURE 













■ these prices do not include shipping and handling. Please add $1.50 per item in the U.S. and Canada Allow 4-6 weeks after publication date tor delivery (All 
volumes will be shipped UPS if the complete street address is provided, otherwise shipment will be 4th class book rate ) Foreign orders please add $10 00 for airmail 
iior item or $5.00 for surface mail per item. Delivery outside the U.S. varies Prices are subject to change without notice No C.O.D.'s. 
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GENERAL 



Trials and tribulations of mail order. 



When the Postman Doesn' 
Ring Once 



T T i 



Robert E. Averill 
P.O. Box 99 
Belfair, WA 98528 



It was time for me to up-grade 
my TRS-80 computer system. I 
wanted an expansion interface, a 
disk drive, a good printer and a 
lowercase modification so that I 
could use a disk version of Scrip- 
sit instead of the tape version. 

I had seen plenty of good 
sounding advertisements for the 
hardware and software that I 
wanted, and most of them prom- 
ising that if I just dialed their 800 
toll free number I could have any- 
thing I wanted. 

I made a very careful list and 
narrowed down the selection of 
possible suppliers to five that 
seemed to have what I wanted at 
a price I felt I could afford. Next, I 
telephoned a friend and asked 
him where he had bought his new 
Epson MX-80 printer, which he 
was very happy with and had or- 
dered c.o.d. from one of the sup- 
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pliers on my list. He said that he 
had received it via UPS three 
days from the date he ordered on 
their toll free number. 

By this time I was nearly jump- 
ing up and down with excite- 
ment—just imagine— I could be 
using my new printer in just three 
or four days if I phoned in now. I 
picked up the phone, dialed the 
number from the advertisement, 
and placed an order for an Epson 
model MX80FT printer and the ne- 
cessary interconnecting cables. I 
gave my purchase order number 
and asked what the full price 
would be including c.o.d. charges. 

I decided i didn't want to pay 
the extra c.o.d. charges so I told 
the order taker that I would put a 
cashiers check in the mail tomor- 
row for the whole amount to 
avoid mailing charges. I mailed a 
cashiers check for the amount, 
air mail and started my wait for 
the printer. 

Toll Free Fever 

I felt so excited that I called 
another 800 number and, using 
the same method, placed an or- 
der for a Radio Shack expansion 
interface, 16K of memory in- 
stalled and an MPI disk drive 
complete with an Apparat 40 

7982 



track NEWDOS + . I also gave 
them a purchase order number 
and sent them a cashiers check 
via air mail to avoid the mailing 
charges. I started to wait. 

Pacing the Floor 

On the fourth day, every time 
the phone rang or I heard a car or 
truck nearby I became breathless 
with anticipation. The fifth day 
was Saturday and I didn't expect 
to hear anything until Monday. 
By Friday of the next week, 
frustration and anger forced me 
to the telephone again. 

Once again I dialed the toll free 
numbers. The nice people who 
were going to send my printer 
right out to me told me that for 
some unfathomable reason, their 
supplier was slow in filling their 
orders. Would I settle for a stan- 
dard Epson printer and a friction 
drive kit? "Yes, that would be OK, 
just get it here." They assured me 
that it would go right out and 
they would send me a refund of 
the extra money, about $25. 

Out of Stock 

The business that was sup- 
posed to be sending me an ex- 
pansion interface and a disk 
drive had suddenly run out of 



stock of these items. They did 
have a disk drive in stock, but the 
only expansion interface they 
had was one that one of their 
employees was using at home. 
Would I mind receiving that one? 
I assured them that I didn't mind 
a slightly used unit as long as it 
was in good working order. They 
would send it right to me. 

Next on my order list was a 
lowercase modification kit. By 
this time I was beginning to think 
that although sending money 
with an order was less expensive 
it was a little foolish. My friends 
chided me for this action when I 
told them about my trials. When I 
ordered a lowercase unit I gave 
my credit card numberfor billing. 
I was told that there would be a 
slight delay because of a delivery 
problem but that I could expect 
to receive the unit in about three 
weeks. By now I knew how to 
wait and I agreed. 

Three weeks had passed since 
my first phone call and I still 
hadn't received anything. The ex- 
pansion interface and disk drive 
arrived 24 days after date of 
order. Three more phone calls 
and 33 days after order date 
brought the printer. The friction 
drive kit was another three weeks 



in coming. At the time of this 
writing, the refund check for the 
overpayment on the printer has 
not yet arrived. 

The equipment arrived in ex- 
cellent condition and went into 
immediate operation as soon as 
it was installed and is still oper- 
ating well without difficulty of 
any sort. 

After four weeks of waiting for 
the lowercase unit I called; I got 
an answering machine which 
asked me to leave my phone 
number. I did. I received no an- 
swer back. Several calls later a 
person answered the phone tell- 
ing me that delivery problems 
were causing delays but that the 
unit should be on its way by Fri- 
day. Monday; still no unit. An- 
other call on the phone con- 
nected me to the answering ma- 
chine again. Again, I left my num- 
ber and received no phone call. 

Two months and four days 
after date of order I received the 
lowercase modification kit. It did 
not work. I sent the unit back, re- 
quested a credit to my credit card 



which I still have not received. I 
have since had a Radio Shack 
lowercase modification installed 
which works magnificently. 

A friend who wants to increase 
his computing capabilities re- 
cently asked me what I thought 
about ordering from advertisers 
in magazines. I told him that he 
should order equipment sent 
c.o.d. with the stipulation that if it 
does not arrive within a reason- 
able period of time, 7 days for ex- 
ample, the order should be 
cancelled. 

My experience with this type of 
ordering indicates that suppliers 
need to police their activities 
much more closely. Promises of 
delivery should be kept if possible 
and immediate notice given if they 
cannot be met. There seems to be 
need for these suppliers to clean 
up their PR act, their sales 
policies, and their bookkeeping 
procedures. ■ 

Mr. Aver ill is a free lance 
writer with Educational, Sales 

and Employee Orientation films. 




The Journal of Microcomputer Applications 



Numerical analysis, statistics, simulation, information 
retrieval, engineering design, engineering economics, proj- 
ect planning & management, personal finance, scientific & 
engineering applications. Subscribe now $16 for 6 issues. 
Send check, money order or company purchase order to: 
ACCESS, P.O. Box 12847, Research Triangle Park, NC 27709 



To: ACCESS, P.O. Box 12847 

Research Triangle Park. NC 27709 
Here's my $16. Sign me up for 6 issues. 



Name 
Address 
City _ 
State .. _ 



Published by LEDS Publishing Inc. 



Zip, 



Really, what can you do with a dual sided 
disk drive on a Model I? Nothing - without 
the Dual Sided Disk Kit. Using it you can 
put up to 3 of them on your system. You 
don't have 3 dual sided drives? Now you can 
add them - painlessly. This kit lets you mix 
dual and single head drives, in any 
combination. That's not all, 35-, 40-, 77-, 
and 80 -track drives can be combined in any 
order. 

The good news gets better. The Dual Sided 
Disk Kit isn't a new operating system, it's a 
set of fully tested patches applied to 
TRSDOS 2.3 or NEWDOS 2.1, and a special 
3 drive disk cable. You can continue using 
your system exactly the way you always 
have. You'll have more disk storage 
potential (1228 thousand bytes instead of 
358 thousand), and incredible flexibility. 

The Dual Sided Disk Kit is 100 % 
compatible with your existing system, you 
can read your old diskettes and ones you 
create can be read on any other system. 
There are no new commands to learn. It will 
automatically detect your drive 
configuration. FORMAT, COPY, 
BACKUP, and SUPERZAP have been 
modified to prompt you for the the drive 
characteristics. The kit is so smart that if 
you copy a big disk to a small one (say an 
80-track dual sided to a 35-track single 
sided), it lists any files that weren't fully 
copied. Also, dual sided drives are treated as 
single drives with twice as many tracks. Files 
can overflow from one side to the other and, 
naturally, there's only one directory per 
diskette. 



mm 

The only thing easier than using the Dual 
Sided Disk Kit is installing it. No tools are 
required. Just connect the new drive cable 
and press RESET - that's all. By the way, 
the same is true for any dual headed drives 
you add to your system - no drive 
modifications are needed - plug 'em in and 
go. 

But of course we've saved the best news for 
last. The price is just $79.95 (plus $2.50 
shipping, Ca. residents add 6% sales tax). 
Now, two heads really are better than one. 

• Mix and match single and double headed drives 

• Mix and match drive sizes (35 to 80 tracks per side) 

• 100% upward and downward compatability with 
diskettes created under TRSDOS 2.3 or NEWDOS 2.1 

• No drive modifications needed to run dual sided drives 

• No computer modifications required 

« Uses a single directory per diskette (up to 320 
granules/diskette) 

• Supports up to 3 drives 

• COPY, BACKUP, and FORMAT prompt driven 

• Copies SO track onto 35 track and lists excluded file-. 

• Dual headed drives treated as single drive! 

• Includes special 3 drive cable 

• Complete hardware and software documentation 

• Easy installation - cable change only (supplied) 

• 367 
'NAIL DOWN YOUR ORDLK TODAY! 

^Name 

'Address 

City State Zip 

System track size: D35 D40 D77 D80 
DOS : • QTRSDOS 2.3 DNEWDOS 2.1 
Please charge my: MC D Visa D 




Account number 

Expires Bank No 

Signature 




• See List ol Advertisers on page 402 
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Fede 



No seller in any sales transaction 
may impose a surcharge on a credit 



card holder who elects to use a 
credit card in lieu of payment by 
cash, check, or similar means. 

Have you ever been charged 2 to 3% extra for using your credit card? 



^ 



You have a legal right to recover 
the surcharge from the seller. 



We suggest you write: 

Federal Trade Commission 

Division of Credit Practices 

Washington, D.C. 20580 



Jk message ^/toi/vi you/i fiends at 







&%, 




; I 



£ i 



CAIRO, GA. 31728 




..-■>.; 
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ANNOTATED BASIC-A NEW TECHNIQUE FOR NEO- 
PHYTES—BASIC programming was supposed to be 
simple— a beginner's programming language which 
was so near to English that is could be easily 
understood. But, in recent years. BASIC has become 
much more powerful and therefore much more difficult 
to read and understand. BASIC simply isn't basic 
anymore 

Annotated BASIC explains the complexities of 
modern BASIC. It includes complete TRS-80* Level II 



BASIC programs thai you can use Each program is an- 
notated to explain in step-by step fashion the workings 
ol the program Programs are tlowcharted to assist 
you in following the operational sequence. And — each 
chapter includes a description of the new concepts 
which have been introduced. 

Annotated BASIC deais with the hows ac.:} fjhys of 
TRS-80 BASIC programming. How is a program put 
together? Why is it written that way? By observing the 
programs and following the annotation, you can devel- 
op new techniques to use in your own programs— or 
modify commercial programs for your specific use 
Annotated BASIC Volume 1 BK7384 $10.95 
Annotated BASIC Volume 2 BK7385 $10.95 
Order Both Volumes and Save 1 BK738402 $18.95 



INTRODUCTION TO TRS-80 LEVEL II BASIC AND 
COMPUTER PROGRAMMING-by Michael P. Zabin- 
ski Written by an experienced educator, this is the 
book for those beginners who want to learn about com- 
puters without having to become an expert. It has prac- 
tical programs, useful line-by-line comments, excel- 
lent flowcharts accompanied by line numbers and over 
200 exercises which help the reader assess progress, 
reinforce comprehension and provide valuable prac- 
tical experience. BK1219 $10.95.' 

50 BASIC EXERCISES— by J. P. Lamoitier. This book is 

structured around the idea that the best way to learn a 
language is through actual practice. It contains 50 
completely explained exercises: statement and 
analysis of the problem, flowcharts, programs and ac- 
tual runs. Program subjects include mathematics, 
business, games, and operations research, and are 
presented in varying levels of difficulty. This format 
enables anyone to learn BASIC rapidly, checking their 
progress at each step BK1192 $12.96" 

THE BASIC HANDBOOK — SECOND EDITION — by 
David Lien. This book is unique. It is a virtual 

ENCYCLOPEDIA of BASIC. While not favoring one 
computer over another, it explains over 250 BASIC 
words, how to use them and alternate strategies. If a 
computer does not possess the capabilities of a need- 
ed or specified word, there are often ways to ac- 
complish the same function by using another word or 
combination of words. That's where the HANDBOOK 
comes in. It helps you get the most from your com- 
puter, be it a "bottom-of-t he-line" micro or an oversized 
monster. BK1174 $19.95.* 

LEARNING LEVEL II— by David Lien. Written especial- 
ly for the TRS-80, this book concentrates on Level II 
BASIC. It explores every important BASIC language 
capability. Updates are included for those who have 
studied the Level I User's Manual. Sections include: 
how to use the Editor, dual cassette operation, printers 
and peripheral devices, and the conversion of Level I 
programs to Level II. BK1175 $15.95.' 

BASIC BASIC (2ND EDITION) — by James S Coan. This 
is a textbook which incorporates the learning of com- 
puter programming using the BASIC language with the 
teaching of mathematics. Over 100 sample programs 
illustrate the techniques of the BASIC language and 
every section is followed by practical problems. This 
second edition covers character string handling and 
the use of data files. BK1026 $10.50.* 

ADVANCED BASIC-- Applications including strings and 
files, coordinate geometry, area, sequences and series, 
simulation and graphing and games. BK 1000 $10.75 * 



INTRODUCTION TO PASCAL — by Rodnay Zaks. A 
step-by-step introduction for anyone wanting to learn 
the language quickly and completely. Each concept is 
explained simply and in a logical order. All features ol 
the language are presented in a clear, easy-to- 
understand format with exercises to test the reader at 
the end of each chapter. It describes both standard 
PASCAL and UCSD PASCAL — the most widely used 
dialect for small computers. No computer or program- 
ming experience is necessary. BK1 189 $14.95. * 

PROGRAMMING IN PASCAL — by Peter Grogono. The 
computer programming language PASCAL was the 
first language to embody in a coherent way the con- 
cepts of structured programming, which has been 
defined by Edsger Dijkstra and C.A.R. Hoare. As such, 
it is a landmark in the development of programming 
languages. PASCAL was developed by Niklaus Wirth 
in Zurich; it is derived from the language ALGOL 60 but 
is more powerful and easier to use PASCAL is now 
widely accepted as a useful language that can be effi- 
ciently implemented, and as an excellent teaching 
tool. It does not assume knowledge of any other pro- 
gramming language and therefore suitable for an in- 
troductory course. BK1 140 $12.95/ 



—GAMES 



40 COMPUTER GAMES FROM KILOBAUD MICROCOM- 
PUTING— Forty games in all in nine different categories. 
Games for large and small systems, and even a section 
on calculator games. Many versions of BASIC used and 
a wide variety of systems represented. A must for the 
serious computer gamesman. BK7381 $7.95.* 

BASIC COMPUTER GAMES— Okay, so once you get 
your computer and are running in BASIC, then what? 
Then you need some programs in BASIC, that's what. 
This book has 101 games for you from very simple to 
real buggers. You get the games, a description of the 
games the listing to put in your computer and a sam- 
ple run to show you how they work. Fun. Any one game 
will be worth more than the price of the book for the fun 
you and your family will have with it. BK1074 $7.50.* 

MORE BASIC COMPUTER GAMES — Edited by David 
H. Ahl. More fun in BASIC! 84 new games from the peo- 
ple who brought you BASIC Computer Games. In- 
cludes such favorites as Minotaur (battle the mythical 
beast) and Eliza (unload your troubles on the doctor at 
bargain rates). Complete with game description, list- 
ing and sample run. BK1182 $7.50.* 
WHAT TO DO AFTER YOU HIT RETURN — PCC's first 
book of computer games... 48 different computer 
games you can play in BASIC. . .programs, descrip- 
tions and many illustrations. Lunar Landing, Ham- 
murabi, King, Civel 2, Qubic 5. Taxman, Star Trek, 
Crash, Market, etc. BK1071 $16.50*. 



THEORY Z— How American Business Can Meet the 
Japanese Challenge— by William Ouchi. Why are the 
Japanese catching up and surpassing American in- 
dustrial productivity? What allows Japanese in- 
dustrialists to offer guaranteed lifetime employment 
to their workforce? This book will help you understand 
the Theory Z managerial philosophy and its implica- 
tions for the American corporate future. Examples are 
given of the American industrial giants already 
operating under Z-style management, and the impact 
of this style on the quality of their executives and 
workers is explored. A must for the alert businessman, 
large or small. BK1226 $12.95* 

SO YOU ARE THINKING ABOUT A SMALL BUSINESS 
COMPUTER— by Richard G. Canning and Nancy C. 
Leeper. For a well-organized manual on the process of 
selecting the right computer system for your small 
business, this text can't be excelled. Designed to in- 
troduce the novice in data and word processing to the 
real benefits of computerization, the book is filled with 
money- and time-saving tips, photos of equipment, 
lists ot suppliers, prices, explanations of computer ter- 
minology, and helpful references to additional sources 
of information. Everyone contemplating a first com- 
puter installation should have this book. BK1222 
$14.00* 

PAYROLL WITH COST ACCOUNTING-IN BASIC- by 

L. Poole & M. Borchers, includes program listings with 
remarks, descriptions, discussions of the principle 
behind each program, file layouts, and a complete 
user's manual with step-by-step instructions, flow- 
charts, and simple reports and CRT displays. Payroll 
and cost accounting features include separate pay- 
rolls for up to 10 companies, time-tested interac- 
tive data entry, easy correction of data entry errors, 
job costing (labor of distribution), check printing 
with full deduction and pay detail, and 16 differ- 
ent printed reports, including W-2 and 941 (in CBASIC). 
BK1001 $20.00.* 

SOME COMMON BASIC PROGRAMS— Published by 
Adam Osborne & Associates, Inc. Perfect for non- 
technical computerists requiring ready-to-use pro- 
grams. Business programs, plus miscellaneous pro- 
grams. Invaluable for the user who is not an experi- 
enced programmer. All will operate in the stand-alone 
mode. BK1053 $14.99 paperback. 

PIMS: PERSONAL INFORMATION MANAGEMENT 

SYSTEM — Learn how to unleash the power of a per- 
sonal computer for your own benefit in this ready-to- 
use data-base management program. BK1009 $11.95.* 

— MONEYMAKING— 

HOW TO MAKE MONEY WITH COMPUTERS— In 10 in- 
formation-packed chapters, Jerry Felsen describes 
more than 30 computer-related, money-making, high 
profit, low capital investment opportunities, 

BK1003 $15.00.* 

HOW TO SELL ANYTHING TO ANYBODY — According 

to The Guinness Book ol World Records, the author, 
Joe Girard, is "the world's greatest salesman." This 
book reveals how he made a fortune— and how you 
can, too. BK7306 $2.25.* 

THE INCREDIBLE SECRET MONEY MACHINE-by 
Don Lancaster. A different kind of "cookbook" from 
Don Lancaster. Want to slash taxes? Get free vaca 
tions? Win at investments? Make money from some- 
thing that you like to do? You'll find this book essential 
to give you the key insider details of what is really in- 
volved in starting up your own money machine. 
BK1 178 $7.95.* 



*No C.O.D. orders accepted. All orders add $1.50 for the first book, $1.00 each addi- 
tional book, $10.00 per book foreign airmail. Please allow 4-6 weeks for delivery. Ques- 
tions regarding your order? Please write to Customer Service at the following address. 



Use the order card in this magazine or itemize your order on a separate piece of paper 
and mail to 80 Microcomputing Book Department • Peterborough NH 03458. Be sure to 
include check or detailed credit card information. 



FOR TOLL FREE ORDERING CALL 1 -800-258-5473 
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M/CROCOMPUT/NG CODING SHEETS Microcom- 
puting's dozen or so programmers wouldn't try to work 
without these handy scratch pads, which help prevent 
the little errors that can cost hours and hours ot 
programming time. Available tor programming is 
Assembly/Machine Language (PD1001), which has col- 
umns for address, instruction (3 bytes), source code 
(label, op code, operand) and comments; and for 
BASIC (PD1002) which is 72 columns wide. 50 sheets to 
a pad. $2.39." 



PROGRAMMING 
—Z-80— 

TRS-80 ASSEMBLY LANGUAGE— by Hubert S. Howe : 
Jr. This book incorporates into a single volume all the 
pertinent facts and information you need to know to 
program and enjoy the TRS-80. Included are clear 
presentations of all introductory concepts, completely 
tested practical programs and subroutines, details of 
ROM and RAM and disk operating systems, plus com- 
prehensive tables, charts and appendices. Suitable for 
the first time user or more experienced users. BK1217 
$9.95 * 

PROGRAMMING THE Z-80— by Rodnay Zaks. Here is as- 
sembly language programming for the Z-80 presented as 
a progressive, step-by-step course. This book is both an 
educational text and a self-contained reference book, 
useful to both the beginning and the experienced pro- 
grammer who wish to learn about the Z-80. Exercises to 
test the reader are included. BK1 122 $15.95.* 

INSIDE LEVEL II— For machine language program- 
mers. This is a comprehensive reference guide to the 
Level II ROMs, allowing easy utilization of the 
sophisticated routines they contain. It concisely ex- 
plains set-ups, calling sequences, variable passage 
and I/O routines. Part II presents an entirely new com- 
posite program structure which unloads under the 
SYSTEM command and executes in both BASIC and 
machine code with the speed and efficiency of a com- 
piler. Special consideration is given to disk systems. 
BK1183 $15.95.* 



Z-80 SOFTWARE GOURMET GUIDE AND COOKBOOK 

— by Nat Wadsworth. Scelbi's newest cookbook! This 
book contains a complete description of the powerful 

Z-80 instruction set and a wide variety of programming 
information. Use the author's ingredients including 
routines, subroutines and short programs, choose a 
time-tested recipe and start cooking! BK1045 $16.99." 




• Z-80 ASSEMBLY LANGUAGE PROGRAMMING- 

BK1 177— by Lance A. Leventhal. This book thoroughly 
covers the Z-80 instruction set, abounding in simple 
programming examples which illustrate software de- 
velopment concepts and actual assembly language 
usage. Features include Z-80 I/O devices and interfac- 
ing methods, assembler conventions, and compari- 
sons with 8080A/8085 instruction sets and interrupt 
structure. $16.99.* 



6809 



6809 MICROCOMPUTER PROGRAMMING AND 
INTERFACING— by Andrew C. Staugaard, Jr. Getting 
involved with Tandy's new Color Computer? If so. this 
new book from the Blacksburg Group will allow you to 
exploit the awesome power of the machine's 6809 
microprocessor. Detailed information on processor ar- 
chitecture, addressing modes, register operation, data 
movement, arithmetic logic operations, I/O and inter- 
facing is provided, as well as a review section at the 
end of each chapter. Four appendices are included 
covering the 6809 instruction set, specification sheets 
of the 6809 family of processors, other 6800 series 
equipment and the 6809/6821 Peripheral Interface 
Adapter. This book is a must for the serious Color Com- 
puter owner. BK1215 $13.95." 



IANOS SYSTEM 
REFERENCE CARDS 

for Model I and Model III 

At last! No more flipping through the pages of the 
Basic manual! No more working through the maze of 
machine language instructions! These cards com- 
pletely summarize the Basic and Assembler manuals! 
FEATURES INCLUDE: 

memory map, eyeball graphics, math instructions, 
basic commands slore instructions, basic functions, 
load instructions, basic statements, move instruc- 
tions, special keys, exchange instructions, print using 
examples, shift instructions, basic special characters. 



compare instructions, basic and assembler messages 
and codes, branch instructions, basic facts, data 
alteration instructions, reserved words, I/O instruc- 
tions, ROM routines, complete character chart with 

graphics arid space-compression codes, hex-dec 
chart, control code cross-reference, assembler in- 
structions commands and operators, screen tine 
layout, editor commands & subcommands, condition 
code easy access . 

Plus — "magic graphics number— a mystery until you 
learn how to use it! 

Designed as a fold-up, accordion-style card, fits in your 
pocket. Panels organized for optimum speed for 
reference.' 

Model I: Basic only FC1001 $2.95, Basic and Assembler 
FC1 002 $4.95 

Model III: Basic only FC1004 $3.95, Basic and 
Assembler FC1003 $5.95 



ALL NEW— FOR 80 OWNERS 

ENCYCLOPEDIA FOR THE TRS-80* 



ENCYCLOPEDIA FOR THE TRS-80** is 

the newest peripheral for your micro- 
computer. This ten-volume reference 
series contains programs and articles 
especially selected to extend the docu- 
mentation that comes with the TRS-80. 
Volumes of the Encyclopedia are being 
issued one-at-a-time, approximately six 
weeks apart. This means that each new 
volume will reflect the latest develop- 
ments in TRS-80 microcomputing. 
Encyclopedia for the TRS-80 is avail- 
able in two editions. The deluxe 
COLLECTOR'S EDITION has a hand- 
some green and black hard cover with a 
dust jacket. A soft cover edition is also 
available. 

To order single hard cover volumes of 
the Encyclopedia please specify: 



•! ~ : " ; 






Volume 1 EN8101 

Volume 2 EN8102 

Volume 3(avail. Nov.) EN8103 
Volume 4 (avail. Jan.) EN8104 
Volume 5 (avail. Feb.) EN8105 
To order single softcover volumes of the 
Encyclopedia please specify: 
Volume 1 EN8081 

Volume 2 EN8082 

Volume 3 (avail. Nov.) EN8083 
Volume 4 (avail. Jan.) EN8084 
Volumes (avail. Feb.) EN8085 



$19.95* 

$19.95* 
$19.95* 
$19.95* 
$19.95* 



$10.95* 
$10.95* 
$10.95* 
$10.95* 
$10.95* 



SPECIAL INTRODUCTORY OFFER 

Order the entire set (the first ten volumes) 
of the Encyclopedia for the TRS-80 and 
receive the tenth volume FREE! 

10 Volume deluxe hard cover 
COLLECTOR'S EDITION —a $199.50 
value. 

EN8100 $164.00 postpaid 

10 Volume soft cover edition, a $109.50 
value. 

EN8080 $83.00 postpaid 



ENCYCLOPEDIA LOADER is the 

software companion to the 
Encyclopedia for the TRS-80. This 
special series of cassettes will 
allow you to load selected pro- 
grams from the Encyclopedia in- 
stantly. Hours of keyboardinq time 
and the aggravating search for 
typos is eliminated dv using the 
Encyclopedia Loader. ' 

Encyclopedia Loader for Volume 1 
of the Encyclopedia of the TRS-80 
is available at a Special Introduc- 
tory Price of $12.95 (a $14.95 
value). To take advantage of this 
offer specify: 

EL800111 $12.95* 

Additional Encyclopedia Loaders 
wili be available as each volume 
of the Encyclopedia for the TRS- 
80 is issued. To order specify 
Encyclopedia Loader: 

Volume 2 EN8002 $14.95* 

Volume 3 EN8003 $14.95* 

Volume 4 EN8004 $14.95* 

Volume 5 EN8005 $14.95* 



*No C.O.D. orders accepted. All orders add $1.50 for the first book, $1.00 each addi- Use the order card in this magazine or itemize your order on a separate piece o! paper 
tional book, $10.00 per book foreign airmail. Please allow 4-6 weeks for delivery. Ques- and mail to 80 Microcomputing Book Department •Peterborough NH 03458. Be sure to 
tions regarding your order? Please write to Customer Service at the following address, include check or detailed credit card information. 



FOR TOLL FREE ORDERING CALL 1 -800-258-5473 
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—INTRODUCTORY— 




• UNDERSTANDING AND PROGRAMMING MICRO- 
COMPUTERS— BK7382— A valuable addition lo your 
computing library. This two-part text includes the best 
articles that have appeared in 7 3 and Kilobaud 
Microcomputing magazines on the hardware and soft 
ware aspects of microcomputing. Well-known authors 
and well-structured text helps the reader get involved. 
$10.95* 



• SOME OF THE BEST FROM KILOBAUD MICROCOM- 
PUTING— BK731 1 —A collection of the best articles that 
have appeared in Kilobaud MICROCOMPUTING. Includ- 
ed is material on the TRS-80 and PET systems, CP/M, the 
8080/8085/Z-80 chips, the ASR-33 terminal. Da'a base 
management, word processing, text editors and file 
structures are covered too. Programming techniques 
and hard-core hardware construction projects fo' 
modems, high speed cassette interfaces and TVTs are 
also included in this large format. 200 plus page edition. 
$10.95.- 



YOUR FIRST COMPUTER — by Rodnay Zaks. Whether 
you are using a computer, thinking about using one or 
considering purchasing one, this book is indispen- 
sable. It explains what a computer system is, what it 
can do, how it works and how to select various com- 
ponents and peripheral units. It is written in everyday 
language and contains invaluable information for the 
novice and the experienced programmer. (The first edi- 
tion of this book was published under tne title "An In- 
troduction to Personal and Business Computing") 
BK1191 $8.95* 

MICROPROCESSOR INTERFACING TECHNIQUES 
—by Austin Lesea & Rodnay Zaks— will teach you how 

to interconnect a complete system and interface it to 
all the usual peripherals. It covers hardware and soft- 
ware skills and techniques, including the use and de- 
sign of model buses such as the IEEE 488 or S-100. 
BK1037 $17.95.* #. 






■.;; . speed on. how computers work— hardware and 
software— this is an excellent book. It starts with fun- 
damentals and explains the circuits and the basics of 
programming, along with a couple of TVT construction 
projects. ASCII, Baudot, etc. This book has the highest 
recommendations as a teaching aid. $4.95.* BK7322 

THE NEW HOBBY COMPUTERS— This book takes it 
from where Hobby Computers Are Here! leaves off, with 
chapters on Large-Scale Integration, how to choose a 
microprocessor chip, an introduction to programming, 
low-cost I/O for a computer, computer arithmetic, check- 
ing memory boards . . . and much, much more! Don't 
miss this tremendous value! Only $4.95." BK7340 

AN INTRODUCTION TO MICROCOMPUTERS, VOL. 
—The Beginner s Book— Written for readers who know 
nothing about computers— for those who have an in- 
terest in how to use computers— and for everyone else 
who must live with computers and should know a little 
about them. The first in a series of 4 volumes, this book 
will explain how computers work and what they can do. 
Computers have become an integral part of life and 
society. During any given day you are affected by com- 
puters, so start learning more about them with Volume 
0. BK1 130 $7.95.* 

VOL. I— 2nd Edition completely revised. Dedicated to 
the basic concepts of microcomputers and hardware 
theory. The purpose of Volume I is to give you a 
thorough understanding of what microcomputers are. 
From basic concepts (which are covered in detail), 
Volume I builds the necessary components of a 
microcomputer system. This book highlights the dif- 
ference between minicomputers and microcomputers. 
BK1030 $12.99 > ' 




SPECIAL INTERESTS 



MOD III ROM COMMENTED— Soft-Sector marketing, 

1981. This book is not an instruction course on 
machine language, but rather an information source 
that you can use time and time again for writing your 
own program or patching old Mod I machine language 
programs. It contains an explanation of ROMs in the 
latest machine from Tandy, with most every location of 
the 14K ROMs listed, with comments. BK1235 $22.50. 

THE CUSTOM TRS-80 AND OTHER MYSTERIES- by <^N 

Dennis Kitsz. More than 300 pages of TRS-80 customiz- ^ 
ing information. With this book you'll be able to ex- 
plore your computer like never before. Want to turn an 

8 track into a mass storage unit? Individual reverse 
characters? Replace the BASIC ROMs? Make Music? 

High speed, reverse video. Level i and Level II? Fix it if 
it breaks down? All this and much, much more. Even if 

you have never used a soldering iron or -eao a circuit 
diagram, this book will teach you how 1 This is the 
definitive guide to customizing your 80! BK1218 

$29.95.' 




TRS-80 DISK AND OTHER MYSTERIES-by Harvard C. 
Pennington. This is the definitive work on the TRS-80 
disk system. It is full of detailed "How to use,' infor- 
mation with examples, samples and in-depth explana- 
tions suitable for beginners and professionals alike. 
The recovery of one lost file is worth the price alone. 
BK1181 $22.50.' 

MICROSOFT BASIC DECODED AND OTHER MYS- 
TERIES— by James Farvour. From the company that 
brought you TRS-80 DISK AND OTHER MYSTERIES. 
Contains more than 6500 lines of comments for the dis- 
assembled Level II ROMs and six additionai chapters 
describing every BASIC subroutine, with assembly 
language routines showing how to use them. Flow- 
charts Tor all major routines give the reader a real in- 
sight into how the interpreter works. BK1186 $29.50." 



BASIC FASTER AND BETTER AND OTHER MYS- 
TERIES— by Lewis Rosenfelder. You don't have to 
learn assembly language to make your programs run 
fast. With the dozens of programming tricks and 
techniques in this book you can sort at high speed. 
swap screens in the twinkling of an eye, write INKEY 
routines that people think are in assembly language 
and add your own commands to BASIC. Find out how 
to write elegant code that makes your BASIC really 
hum, and explore the power of USR calls. BK1221 
$29.95.* 

THE CP/M HANDBOOK (with MP/M)-by Rodnay Zaks. 
A complete guide and reference handbook for CP/M— 
the industry standard in operating systems. Step-by- 
step instruction for everything from turning on the 
system and inserting the diskette to correct user 
discipline and remedial action for problem situations. 
This also includes a complete discussion of all ver- 
sions of CP/M up to and including 2.2, MP/M and 
CDOS. BK1187 $14.95.* 

PRICES SUBJECT TO CHANGE WITHOUT NOTICE 



KILOBAUD KLASSROOM- by George Young and Peter 
Stark. Learning electronics theory without practice isn't 
easy. And it's no fun to build an electronics project that 
you can't use. Kilobaud Klassroom, the popular series 
firsi published in Kilobaud Microcomputing, combines 
theory with practice. This is a practical course in digital 
electronics. It starts out with very simple electronics 
projects, and by the end of the course you'll construct 
you' own working microcomputer! 

Authors Young and Stark are experienced teachers, 
and their approach is simple and direct. Whether you're 
learning at home or in the classroom, this book provides 
you with a solid background in electronics— and you'll 
own a computer that you built yourself! BK7386 $14.95 

TOOLS & TECHNIQUES FOR ELECTRONICS-by A A. 
Wicks is an easy-to-understand book written for the 
beginning kit-builder as well as the experienced hob- 
byist. It has numerous pictures and descriptions of the 
safe and correct ways to use basic and specialized tools 
for electronic projects, as well as specialized metal 
working tools and the chemical aids which are used in 
repair shops. $4.95.* BK7348 

HOW TO BUILD A MICROCOMPUTER— AND REALLY 
UNDERSTAND IT— by Sam Creason. The electronics 

hobbyist who wants to build his own microcomputer 

system now has a practical "How-To" guidebook. This 
book is a combination technical manual and program- 
ming guide that takes the hobbyist step-by-step through 
the design, construction, testing, and debugging of a 
complete microcomputer system. Must reading for 
anyone desiring a true understanding of small computer 
systems. $9.95.* BK7325 



•No C.O.D. orders accepted. All orders add $1.50 for the first book, $1.00 each addi- 
tional book, $10.00 per book foreign airmail. Please allow 4-6 weeks for delivery. Ques- 
tions regarding your order? Please write to Customer Service at the following address. 



Use the order card in this magazine or itemize your order on a separate piece of paper 
and mail to 80 Microcomputing Book Department • Peterborough NH 03458. Be sure to 
include check or detailed credit card information. 



FOR TOLL FREE ORDERING CALL 1 -800-258-5473 



80 Microcomputing, March 1982 • 313 



TUTORIAL 



LOAD 80 



Set up your own CBBS. 




e-Drive 




John Hodgson 
134 Littlefield Road 
Monterey, CA 93940 



It has been about a year since 
I bought rny Telephone Inter- 
face II from Radio Shack. At the 
time I was not sure if I could jus- 
tify the investment, as there 
were no bulletin board systems 
within the rangeof a local phone 
call. CompuServe and The 
Source were too far away and 
expensive. Nonetheless, long- 
distance; phone rates started to 
get the better of me arid my 
monthly phone bill quadrupled. 
As I used the various comput- 
erized bulletin board services, I 
felt I had to get something simi- 
lar running on my system. Excel- 
lent community bulletin boards 
were running on TRS-80's with 



48K and two eight-inch drives. I 
figured it could be done on my 
system — with one 40-track V-80 
disk drive. 

Before I started, I had a prob- 
lem: How could I handle the 
basics of input/output through 
the modem? I thought about de- 
signing the whole thing in ma- 
chine code, but heaved a sigh of 
relief when I remembered the 
Host utility in Radio Shack's 
communications package. It al- 
low;-; a remote terminal to ac- 
cess the master TRS-80 and 
echoes keyboard input, so users 
can log-on in full-duplex mode. 

Host patches the video and 
keyboard drivers to call the pro- 
gram before printing. If an active 
modem is present, Host echoes 
the typed character over the 
RS-232 serial board and past the 
modem, while displaying it on 
the screen. When the keyboard 



is scanned, Host is called again 
to see if a byte has been input 
from the modem. If so, it jumps 
to the keyboard decoder in ROM 
where Basic handles the byte as 
if it were strobed from the 
keyboard. 

With the tough problem out of 
the way, I did a little surgery on 
Host to make it more efficient. 
(See Program Listing 1.) Instead 
of loading from DOS and execut- 
ing from Basic, I modified it so 
the routine loaded and set 
Basic's memory size pointer by 
itself. Eventually it returns to the 
calling program instead of jump- 
ing to Ready. 

Now I worked on the program 
itself. An early version used ran- 
dom file access for message 
handling, fast but cumbersome 
for long messages. Sequential 
techniques are excellent for the 
storage of messages, but slow 



Program Listing 1 

10 '*** TDSNET - REV. 2.0 by John Hodgson *** 

20 CMD"R":POKE&H40Bl,254:POKE&H40B2,18 9:FORX=&HBE00TO&HBF0C:READ 

Y:POKEX,Y:NEXT:POKE-16699,0:DEFUSR=&HBE00:CLS:CLEAR6000:DEFINTA- 

7, : DIMAS ( 500 ) ,C ( 50 ) : OPEN "R" , 2 , "MSGFILE" : FIELD2 , 1ASST$ , 4ASMN$ , 4ASL 

N$ , 8ASDTS , 10ASPW$ , 30ASFR$ , 30ASTN$ , 60ASSBS : ONERRORGOTO670 

30 OPEN"I",l, "BULLFILE":GET#2,1: IFVAL (MN$ )=0THENA=1 : GOTO450 

40 INPUT"PLEASE ENTER DATE ( MM/DD/YY ) " ;D$ : CMD"DATE "+D$ : PRINT: IN 

PUT"SYS0P PRESS ENTER TO START" ; A$ : CMD" TIME "+ " 00 : 00 : 00 " : CMD 

"CLOCK " : CLS : X=USR ( ) : Y$=INKEY$ 

50 PRINTSTRINGS (5,13)"TDS MESSAGE SYSTEM - PRESS ENTER TO CONTIN 

UE" 

Program continues 



for individual access. I com- 
bined the best of both worlds. A 
random-access file contains all 
the data necessary for indexing 
into a sequential file holding the 
messages. One more small se- 
quential file is for bulletin 
messages. 

The bulletin file, Bullfile, is a 
simple sequential file read by 
the community bulletin board 
program and displayed at the 
beginning. The message file, 
Textfile, is another simple se- 
quential file; every message is 
delimited by a graphics block 
(CHR$(191)). A delimiter is not 
necessary, but it does make 
distinguishing messages easy 
with List in DOS. 

Random File Access 

The random-access file, 
MSGfile, contains all the impor- 
tant information pertaining to 
any given message set up by the 
Field statement in line 20: 

• ST$: This one-byte string 
represents the status of the 



The Key Box 

1 Disk Drive 
NEWDOS 2.1 or 
NEWDOS/80 
Telephone Interface 



314 • 80 Microcomputing, March 1982 




CBM 8032 Computer 1 149.00 

CBM 8050 Disk Drive 1349.00 

CBM 4032 Computer 1029.00 

CBM 4040 Disk Drive 1029.00 

CBM 4022 649.00 

CBM VIC-20 269.00 

Amdek I00G 159.00 

Amdek Color - 1 13" Color Monitor 329.00 

Microtek I6K Ramboctrd for Atari BOO 79.00 

Microtek 32K Ramboard for Atari 400 and 800 149.00 

Qume Sprint 9/45 (Full Panel) 2295.00 

Atari 400 1 6K 339.00 

Atari A 10 Recorder 60.00 

Atari 825 Printer 599.00 

Atari 850 Interface 139.00 

Atari 810 Disk Drive 429.00 

Atari 800 ^oK 749 00 

Epson MX-70 349.00 

Epson MX-80 449.00 

Epson MX-80 FT 549.00 



Epson MX-100 FT 729.00 

NEC PC-8023 Printer 629.00 

NEC 7710 Spinwriter 2345.00 

NEC 7720 Spinwriter 2695.00 

NEC 7730 Spinwriter 2345.00 

NEC JG 1 201 M(A) — Color 1 2" Monitor . . . 359.00 

NEC 1 2" JB 1 201M Monitor 1 59.00 

Okidata Microline-80 329.00 

Okidata Microline-82A 499.00 

Okidata Microline-83A . .' 729.00 

Diablo 630 1 995.00 

M & R Sup-R-Terminal 279.00 

Microsoft Soft Card (Z-80) 279.00 

Hazeltine 1420 799.00 

Northstar Horizon II 32K QD 2925.00 

Anadex DP-9500/9501 1249.00 

Televideo 910 559,00 

Televideo 91 2C 669.00 

Televideo 920C 689.00 

Televideo 950 929.00 



CALL TOLL FREE! 

EAST COAST WEST COAST 

1 -800-556-7586 1 -800-235-358 1 

COMPUTER SHOPPING CENTER 

3533 Old ConejoRd. #102 

Newbury Park, CA 9 1320 
1-805-499-3678 



COMPUTER SHOPPING CENTER 

1 2 Meeting Street 

Cumberland, Rl 02864 

1-401-722-1027 



TELEX 952106 



CA. TOLL FREE 
TELEX 



-800-322-1873 
182889 




SHOPPING CENTER 



We Accept C.O.D.'s • Stock Shipments Same Day or Next • No Surcharge for Credit Cards 
' All Equipment Factory Fresh w/'MFT Warranty • We Carry the Complete Line of Personal Software 
• Prices do not Reflect Shipping Charges 
Rhode Island and California Residents please add 6% Sales Tax ^52 




NEC GREEN 

12" MONITOR JB 1201M 

$159.00 




EPSON MX-80 

INTERFACE & CABLES IEEE S55. 
RS-232 $70. TRS-80 CABLE S35. 



$449.00 




AMDEK COLOR- 1 MONITOR 
$329.00 




EPSON MX-100 FT PRINTER 
$729.00 

PRICES ARE SUBJECT 

TO CHANGE 
WITHOUT NOTICE 



sSee List ol Advertisers on page 402 



message. An O means the file is 
accessible; a K means it has 
been killed, 

• MN$: This four-byte string 
points to the number of the 
message. Any message up to 
9999 may be represented if you 
have enough disk space. 

• LN$: LN$ is the length of 
the message in lines. Useful dur- 
ing the Quick message retrieval 
(Q) option, it saves valuable 
phone time by telling the user 
which messages are long. It is 
also used to display or skip the 
correct lines of any message in 
Textfile. 

• DT$: This is the date that 
the message was written. 

• PW$: PW$ is a 10-byte 
string holding the password of a 
protected message. If the mes- 
sage is not protected, it is a 
string of 10 blanks. 

• FR$: This string contains 
the sender's name, up to 30 
bytes. 

• TN$: This string holds the 
receiver's name, up to 30 bytes. 

• SB$: The subject of the 
message is contained here. It 
can be up to 60 characters long. 
If the first three characters of 
the subject are (P) the message 
is password protected. 

Random file access allows 
fast retrieval of any message by 
any field, quickly and easily. It 
also means that at a minimum 
any given file will take up one 
sector plus one byte; one sector 
for message data in MSGfile, 
and one delimiter byte in Text- 
file. Since all DOS files need a 
minimum of one granule of disk 
space, and an average message 
(six lines) takes up three sec- 
tors, you can calculate the 
number of message files your 
disk can hold. 

Runs Under NEWDOS 

This modified version of Host 
runs under NEWDOS version 2.1 
or NEWDOS/80. NEWDOS/80 is 
nice for initialization because it 
does a Filespec command much 
faster than the original version 
of NEWDOS. 

Since I do not have an auto- 
answer modem I must put the 
handle into the cradle. However, 
it is possible to use INPto check 
various status bits on the 
RS-232 to detect if the user has 
hung up or logged on and react 
316 • 80 Microcomputing, March 1982 



Program continued 

60 IFINKEY$OCHR$(13)THEN60 

70 PRINTSTRING$(3,13)STRING$(63, "#") : PRINTTAB ( 8 ) "WELCOME TO THE 

TOP DOG SOFTWARE MESSAGE SYSTEM" : PRINT: PRINTTABt 9 ) "ESTABLISHED F 

OR THE EXCHANGE OF MESSAGES AND ": PRINTTAB ( 9 )" IDEAS OF INTEREST T 

O THE MICROCOMPUTER USER . " : PRINTSTRINGS ( 63 , "# " ) 

80 NM$="":CT$="": PRINT: LINEINPUT"ENTER YOUR FULL NAME? ";NM$:LIN 

EINPUT"WHERE ARE YOU CALLING FROM? (CITY, STATE) " ;CT$ : PRINT : PRI 

NTNM$" FROM "CT$: PRINT 

90 A$="": LINEINPUT"IS THIS CORRECT? (Y/N) " ; AS : A$=LEFT$ ( A$ , 1 ) : IF 

A$<>"Y"ANDA$<>"N"THEN90ELSEIFA$="N"THENGOTO80 

10 NM$=LEFT$(NMS, 30 ) +STRINGS ( 30-LEN ( NM$ ) , " ") : PRINT: PRINT" ** *** 

BULLETINS *****•"* LEFT-JUSTIFY NM$ * 
110 IFEOF( l)=0THENLINEINPUT#l,A$:PRINTA$:GOTO110ELSECLOSE#l:PRIN 
T 

120 X=LOF(2) :GET#2,1:A=VAL(MNS) : GET#2 , X : B=VAL ( MNS ) : PRINT "MESSAGE 
S IN SYSTEM : "A"THROUGH "B : PRINT 

130 C=1:PRINT"CHECKING FOR MAIL ...";: FORX=lTOLOF ( 2 ): GET#2 , X : IFTN 
$=NM$ANDST$="0"THENA(C)=X:C=C+1:NEXTELSENEXT 

140 C=C-1: IFO0THENPRINT: IFC = 1THENPRINT"BE SURE AND ANSWER MESSA 
GE #"A(C)ELSEPRINT"BE SURE AND ANSWER THESE MESSAGES . ..":PRINT: 
F0RX=1T0C:PRINTA(X) , : NEXT : PRINTELSEPRINT" SORRY, NO MAIL TODAY." 
150 PRINT 

160 CM$="":B=LOF(2) :LINEINPUT"COMMAND? ( Q, H , E , R , P , K , T , ? ) ";CM$:C 
M$=LEFT$(CM$,1) : IFINSTR ( "QHERPKT?" , CMS ) =0ORCM$=" "THEN160 
170 IFCM$="Q"THEN210ELSEIFCM$="H"THEN390ELSEIFCM$="E"THEN450ELSE 
IFCMS="R"THEN250ELSEIFCM$="P"THEN320ELSEIFCM$="K "THEN 410 ELSEIFCM 
$="?"THEN380 

180 IFLEN(NMS)=0THENNM$=" " 

190 PRINT:PRINT"THANKS FOR CALLING, "LEFTS ( NM$ , INSTR ( NMS , " " ) -1 ) 
". ":PRINT:PRINT"TOTAL TIME ON SYSTEM : "RIGHTS ( TIMES , 8 ): CLOSE 
200 GOTO200 
210 PRINT:GOSUB570 
220 FORX=STTOEN:GET#2,X:IFSTS="K"THEN240ELSEPRINT"MSG: "MN$,LNS" 

LINES ":PRINT"DATE : "DTS : PRINT"FROM : "FRS : PRINT"TO : "TNS:PRIN 
T"SUBJECT : "SBS : Y$=INKEYS 

2 30 IFY$="P"ANDINKEY$=""THEN230ELSEIFYS="S"THEN150 
240 Y$="":NEXT:GOTO160 

250 PR INT: OPEN "I", 3, "TEXTFILE ": GOSUB 57 : FORX=lTOST 
260 INPUT#3,A$: IFA$=CHR$ ( 191 ) THENNEXTELSE26 

2 70 FORX=STTOEN:GET#2,X: IFST$="K"THENFORY=lTOVAL ( LN$ ) : INPUT#1,AS 
:NEXT:GOTO300ELSEPRINT"MSG : "MN$,LNS" LINES ": PRINT"DATE : "DT$: 
PRINT"FROM : "FR$ : PRINT"TO : "TN$ : PRINT"SUBJECT : "SB$ : Y$=INKEYS 
280 IFSTS<>"K"ANDLEFT$ (SBS,3)=" (P)"THENPRINT"THIS MESSAGE IS PAS 
SWORD PROTECTED. ": PRINT : FOR Z=1T0VAL ( LN$ ) : INPUT#1 , A$ : NEXTELSEFORZ 
=1T0VAL ( LN$ ) : LINEINPUT#3 , AS : PRINTA$ : NEXT : PRINT 

2 90 IFY$="P"ANDINKEY$=""THEN2 90ELSEIFY$="S"GOTO150 

300 IFEOF(3)=0THENINPUT#3,AS:NEXT' * ELIMINATE CHR$(191) * 

310 CLOSE#3:GOTO160 

320 ST=0:PRINT: INPUT"ENTER PROTECTED MSG # " ; ST : GET#2 , ST : IFST$="K 

"THENPRINT"NO SUCH MESSAGE ON FILE . " :GOTO150ELSEIFPWS=STRING$ ( 10 

," ")THENPRINT"MSG NUMBER"ST"IS NOT PASSWORD PROTECTED !": GOTOl 50 

330 A$="":LINEINPUT"ENTER PASSWORD > " ; A$ : A$=LEFT$ ( A$ , 10 ) +STR 

ING$(10-LEN(AS) , " " ) : IFA$OPW$THENPRINT : PRINT "ACCESS DENIED. " : GO 
TO150ELSEPRINT' * LEFT-JUSTIFY PW * 

3 40 OPEN "I", 3, "TEXTFILE" :FORX=lTOST 

350 INPUT#3,A$: IFA$=CHRS ( 191 ) THENNEXTELSE350 

360 PRINT"MSG: "MNS,LN$" LINES ": PRINT"DATE : "DT$ : PRINT" FROM : " 

FR$:PRINT"TO : "TN$ : PRINT"SUBJECT : "SB$ 

3 70 FORX=lTOVAL ( LN$ ) : LINEINPUT#3 , AS : PRINTAS : NEXT : CLOSE* 3 : GOTOl 50 
380 PRINT:PRINT"TOTAL TIME ON SYSTEM : "RIGHTS ( TIMES , 8 ): GOTO150 
390 PRINT:PRINT"LIST OF COMMANDS :":PRINT 

400 PRINT"Q - QUICK SUMMARY OF MSGS IN SYSTEM" : PRINT"H - HELP : 

PRINTS THIS LIST":PRINT"E - ENTER MESSAGE" : PRINT"R - RETRIEVE ME 

SSAGE":PRINT"P - RETRIEVE PROTECTED MESSAGE" : PRINT"K - KILL MESS 

AGE":PRINT"T - LOG OFF" : PRINT" ? - PRINT TOTAL TIME ON SYSTEM" :G 

OTO150 

410 PRINT 

420 X=0: INPUT"INPUT NUMBER TO KILL " ; X : IFX=0THEN150ELSEIFX>BORX<A 

THEN420ELSEGET#2,X: IFST$="K"THEN420 

430 IFLEFT$(SB$,3)=" (P) "THENAS=" ": LINEINPUT" ENTER PASSWORD? " ; A$ 

:AS=LEFTS ( AS , 10 ) +STRINGS ( 10-LEN ( A$ ) , " ") : IFAS<>PW$THENPRINT" ACCE 

SS DENIED. ":GOTO150 

4 40 A$="K":LSETST$=AS:PUT#2,X:GOTO150 

450 OPEN"E" , 3, "TEXTFILE" :B=B+1:PRINT"THIS WILL BE MSG NUMBER"B 
460 PRINT:PRINT"REMEMBER TO USE "CHR$ ( 34 ) " (P ) "CHRS ( 34 ) " AS FIRST 

THREE LETTERS" 
470 PRINT"IN SUBJECT TO PROTECT IT IF DESIRED" 

4 80 PRINT: AS="0": LSETST$=A$ : A$=" " : LINEINPUT" FROM? " ; A$ : LSETFR$=A 
S:A$="": LINEINPUT "TO? " ; A$ : LSETTN$=A$ : A$=" " : LINEINPUT "SUBJECT? " 
;A$:LSETSB$=A$:LSETMNS=STRS(B) : LSETDT$=LEFT$ (TIMES, 8) 
490 IFLEFT$(SB$,3)=" (P) "THENA$=" ": LINEINPUT" PASSWORD? (10 CHARS 
MAX ) " ; AS : LSETPW$=A$ELSEA$= " " : LSETPW$=A$ 

500 PRINT :PRINT"ENTER YOUR LINES, 1 AT A TIME - HIT CR WHEN DONE 
": PRINT :C=0 

510 C=C+1:A$(C)="":PRINT"#"C">"; : LINEINPUTAS (C ) : IFAS (C ) <> " "THEN 5 
10ELSEPRINT:C=C-1 

520 A$="" : LINEINPUT" (L)IST, (E)DIT, ( S ) AVE , (T)ERMINATE & SAVE O 
R (Q)UIT ?";A$:IFINSTR( " LESTQ" , AS ) =0ORA$=" " THEN520 

Program continues 



Program continued 

530 IFAS="E"THEN550ELSEIPA$="S"THEN560ELSEIFA$="T"THENP=l:GOTO56 

0ELSEIFA$="Q"THENB=B-1 : CLOSE#3 : GOTO150 

540 PRINT:FORX=lTOC:PRINTX;A$(X):NEXT:PRINT:GOTO520 

550 X=0: PRINT: INPUT-WHICH LINE DO YOU WISH TO CHANGE" ; X: IFX<lORX 

>CTHENPRINT:GOTO520ELSEPRINT:PRINT"LINE #"X": "A$(X) :PRINT:LINEI 

NPUT" ENTER NEW LINE — > " ;A$ (X) : PRINT :GOTO520 

56 LSETLN$=STR$(C) : PUT# 2 , B : B=B+1 : PRINT* 3 , CHR$ ( 1 91 ) : FORX=lTOC : PR 

INT#3,A$(X):NEXT:CLOSE#3:IFP=1THEN180ELSE150 

570 ST=0: INPUT "ENTER STARTING NUMBER (BEGINNING IS DEFAULT) "; ST: 

IFST=0THENST=AELSEIFST<AORST>BTHEN570 

580 EN^O: INPUT" ENTER ENDING NUMBER (END IS DEFAULT) " ;EN: IFEN=0TH 

ENEN=BELSEIFEN<AOREN<0OREN>BTHEN580 

590 Y$=INKEY$sPRINT"HIT P TO PAUSE, S TO STOP (CR TO CONTINUE) 

600 IFINKEY$OCHR$(13 ) THEN 600 ELSEPR INT : RETURN 

610 '* DATA FOR 32K HOST PROGRAM - CHECKSUM IS 35243 * 

620 DATA24 5, 58, 8, 191, 254, 1,40,52,197,229,62,1,50,8,191,33,0,190, 

3 4,30,64,33,164,190,34,22,64,211,232,219,233,230,248,246,4,50,7, 

191,211,234,219,233,230,7,33,255,190,6,0,79,9,126,211,233,225,19 

3 ,241, 201,0,0,229 ,219, 232, 203,119,194 , 159,190 

630 DATA24, 21, 42, 32, 64, 58, 9, 191, 189, 194, 203, 190, 58, 10, 191, 188, 19 

4,20 3,190,35,34,9,191,219,234,203,119,40,250,121,211,235,254,13, 

202,148,190,225,241,195,88,4,42,42,42,32,67,79,80,89,82,73,71,72 

,84,32,49,57,55,57,32,66,89,32,84,65,78,68,89 

640 DATA32, 67, 79, 82, 80, 46, 32, 42, 42, 42, 32, 21 9, 234, 203, 11 9, 202, 148 

,190,62,10,211,235,225,241,195,88,4,245,219,232,203,119,194,199, 

190,219,234,203,127,202,199,190,241,219,235,230,127,254,17,40,58 

,254,5,250,196,190,254,27,192,62,1,201,241 

650 DATA195, 227, 3, 219, 234, 203, 119, 202, 203, 190, 62, 18, 211, 235, 35, 3 

4,9,191,4 3,20 3,29,203,20,219,234,203,119,202,223,190,124,211,235 

,219,234,203,119,202,233,190,125,211,235,195,91,190,62,0,50,68,1 

90,50,69,190,201,34,68,85,102,119,170,204,238 

660 DATA0, 0,0, 0,0,0 

670 IFERRO106THEN0NERR0RG0T00 

680 C=1:CLS: PRINT "ENTER YOUR BULLETINS! (ENTER TO TERMINATE )": PR 

INTSTRINGS (42,131) SPRINT 

690 A$<C)="":LINEINPUT" > ";A$(C) : IFA$ (C)=""THEN700ELSEC=C+1 sG 

OTO690 

700 PRINT:C=C-l:OPEN"0 , \3, "BULLFILE" :FORX=lTOC:PRINT#3 ,A$ ( X) :NEX 

T:CLOSE#3:RESUME 



accordingly. 

The check-sum for the data is 
35243, and can be computed as 
follows: 



FORK = &HBE00TO&HBF0C.READY: 
Q = Q + Y:NEXT:?Q 



If Q is not 35243 go back and 

check your data. 

Forum-80 users will be famil- 
iar with the format of the pro- 
gram while executing; new 
users can type H for help. This 
program requires at least one 
message on the system, along 
with a bulletin message. If the 
program detects that these have 
not been written, it will ask you 
to enter the files. The Host rou 
tine allows Keyboard input from 
your terminal as well as the re- 
mote terminal. Files are killed 
only in that they are prevented 
from listing; they still take up 
disk space. 

I have set up the welcoming 
messages to represent my own 
cottage software business; 
change them to display what- 
ever you wish.B 



ilium 



Brand New, Top Quality, Exact Replacement Ribbons & Cartridges. These Ribbons Produce 

Super Jet Black Impressions and Ultra Reliable Print Life. They Are Delivered to Your Door 

Promptly for Much Less Than Most Retail Stores 

•SPECIAL! BUY 10 and GET ONE FREE! 




OFF!! 
OR MORE ! 



YOUR PRINTER 


PACK SIZE 


RETAIL LIST" 


YOUR WHOLESALE PRICE 


SIZE 


COMMENTS 


CAT 0RDER# 


ANAOEX 9000 Series 


l.'pk 


14 00 ea 


14.00 


114 00 ea) 


500' 


Nylon Jet Blk 


C-777 


CENTRONICS 700-703,737,779 


3/pk 


18 95/3 pk 


11.95/3 pk 


13. 98 ea) 




Nylon Jet Blk 


C-700 


CENTRONICS 100. 101A, 102. 


3/pk 


26.33/3 pk 


17.55/3 pk 


(5.85 ea) 




Nylon Jet Blk 


C-100 


103 300 301.306 308 330 












5 mil High Speed 




358.398.500,501,603,508. 
















588. B?0 820 
















CENTRONICS 704-705 


1/pk 


'6 95 ea 


13.95/Giant Can 


(13.95 ea) 


5'16"x210' 


Giant l a-t 


C-7045 


DEC 'k x 40YO. 


3/pk 


17.77/3 pk 


12.95/3 pk 


(4.32 ea) 


1,2" x 120' 


Double Spools 


R-600 


DEC '/2 * 60Y0. 


3/pk 


20.12/3 pk 


14.25/3 pk 


(4. 75 ea) 


1/2" x 180' 


Double Spools 


R-B44 


DIABLO HYTYPE II |M,'S 8LK| HI 


1/pk 


9.31 ea 


6 87 ea 


(6.87 eaj 


5/16" » 


300.000 plus imp 


C-511 


YIELD FITS 70 PRINTERS' 










High Yield" 






EPSON MX70 80 


1/pk. 


16 00 ea 


1 6.00 ea 


(13 95 ea) 


500 .60 


Nylon Jet Blk 


C-522 


IBM -"SILVER DOLLAR Sys 


5/pk 


5 8C ea 


14.90/5 pk 


(2. 98 ea) 


9/16" x 30' 


Nylon Jet Blk 


R-300 


34, Sys 32 M0LA, Senes 
















IMDL4974. 5256, 3287. 3770, 
















3771-3774,4974,5100.5103, 
















5110 5228 5256 5320MOLA 
















IBM -HARMONICA ft". SERIES 


3/pk 


9 42 ea 


20 85 3 pk 


(6. 95 ea/ 


1 2" x 108 


Nylon Jet Blk 


C-350 


t. MOD 4973/11. 3200. 3289. 
















MOD 2 
















NEO 'jP ! NW3!:fh 


4/pk 


23 40 3 cart 


23 60/4 pk ct> reload 


15. 90 ea) 


1/2" x 51' 


Nylon/ Ex Lng Lite 


R-400 


QUME (FITS 80 PRINTER MOOS) 


3/pk 


IS 00 3 pk 


13.95/3 pk 


(4 65 ea/ 


1/4" x 310' 


Multistnke Film 


t-525 


RADIO SHACK 0AISY WHEEL II 


l.'pk 


2495,3pk 


3 25 


(8 25 eaj 


250 


Mylar Multistnke 


C-789 


RADIO SHACK LPIII. LPV 


one, pk 


13 95.. can 


8 95/Reload rib only 


(8.95 ea) 


500" x 45' 


Nylon incl Instr 


R-T3 


RADIO SHACK LPII, LPIV 


3/pk 


18.95/3 pk 


11.95/3 pk 


(3 98 eaj 


563" x 45' 


Nylon Jet Blk 


C-700 


TELETYPE MOO 33. 28, 35. 37 

38 88 
WANGM S 5541 W WC 5581 


10/pk 


2 40 ea 


13.90 10 pk 


(1.39 ea) 


1/2" x 36' 


Nylon Jet Blk 


R-450 


1/pk 


6 85 ca 


5 95 ea 


(5.95 eaj 


5/16" x 393' 


Multistnke Film 


C-550 


WD. 6581W, 2281W 


















TERMS: 

MINIMUM PURCHASE - $20 
PAYMENT BY: C.O.D. (UPS), CHECK, 

MASTER CARD, OR VISA CHARGE 

CARD. 
VOLUME DISCOUNTS: 

20 - 50 PACKS 10% 

51-100 PACKS 15% 

"UNDER $20, ADD $5 HANDLING. 

"APPROX. RETAIL. PRICE VARIES. 

ANCIE LABORATORIES 

5200-J Philadelph ia Way 301 -345-6000 (Wash DC Local) 
Lanham. Maryland 20706 301-792-2060 (Balto. MD Local) 

800-638-0987 (National) 



NAME. 



ADDRESS. 
CITY 



.STATE. 



ANCIE Laboratories 
5200-J Philadelphia Way 
Lanham. Maryland 20706 



S 284 



301-345-6000 (Wash. DC. Local) 
301 -792-2060 (Balto. MD Local) 
800-638-0987 (National) 



QTV 



CAT.# 



TOTAL 



□ Check Enclosed 

□ C.O.D. 
Q VISA 

□ MASTER CHARGE 
ACCT. # ..._. 



EXP. DATE : 

MIN. ORDER $20 

PRICES SUBJECT TO CHANGE 



^See List ol Advertisers on page 402 
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UTILITY 



Learn the routines for disk I/O. 



Readin 




riting and Assem 




Patrick Morgan 
12919 Warren Avenue 
Los Angeles, CA 90066 



The following program is the 
result of my learning to pro- 
gram disk read and write rou- 
tines in Assembly. 

I wanted to add disk routines 
to a communications program 
that I wrote, so I could send and 
receive files. I couldn't find any 
Assembly programming infor- 
mation that might help me, so 
what follows is a simple pro- 
gram, modified and re-modified 
by trial and error. 

Once you understand my me- 
thods, I'm sure you'll be able to 
add sections of this program to 
creations of your own. 

I wanted to write a clear, easi- 
ly understood program, so eco- 
nomical memory usage was sec- 
ondary. You can make several 
improvements. I used only three 
ROM routines, the keyboard 
scan (0049H), the buffer load 
(05D9H) and the video display 
(0033H), and they are document- 
ed them for both Model I and 
Model III. 

To follow the program explan- 
ation you will have to enter the 
source code and you will need a 
monitor with break points such 
as Debug or RSM, a disk monitor 
such as Apparat's Superzap and 
a file to work with. A Basic pro- 
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gram saved in ASCII format will 
be fine. 

Program Explanation 

Load Program Listing 1 and 
enter Debug. Single-step 
through the first section, until 
you enter the filespec. Line 700 
loads the filespec into the FOB 
(file control block). 

Look at the FOB (7004H) and 
you will see the filespec as en- 
tered. Step through the Open 
command (call 4424H) and look 
at the FCB again. Assuming you 
have no errors, your filespec is 
now replaced by 32 bytes that 
look something like Fig. 1. 

The FCB is set up as follows: 
The first three bytes are used as 
flags to show the status of the 
directory. I really don't know 
what format is used. Bytes four 
and five are the DOSBUF ad- 
dress that you entered in HL 
before Open. (All addresses and 
two byte numbers are in the 
least significant-most signifi- 
cant format.) 

Byte six is an offset used for 
logical records (not used here). 
Byte seven is the drive that con- 
tains the open file. It is set, even 
if you didn't specify a drive num- 
ber. Byte eight is unknown. Byte 



nine is the location of the last 
byte of the disk file in the last 
sector. The disk file itself con- 
tains no end marker, only the di- 
rectory knows where the end is. 

Byte 10 is the logical record 
length. This should be 00. It is 
the value of register B at Open. 
Later we will see what happens 
when B is not 00. 

Bytes 11 and 12 are the next 
record (sector) number and 
should be 0000, since you 
haven't read any sectors yet. 
Bytes 13 and 14 are the last 
record number and tell you how 
many sectors are in the file. 

I use terms record and sector 
interchangeably in this program 
because we set the record length 
to 256 bytes, which is one sector. 

Bytes 15 through 32 tell where 
to find the file on the disk. Byte 
15 is the file's beginning track 
number. If byte 16 is 1 FH or less, 
then the file starts on sector 0, 
otherwise it starts on sector 5 of 
that track. 

Now that you have success- 
fully opened the file, read in a 
sector. Line 340 loads DE with 
the FCB location. Next, line 350 
calls 4436H, which reads a sec- 
tor (256 bytes) from disk to the 
DOSBUF (7025H-7124H). 



80 20 00 25 70 00 01 26 56 00 00 00 OD 00 02 02 
03 00 FF FF 23 00 FF FF 43 00 FF FF 63 00 FF FF 



Fig. 1. 



Use Debug and you will see it 
there. Also look at the AF regis- 
ters. If you have any read errors, 
A register will contain the error 
code and the zero flag will not be 
set. Remember, an "end of file" 
is considered an error. 

Next, you must move the data 
from the buffer to main memory. 
I tried changing the FCB buffer 
pointer as each sector was read, 
but that didn't work. Therefore, 
I called the Move subroutine 
that uses the powerful LDIR 
instruction. 

Register DE' is the move-to lo- 
cation in RAM. HL' is the move- 
from location, which is DOS- 
BUF, and BC is the number of 
bytes to move (0100 hex or 256 
decimal). Both DE' and HL' in- 
crement themselves as each 
byte is moved. I use the alter- 
nate (prime) registers for this 
routine so that you can maintain 
pointers without a lot of Push 
and Pops. 

The program is in a read-move 
loop until it reaches the "end of 
file." After each call to 4436H 
(read sector) there is a JR 
NZ,ERRCK instruction. If there 
are any disk errors, the zero flag 
will be set, and the program will 



The Key Box 

Model I or III 

TRSDOS 

machine language monitor 

disk monitor 



RACET computes Software 

RACET computes Utility Software makes the TRS faster, more efficient, 

and easier to use. Our programming aids improve your productivity. 

Our reputation is for products that are professional in design 

and work as advertised!!! 

FIELD PROVEN 
Vh to 30 MEGABYTES On Line for the TRS-80* Model II 

Now you can use RACET's HSDS with the ARM Winchester Disk Drive on the Model II. This cost effective combination provides 15 Megabytes per drive including 

ECC Error Correction Code and an advanced sequencer to further ensure data integrity. An incremental backup to floppy is provided so that only those sectors that 

were changed from the last backup are saved. A full monthly service contract is available at $30 per month per drive. 

The Hard/Soft Disk System (HSDS) Software has more than One Year's FIELD Experience. The latest HSDS version adds several enhancements including 

maintenance of system files on the hard drive, files as large as the disk, the ability to segment the disk as logical drives, definable directory size, and many utilities 

including bulk copies between floppy and hard drives, multiple purge, Superzap, and Directory Catalog System. Full program compatibility with TRSDOS 2.0a is 

maintained. Mixed floppy and hard drive operation is supported. 

HSDS is available for the Cameo, Cynthia Bull, Corvus. Data Peripherals, and Santa Clara Systems hard disk systems as well as the ARM Winchester Drive. 

ARM 15 Megabyte Drive Subsystem $3895 • HSDS Software $400 • Cameo 5/5 Cartridge Drive Subsystem $5995 • Cynthia Bull 10/10 Drive Subsystem $7995 

NEW PRODUCT • MODEL II FAST BACKUP UTILITY • $75 

5 to 10 times faster backups!!! Full disk backup (including verify) 55 seconds!!! on two drive system — 2:15 on single drive system. In business, time is money, 
and one BACKUP is worth 1000 tears!! 

NEW PRODUCT • INTEGRATED BUSINESS SYSTEM • 

ISAM File Structure — Multi-Company Capability. Modular structure. Each module includes complete user documentation which guides the user through 

installation and allows "practice" using a sample data base. When ready, the user simply names his data base and begins. 

The Integrated Business System program set includes General Ledger, Accounts Receivable, Accounts Payable, Payroll, Inventory, General Journal. Asset 

Management and more. 

Features include 

• Multiple data base capability • Multi-company 

• ISAM file structure • Rapid response and fast operation 

• 500 multi-purpose forms with order • No need to have preprinted forms 

• Menu driven • User friendly data entry 'screens 

• Complete end-of-period processing • 80- and 132-column printers 

• Easy to follow installation procedures • Automated clerical error detection 
Business Programs $250/module Mod III, $300/module Mod II, $795 for all four Mod III, $995 for all four Mod II. General Ledger and Accounts Receivable 
available now. Accounts Payable and Payroll 1st Quarter 1982. 

RACET computes UTILITIES and PROGRAMMER AIDS 

ReR.odel + Proload for Mod I and III $35 Renumber utility with partial renumbers, text moves plus tape merge. A must for tape based systems. Generalized 
Subroutine Facilities (GSF) Mod I $25, Mod III $30, Mod II $50 The STANDARD against which all other sorts are compared! And then compare price!" Multi-key 
multi-variable and multi-key character string sorts. Includes zero and move arrays and sample programs. DISCAT Diskette Cataloging System Mod I and Mod III 

$50 This comprehensive Diskette Cataloguing/Indexing utility allows the user to keep track of thousands of programs in a categorized library. Machine language 
program works with TRSDOS and NEWDOS versions (please specify). Files include program names and extensions, program length, diskette 
numbers. COMPROC Command Processor Mod land Mod III $30 Auto your disk to perform any sequence of instructions that you can give from the keyboard 1 ! 
Ideal for setting up dedicated applications. Infinite BASIC Mod I $50, Mod III $60 Extends Level II BASIC with complete Matrix Functions and 50 more string 
functions. Includes RACET in-memory sorts! ! Select only those functions you want to optimize memory. Infinite BUSINESS (Requires Infinite BASIC) Mod I and 
III $30 Complete printer pagination controls, hash codes, binary array search, and packed decimal arithmetic (127-digit accuracy). Disk Sort/Merge (DSMj 
Mod I $75, Mod III $90, Mod II $150 All machine language stand-alone Random file sort package. Establish sort specification in a simple BASIC command file. 
Sorts multiple-diskette files. Only operator action is to switch diskettes when instructed. Super fast sort times — improved disk I/O makes this the fastest Disk 
Sort/Merge available. KFS-80 Keyed File System Mod I and III $100, Mod II $175 Machine language BASIC ISAM utility provides keyed and sequential access 
to multiple files. Simple interface to BASIC. Binary tree index system provides rapid access to records. Utility Package Mod II $150 Recover blown diskettes. 
Includes Superzap, bulk copies, and other utilities for repair of blown diskettes. Complete documentation on diskette structure and guidance for repair. Other 
utilities include Dynamic DEBUG (with single-step, trace, subroutine calling, program looping and more), XCR, DISKID, Directory Catalog System. XPURGE. 
Development Package Mod II $125 Includes RACET Superzap, Apparat Disassembler and Model II interface to Microsoft's Editor Assembler Plus'. Purchase 
price includes complete copy of Editor Assembler + documentation for Mod I and uploading service. Assemble directly into memory. MACRO facility, save all or 
portions of source to disk, extended editor commands. Basic Cross Reference Utility Mod II $50 SEEK and FIND functions for variable, line numbers, strings, 
keywords. 'All' options available for line number and variables. Load from BASIC — call with control 'R'. Output to screen or printer. Maillist Mod I and III $75, 
Mod II $150 ISAM-based maillist. Four keys — no separate sorting. Supports 9-digit ZIP code and up to 30 attributes. 

CHECK, VISA, M/C, COD., PURCHASE ORDER C_ n * r\w*T 

TELEPHONE ORDERS ACCEPTED (714) 997-4950 ^— HALt I COMPUTES 

CIRCLE READER REOUEST FOR FREE CATALOG ^~ 

•TRS-80 ISA TRADEMARK OF TANDY CORPORATION 1330 N. GLASSELL, SUITE M, ORANGE, CA 92667 

^ See List of Advertisers on page 402 80 Microcomputing, March 1982 • 319 



jump to ERRCK. 

The A register contains the er- 
ror code.. The OR 80 sets bit 
seven of A. Thereafter, a call to 
4409H displays an error 
message. If bit seven is not set, 
the program displays the error 
message and jumps to DOS 
READY. 

If you stop the program dur- 
ing this loop and look at the 
FCB, you will see the next rec- 
ord number, bytes 11 and 12, in- 
cremented as each sector is 
read. When the next record and 
the last record are equal, the 
program ends. It generates an 
error code 1D (end of file) and 
the program jumps to LAST to 
close the file. 

If you have partially loaded a 
file and wish to stop, be sure to 
issue a CLOSE command or 
you'll mess up your directory. 
Use Debug command G 44?8. 

Assuming you have trans- 
ferred all the data from disk to 
RAM, you must close the file. 
Line 560 calls 4428H which ad- 
justs the disk directory and re- 
places your filespec in the FCB. 

The final step in my routine 
marks the "end of file" in RAM. 
Byte nine of the FCB. loaded in- 
to a "end of file" flag earlier, is 
the byte number of the file end in 
the last 256 bytes moved. Mark 
this point with a 00 or 03. 

Writing Files to Disk 

Since writing a file from RAM 

to disk is similar to reading one, 
I'll cover only the differences. 
Load the filespec into FCB as 
before; however, this time call 
-•420! i instead of 4424H. 

Call 4420H opens either a new 
or existing file, whereas 4424H 
causes an error if the file 
doesn't exist. 

Yes, you can add a simple rou- 
tine here to see if a file exists be- 
fore writing over it. Your external 
software will provide the start- 
ing and ending addresses and 
load them into STRAD and EN- 
DAD. Line 880 subtracts the two 
addresses and puts the dif- 
ference in HL. This is the 
number of bytes to write. 

Before each write loop the 
program decrements the H reg- 
ister. If it is less than zero, then 
there is less than a full sector to 
write, and the program jumps to 
its closing housekeeping (LSEC). 
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Program 


Listing 1. 






00010 


; DISK I/O ROUTINES 






00020 


; 








7000 


00030 




ORG 


7000H 




0002 


00040 


STRAD 


DEFS 


2 


; LOAD FILE 


HERE 












0002 


00050 


ENDAD 


DEFS 


2 


; LOAD END A 


DDR HERE 












0020 


00060 


FCB 


DEFS 


32 


; FILE CONTR 


OL BLOCK 












0001 


00070 


EOF 


DEFS 


1 


; END OF FIL 


E MARKER 












0100 


00080 


DOSBUF 


DEFS 


256 


; 256 BYTE B 


UFFER 


00090 


i 








7125 


00100 


START 


EQU 


$ 




7125 210080 


00110 




LD 


HL,8000H 




7128 220070 


00120 




LD 


(STRAD) ,HL 


; SET FILE L 


OAD ADDR 












712B 24 


00130 




INC 


H 


; AND END 


ADDR 












712C 220270 


00140 




LD 


(ENDAD) ,HL 


; IN RAM 




00150 


; CORRE< 


ENTERED FOR YOUR 


FILE 


00160 


i 








712F 21FE71 


00170 




LD 


HL,MSG1 


; READ OR WR 


ITE MESSAGE 












7132 CDA471 


00180 




CALL 


TEXT 




7135 CD4900 


00190 




CALL 


0049H 


; KEYBOARD S 


CAN 












7138 FE57 


00200 




CP 


•w 




713A 2872 


00210 




JR 


Z, WRITE 


; ANYTHING E 


LSE IS READ 












713C CD9571 


00220 


READ 


CALL 


FSP 


; GET FILESP 


EC 












713F 212570 


00230 




LD 


HL, DOSBUF 




7142 110470 


00240 




LD 


DE,FCB 




7145 0600 


00250 




LD 


B, 00 




7147 CD2444 


00260 




CALL 


4424H 


,• OPEN FILE 


714A 2024 


00270 




JR 


NZ, ERRCK 


; ERRORS 


714C D9 


00280 




EXX 




; LOAD DE' W 


ITH 












714D ED5B0070 


00290 




LD 


DE, (STRAD) 


; MEMORY AD 


DR. 












7151 D9 


00300 




EXX 






7152 3A0C70 


00310 




LD 


A,(FCB+8) 


f END OF FIL 


B LOC 












7155 322470 


00320 




LD 


(EOF) ,A 


; ON LAST 


SECTOR 


00330 


, 








7158 110470 


00340 


RD1 


LD 


DE,FCB 




715B CD3644 

R 

715E 2010 


00350 




CALL 


4436H 


; READ SECTO 


00360 




JR 


NZ, ERRCK 


; ERRORS 


7160 CD6571 


00370 




CALL 


MOVE 




7163 18F3 


00380 




JR 


RD1 


; GET ANOTHE 


R SECTOR 












7165 D9 


00390 


MOVE 


EXX 




; USE PRIME 


REG.S 












7166 212570 


00400 




LD 


HL, DOSBUF 


; MOVE FROM 


BUFFER 












7169 010001 

Y 

716C EDB0 


00410 




LD 


BC,0100H 


TO MEMOR 


00420 




LDIR 




; DE 1 WAS SE 


T EARLIER 












71GE D9 


00430 




EXX 






716F C9 


00440 
00450 


. 


RET 






7170 FE1C 

E 

7172 280E 


00460 


ERRCK 


CP 


1CH 


• END OF FIL 


00470 




J P. 


Z,LAST 




7174 FE1D 


00480 




CP 


1DH 


; RECORD OUT 


OF RANGE 












7176 280A 


00490 




JR 


Z .LAST 




7178 F680 


00500 




OR 


80H 


; SET BIT 7 


717A CD0944 


00510 




CALL 


4409H 


; SHOW ERROR 


717D CD2844 


00520 




CALL 


4428H 


; CLOSE FILE 


7180 18A3 


00530 




JR 


START 




7182 


00540 


LAST 


EQU 


$ 




7182 110470 


00550 




LD 


DE,FCB 




7185 CD2844 


00560 




CALL 


4428H 


f CLOSE 


718 8 D9 


00570 




EXX 




; BACK TO PR 


IME REGS 










Program continues 



1982 




Sill 




MTI DOES IT AGAIN. Who but MTI can offer 
a letter quality printer and an Olivetti electronic 
typewriter in one unit, at one low price? It's 
hard to believe 

ITS A LETTER QUALITY PRINTER. At MTI, a 
low price is not enough unless we car also 
deliver a superior printing quality. From this 
interchangeable Daisy Wheel printer. You get 
clear and crisp print characters and the out- 
standing features you need. Like: 

"Speed .17 c.p.s. 

"Print capability in 10 pitch pica. 

12 pitch elite, and 15 pitch mikron. 
*100 character set with upper, lower case 

and underlining. 
'33 different typestyles. 



This printer/typewriter has a printing line 
length of 13.2" and will take paper up to 17" 

wide. Perfect for business quality reports and 

documents. 

ITS AN ELECTRONIC TYPEWRITER. This 
Olivetti typewriter makes correspondence and 
other work simplified. By means of it's logic, it 
automates those functions that were tradition- 
ally done manually by a secretary. Margin 
Setting, numerical alignment, tableformatting 
and other functions are done rapid and simple 
operations. 

EASY CORRECTION. One-line memory en- 
ables words or sentences on the line in 

process to be automatically cancelled, by the 
touch of a key 



READY TO GO. You can put this unit to work 
the minute it's delivered. Everything you need 
for both functions is included. The unit is 
complete with paralell interface. It's compat- 
ible with TRS-80, Apple, our M.T.I. MOD III 
computers and nearly all others made. All 
units are backed by the M.T.I, waranty. The 
result is outstanding performance, great re- 
liability, and a price you can afford 

OPTIONS. You can add on a RS-232 Serial 
Interface. Tractor feed is also available. Note: 
Cable extra. 

WANT MORE? For more information, 
call any of our authorized sales and 
service centers listed below. If you prefer, 
you can call or write us and we'll send 
you the information and a free catalog. 



MTI AUTHORIZED SALES AND SERVICE CENTERS 



Anchorage, AK (907) 333-8322 

Rodgers, AR (501) 636-9168 

Mesa, AZ (602) 833-8949 

Phoenix, AZ (602) 244-9739 

Sierra Visla, AZ (602) 458-2479 

Tucson, AZ (602) 323-9391 

Anaheim, CA (714) 773-0240 

Covina. CA (213) 332-4088 

Goleta, CA (805) 967-7628 

Huntington Beach. CA (714) 842-1348 

Inglewood. CA (213) 673-3295 

Lancaster, CA (805)942-5747 

Montclair. CA (714) 626-4813 

Northridge, CA (213) 886-9200 

Orange, CA (714) 771-0880 

Pacheco, CA (415) 689-2260 

Placerville, CA (916) 622-4640 

Port Huememe. CA (805) 985-2329 



Redondo Beach, CA . . (213) 370-5556 

Riverside, CA (714) 781-6361 

San Diego. CA (714) 275-4243 

San Jose, CA (408) 946-1265 

Santa Ana, CA (714) 850-1228 

Santa Monica, CA (213) 393-5785 

Vallejo, CA (707) 554-4933 

Walnut, CA (714) 594-9760 

Westlake Village, CA . . (213) 706-0333 
Colorado Spring, CO . . . (303) 630-3334 

Grand Junction, CO (303) 434-3616 

Groton, CT (203) 445-5166 

Wilmington, DE (302) 762-0227 

Hollywood, FL (305) 981-1011 

Lynn Haven. FL (904) 265-6452 

Mary Esther, FL (904) 243-5793 

Tampa, FL (813) 247-6023 

Norcross. GA (404) 449-8982 



Buckingham, IA (319) 478-2826 

Belleville, IL (618) 277-2354 

Collinsville, IL (618) 345-5068 

Oak Park, IL (312) 386-3323 

Shawnee, KS (913) 631-2029 

Ashland, KY (606) 325-2210 

Shreveport. LA (318) 865-7189 

Anoka, MN (612) 427-5783 

Cameron, MO (816) 632-6528 

Great Falls. MT (406) 737-0901 

Missoula, MT (406) 549-9715 

Raleigh, NC (919) 755-1175 

Grand Forks, ND (701) 772-7848 

West Mllford, NJ (201) 728-8080 

Las Vegas, NV (702) 870-4138 

Jericho, NY (516) 333-2266 

New Rochelle, NY (914) 235-4444 

Syracuse, NY (315) 487-5000 



Troy, NY (518) 273-8411 

White Plains, NY (914) 761-9283 

Tonkawa. OK (405) 628-2693 

Tulsa, OK (918) 836-9503 

Portland, OR (503) 281-7640 

Dallas. TX (214) 247-6679 

Missour City, TX (713) 499-5241 

San Angelo. TX (915) 658-3781 

Cheyenne, WY (307) 632-9132 

Buenos Aires, ARG 32-1858 

Paris, FRANCE 306-4606 

Holm, GERMANY 4103-4315 

Florence, ITALY 55-45-4319 

Singapore. JAPAN 220-7182 

Cape Town, S.AFRICA 2145-1047 

Tahiti, F.P 2-54-47 

Taichung. TAIWAN 4228-5523 

Bang Kok, THAILAND 314-1161 




MICROCOMPUTER TECHNOLOGY INC. 

3304 W. MACARTHUR, SANTA ANA, CA 92704 
(714) 979-9923 • TWX 910-595-1902 MTISNA 



Call or write for free brochure: 
U.S. PRICES, FOB. SANTA ANA 
CALIFORNIA AND MAY VARY BY AREA. 



-249 



-See List of Advertisers on page 402 
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Program continued 










7189 15 


00580 


DEC 


D 


; BEG OF LAS 


T SECTOR 










718A 3A2470 


00590 


LD 


A, (EOF) 


; GET OFFSET 


710D 5F 


00600 


LD 


E,A 




718E 3E03 


00610 


LD 


A, 03 


; END OF FIL 


E MARKER 










7190 12 


00620 


LD 


(DE),A 


; PUT IN MEM 


ORY 










7191 D9 


00630 


EXX 




; BACK TO NO 


RMAL 










7192 C32D40 


00640 
0650 ; 


JP 


402DH 


; EXIT 


7195 211772 


00660 FSP 


LD 


HL,MSG2 


; GET FILESP 


EC 










7198 CDA471 


00670 


CALL 


TEXT 




719B 0617 

X 

719D 210470 


00680 


LD 


B,23 


; 23 CHAR MA 


00690 


LD 


HL,FCB 




71A0 CDD905 


00700 


CALL 


05D9H 


; INPUT ROUT 


INE 










71A3 C9 


00710 


RET 




; ENDS WIT 


H <ENTER> 


00720 ; 








71A4 7E 


00730 TEXT 


LD 


A,(HL) 


; DISPLAYS M 


E5SAGE ON 










71A5 FE03 


007 40 


CP 


03 


SCREEN 


71A7 C8 


00750 


RET 


Z 




71A8 CD3300 


00760 


CALL 


0033H 




71AB 23 


00770 


INC 


HL 




71 AC 18P6 


07 80 
00790 ; 


JR 


TEXT 




71AE 


00800 WRITE 


EQU 


$ 


; WRITE MEMO 


RY TO DISK 










71AE CD9571 


008] 


CALL 


FSP 




71B1 212570 


00820 


LD 


HL,DOSBUF 




71B4 110470 


00830 


LD 


DE r FCB 




71B7 010000 


00840 


LD 


BC,00 




71BA CD2044 


00850 


CALL 


4420H 


; OPEN NEW 


R EXISTING 










71BD 2A0270 


00860 


LD 


HL, (ENDAD) 




71C0 ED5B0070 


00870 


LD 


DE, (STRAD) 




71C4 ED52 


00880 


SBC 


HL,DE 


; HL=NO. OF 


BYTES TO LOAD 










71C6 7D 


00890 


LD 


A,L 




71C7 322470 


00900 


LD 


(EOF) ,A 


; END IN LAS 


T SECTOR 










71CA D9 


910 


EXX 






71CB 2A0070 


00920 


LD 


HL, (STRAD) 


; DE' IS RAM 


POINTER 










71CE D9 


00930 


EXX 






71CF 23 


00940 


INC 


HL 


; ONE MORE B 

Program continues 



The MOVE2 routine is simiiar 
to MOVE except it goes in the 

opposite direction. 

While single-stepping through 
this section, look at the FCB. 
Byte 15 will show where the DOS 
chose to write your file on the 
disk, and bytes 11 and 12 will 
show how many sectors have 
been written. 

The write close routine is sim- 
ilar to the read, except now it 
loads the "end of tile" location 
into byte nine of the FCB so that 
it can be written into the disk di- 
rectory. Upon CLOSE (call 
4428H), the routine writes the 
FCB information in the directory 
so that the DOS can find it again. 

Program Options 

In the Open command we set 
the B register to 00 which 
causes one logical record to 
equal one physical record. 

This simplifies housekeeping 
because we are dealing with 
whole sectors at a time. 

Listing 1 works similar to Ba- 
sic's sequential access mode; it 
loads the whole file, modifies it, 
then dumps it back to disk. 

It can also function similar to 
Basic's random access mode, 
by setting B equal to a logical 
record length (the Field com- 
mand). Bytes 11, 12, 13 and 14 
will now be in terms of 
records.not sectors. Your soft- 
ware will be responsible for 
packaging the records into sec- 
tors before writing and separat- 



MEMOREX 

FLEXIBLE DISCS 



WE WILL NOT BE UNDER- 
SOLDI! Call Free (800)235^1137 

for pnces and information Dealer 
inquiries invited and COD's 
accepted 



PACIFIC 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo CA 
93401 In Cal. call 
(800)592-5935 or 
|805)543-1037 

^207 





EDUCATIONAL 
SOFTWARE 

For TRS-80* Color Computer. PET. Apple II. 



1; 



mm — i« mm— — — ■— — — I— 1 

raTDOOn ***i\*^*> 



ELEMENTARY 

SCIENCE 

GEOGRAPHY 

ECONOMICS 

FOREIGN IANG. 

GRAMMAR 



MATH 
HISTORY 
ACCOUNTING 
BUSINESS ED. 
FARM RECORDS 
COIN INVENTORY 



Write tor FREE Catalogue. 
MICRO LEARNINGWARE -209 

BOX 2 I 34. N. MANKATO MN 5600 1 
507 625 2205 



VISA h. MASTER CHARGE ACCEPTED 

We pav I VV roy.iltv toi KUu.lt 'on, 1 1 

r.oX>.i'«sMM<-ii rtiHl <is 

Apple is a trademark of Apple Computer Co. 

r*S-80 h a registered trattenwu* oi IANDV (OUT. 

fel H * ir#demArV of Commodore Buv Machine. 



From the January 1981 issue of tee CSRA Computet 
Club newsletter 

There was some amusement at the Novem- 
ber meeting when the Radio Shack repre- 
sentatives stated that the software in the , 
ROM cartridges could not be copied. This 
month's 68 Micro Journal reported they had 
disassembled the programs on ROM by 
covering some of the connector pins with 
tape. They promise details next month Never 
tell a hobbyist something can't be done! This 
magazine seems to be tee only source so tai 
of technical informations on the TRS-80 color 
computer". Devoted to SS-50 6800 and 
6809 machines up to now, 68 Micro Journal 
plans to include the TRS-80 6809 unit in 
future issues 



To get the MOST from your 6809 CPU - This is the 
BEST SOURCE' The ONLY Magazine for the 9809 
Computer Months Ahead rt All Others' 

68 MICRO JOURNAL 

5900 Cassandra Smith Rd. 
Hixson.-TN 37343 

USA 

1 Yc — $24.60 2 Yr. -$42.50 3Yi.-$64 50 

•Foreign Surface Add$l2.Yr to. USA Price 

Foreign Air Mail Add $35 Yr to USA Price 

•Canada * Mexico Add $5 50 Yr to USA Price **■ 
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Get your TRS-80™ up and running 
with special system and disk drive values like these . . . 



Complete TRS-80 Model III 

microcomputer system 

with disk drives 

A.M. Electronics Model III with 48K RAM, 
two Tandon 40-track double-density disk 
drives, A.M. Electronics controller board, 
DOS & manuals, complete and ready 
to run! $1,895.00 

Price includes shipping anywhere in Continental U.S. 

A.M. Electronics "Multiplier" 

Tired of unreliable double density opera 
tion? With Multiplier you can upgrade from 
single-density without doubling your 

problems $99.95 

Memory Chips 

16K 200 nanosecond RAM chips $2 00 each 

New! Teac double-head 
40-track disk drive 

Complete with power supply, 

case and extender cables $340 



Teac or Tandon disk drives, 

complete with power supply, 

case & extender cables 

40-track single side disk drive $250 

80-track single side disk drive $340 




TRS-80 Model III Commented 

The definitive guide book to Model III 

ROM $15.00 

Coming Soon: 8-user work station versatil- 
ity and hard disk drive for TRS-80 Model II. 




I 



A.M. Electronics 

business software systems 

put your TRS-80 to work for you 

Manufacturing Inventory Control. Six-pro- 
grams-in-one, for complete control of raw 

materials from ordering to after-production 

disbursement . .- $299.95 

Dealer /Service Center Record Package. In- 
cludes flexible, modular units for auto 
dealers, mechanics, TV repair centers, elec- 
tronic technicans & appliance repair 

centers $199.95 

A.M. Host. Allows your TRS-80 Model II! to 

be run remotely via telephone $29.95 

Inventory Control System. For complete 
control over a virtually unlimited amount 
of inventoried items. Completely menu- 
driven $199.95 



All software compatible with Model I or Model III. 
Each package includes comprehensive, easy-to- 
follow documentation and support materials. 



A.M. ELECTRONICS, INC. 

New Ann Arbor Address: 3446 Washtenaw Ave. 48104. (313) 973-2312. Open M-F 10-6, Sat. 1 0-5 

Fowlerville*: 111 North Grand, Box 1071. 48836. (517) 223-7281. 

Attention Dealers, OEM's & Distributors: Call us for details on our attractive pricing. 



•Authorized Radio Shack Dealer. '"TRS-80 trademark Tandy Corp. Prices subject to change without notice. 



^38 
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Program continued 












YTE 












71D0 CDF371 
-R ■' 
71D3 25 


00950 


WR1 


CALL 


MOVE 2 


; LOAD BUFFE 


00960 




DEC 


H 


; NEXT 256 B 


YTES 












71D4 FAE171 

R 

71D7 110470 


03970 




JP 


M,LSEC 


; LAST SECTO 


00980 




LD 


DE,FCB 




71DA CD3944 


00990 




CALL 


4439H 


; WRITE SECT 


OR ON DISK 












71DD 2099 


01000 




JR 


NZ,ERRCK+8 


; WRITE ERRO 


RS ? 












71DF 18EF 


01010 




JR 


WR1 




71E1 3A2470 


01020 


LSEC 


LD 


A , ( EOF ) 


; EOF IN LAS 


T SECTOR 












71E4 320C70 


01030 




LD 


(FCB+8) r A 


; PUT IN FCB 


71E7 110470 


01040 




LD 


DE,FCB 




71EA CD3944 


01050 




CALL 


4439H 


; WRITE LAST 


SECTOR 












71ED CD2844 


01060 




CALL 


4428H 


; CLOSE FILE 


71F0 C32D40 


01070 




JP 


402DH 


; EXIT 


71F3 D9 


01080 


MOVE 2 


EXX 






71F4 112570 


01090 




LD 


DE,DOSBUF 


; MOVE FROM 


MEMORY 












71F7 010001 

R 

71FA EDB0 


01100 




LD 


BC,0100H 


; TO BUFFE 


01110 




LDIR 




; HL' WAS SE 


T EARLIER 












71FC D9 


31120 




EXX 






71FD C9 


01130 




RET 






71FE 0D 


01140 


MSG1 


DEFB 


01)11 




71FF 45 


01150 




DEFM 


'ENTER <R>EAD 


OR <W>RITE' 


7216 03 


01160 




DEFB 


03 




7217 0D 


01170 


MSG2 


DEFB 


0DH 




7218 46 


01180 




DEFM 


'FILESPEC ' 




7221 03 


01190 




DEFB 


03 




7125 


01200 




END 


START 




00000 TOTAL 


ERRORS 











ing the records after reading. 

Programs such as mailing 
lists show the advantage of logi- 
cal record files. Not only are the 
data in neat packages, but you 
can go directly to a particular 
record on the disk. 

Set BC to a record number 
and call 4442H to "position" the 
FCB for a read or write. You. can 
also sort and organize a file 
greater than 48K by moving data 
back and forth between disk 
files. Think about the necessary 
housekeeping software for a 
while, and you will appreciate 
the $200 mail list programs. 

References 

While the technical informa- 
tion section of the TRSDOS 
manual contains much valuable 
information about disk files, I 
find it difficult to understand. 
Apparatus NEWDOS 80 manual 
may amplify this information for 
you. Also Harvard Pennington's 
TRS-80 Disk and Other Mys- 
teries gives a good description 
of how files are organized and 
how the directory works. ■ 




•f •*• T* f *?* T' f f T* *?' *f 'f f ^f ^f^ f^ ^T^ ^f' ^f^ ^T^ ^f^ 



•DiT; Full-screen BASIC < 

■tor rm~m' uo(M^ i/ 

Southern SoftwsrG 



lisp^imS 

Alle ■'■ ') . M 

(415)387-3131 ^136 

Box 11721 San Francisco, CA 9410 




V 



A 

A 
A 
A 
A 

A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 

A 

A 



NEW 

40 TRACK 

DISK DRIVES 

with 

POWER SUPPLY & CASE 

for 

RADIO SHACK 

and 

OTHER COMPUTERS 



o* 




c o 



OMNITEK comput 

International, Inc. 



& 



1899 Main Street 

Tewksbury, MA 01876 

(617) 851-4580 



ers 

• 140 



**&> 



Shipping extra FOB Tewksbury 

Master Card. Visa, or Bank Checks accepted 



A 
A 

A 
A 
A 
A 
A 
A 

A 

A 

A 

A 
A 
A 
A 

A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
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OOKKEEPERS 



FOR INFO CALL (6031-447-2745 



Intermediate Bookkeeper— 48K, 2 Drive & Printer $ 1 09.95 

Ann Rose, our Accounts Receivable Clerk— 

48K, 2 Drive & Printer $150.00 

The Count— A variety of utilities such as weight, area and capacity conversions; 

loan amortization; hex code conversion, etc. 

48K disk $49.95 

All programs are for TRS-80TM Model 1 or 111. 

STURDIVANT & DUNN, INC. -^ 
BOX 277, 124 WASHINGTON ST., CONWAY, N.H. 03818 

(TRSSO is a trademark of the Tajxty Cuep.l 



Prof.™, software TRS-80® MODEL II 

BASIC CROSS REFERENCE 



• HNUWHIRI NAMbS ARE USm FAST' 

• CAN YOU DELETE THAT LINE? FIND OUT! 

• DO YOU HAVI Db AD CODING' 

• WANT A NICE PROGRAM LISTINC WITH 
DAT! & TIM! IN HEADING 

DISK SORT 

• MINUDRIVIN • EASYTOUSE 

• RANDOM ill IS «iAST' 

• CHAINS TO SYSliM • SPECS SAVI D 
OR BASIC PROGRAMS ON DISK 

BASIC COMPILER 

• TRSDOS '(BASIC COMPATIBLE* 

• f ASTER THAN BASIC BY UP TO 

30 TIMES 
IRS-HO" & TRSDOS" ARE REGISTERED 
TRADEMARKS Of TANDY CORP 



• SAVE HOURS 1 
IPARAILfUSERIAL PRINTERS 

• SEVERAI OPTIONS 

• 6/8 LPI VARIABLE 

LINE WIDTH & PAGE DEPTH 



NOW AVAILABLE! 



«KQ QQ +POSTAGE * 
$0%7.9«7 HANDLING 

DOCUMENTATION ONLY J1000 
DEDUCTIBLE ON PURCHASE 



• YOU DON T HAVE TO BE A PROGRAMMER TO USF IT' 
• EASY TO INSERT INTO 

|OB SIREAM EOR 
NON-STOP RUNNING 1 



$69.99 



+ POSTAGE & 
HANDLING 



DOCUMENTATION ONLY J1000 
DEDUCTIBLE ON PURCHASE 



• WRITTEN BY MICROSOFT 

$350.00 



+ POSTAGE & 
HANDLING 



'EASY TO USI 
'AUGMENTED WITH OUR 
DOCUMENTATION — — 

GOOD-LYDDON DATA SYSTEMS "186 master charge or 

5486 RIVERSIDE DR., CHINO, CA. 91710 V|SA |CC|pM . 



VISA/MC Order Line Only (except Mich.) 800-253-4358 ext. 100 

FINDISK-II The ultimate in automatic disk indexing with exclusive features Model! $20.00 

AUTOMATICALLY create INDEX of programs or data from all your disks, print disk LABELS, print 

alphabetized MASTERLIST, do fast SEARCH, add DESCRIPTIONS. Also automatically: detect DATA or 

SYS disks, PURGE disks and index of old files, and UPDATE from revised disks only. 

SOLAR-I The critical calculations for passive design. . . Model-I $30.00 Model-II $45.00 

INPUT, any latitude, orientation, slope, roof overhang, storage type, building loss, OUTPUT: solar angles, 

shading, time, heat gain/loss, percent solar, fuel use. Print report by hour, month, year in presentation format. 

RIA-II Complex Real Estate Investment Analysis Model-I $30.00 Model-II $45.00 

Analysis for investor or homeowner using Elwood method. INPUT: Project costs, loan and tax data, 

expenses, depreciation rate. OUTPUT: Cap rate/value, mortgage payments, before/after tax cash flows, return 

(IRR), profit/gain from sale over any time series. 

DEPRECIATE-I Manage a list of depreciable items Model-I $15.00 Model-II $20.00 

Tracks long list of depreciable items with varying purchase dates, depreciation rates, or per cent business use. 
Update any time. Print tax form Used by many CPAs. 

STRUCT-I Graphic design of steel /wood beams and moment transfer Model-I $15.00 

INPUT: span /cantilever, uniform/point loads, beam material. OUTPUT: with screen graphics beam moment 
& shear diagrams Print job report with diagram, stresses, and required beam sizes. 

Min 32K. On disk (Mod-I one drive order tape). Add $1.00 postage (Mich, add 4% tax) VISA/MC 
^193 DOCUMAN SOFTWARE BOX 387-A KALAMAZOO, Ml 49005 (616) 344-0805 



COLOR COMPUTER USERS . . . YOUR EXCLUSIVE MONTHLY MAGAZINE 




the RAINBOW 



HAS A POT OF GOLD FULL OF 

• Programs 

• Hints and Tips 

• Helpful Utilities 

• Honest Reviews 

• New User Tutorials 

• Software Discounts 



Th« RAINBOW is devoted only to the TRS-80" COLOR 
COMPUTER! It is the magazine that will help you get the 
most out of your Color Computer whether you're 
interested in fun and games, business applications or 
education. 

"The RAINBOW is a pof ol gold lull of fabulous 
information . " —P.M., Detroit 

/ wouldn't be without the RAINBOW. Its the best!" 

— R.P., Seattle 

th« RAINBOW 

5803 Timber Ridge Dr • Prospect. KY 40059 
Subtcrlto to the RAINBOW today. 
A 12-month lubtcriptlon It only $12. 



points please add $2 50 

■- current j 



Canad 

All subscnpl . . 
lor $2 plus $2 50 postag 



nd handling) 
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TRS-80™ Models 1 & 3 

SYSTEM DIAGNOSTIC $99.95 

Complete tests for every component of 
your TRS-80: ROM, RAM, Video Display, 
Keyboard, Line Printer, Cassette Recorder, 
Disk Drives, RS-232 Interface. The most 
exhaustive diagnostic program available. 

SMART TERMINAL $69.95 

The intelligent telecommunication pro- 
gram that enables your TRS-80 to be used 
as a time-sharing terminal. Automatic 
transmission and reception of data to and 
from other computer. Full control key set, 
including BREAK. Complete character 
mapping, lower case. Cassette and disk 
files compatible with both Electric Pencil™ 
and SCRIPSIT™. 

MONITOR #3 $39.95 

Disassembler, memory displays; move, 
search, modify, and verify memory; read 
and write machine language cassettes; 
object code relocator; hexadecimal arith- 
metic; symbolic output of disassembly. 

MONITOR #4 $49.95 

Same as Monitor #3, but adds disk file and 
sector input and output, RS-232-C com- 
munications. 

HOME BUDGET $49.95 

Maintains checkbook, summarizes income, 
expenses, monthly bills. Monthly and year- 
to-date summaries. (Disk version only.) 
Specify Model 1 or 3 ^195 
Send S.A.S.E. for FREE Catalogue. 

HOWE SOFTWARE 

14 Lexington Road, New City, NY 10956 
TRS-80 is a registered trademark of Tandy Corp. 



EFFECTIVE 
IMMEDIATELY: 



Canadian subscriptions, $27.97 
1 year only, U.S. funds 
Foreign surface, $44.97 
1 year only, U.S. funds 

Foreign air mail, please inquire. 



[All previous subscription 

offers void as of 

February 1, 1982.] 



■ See List ol Advertisers on page 402 
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TUTORIAL 



The Key Box 

Basic Level II 
Model I or III 



Bring round off errors into line. 



Dizzy Decimals 



James R. Shore 
605 Harrison Street 
Belding, Ml 48809 



I have found four decimal val- 
ues that consistently lead to 
subtraction errors on the 
TRS-80. Two produce a frac- 
tionally high answer and two 
produce fractionally low 
answers. 

Let's set up a program to ob- 
serve these problems, and then 
develop a technique to eliminate 
the errors. How about a simple 
accounts receivable routine 
with only three variables: 

• DA as previous balance 

• DB as amount paid 

• DC as balance due 



Simple Program 

Type the following program: 

10 INPUT'INPUT PREVIOUS BALANCE 

";DA 
20 INPUT'INPUT AMOUNT PAID ";DB 
30 DC = DC-DB 

40 PRINT'BALANCE DUE EQUALS "DC 
50 INPUT"TO TRY ANOTHER PRESS 

ENTER ";YZ 
60 GOTO10 

Line 10 is simply the customer's 
previous balance; that is, how 
much money an individual 
owes. Line 20 shows the cus- 
tomer's payments. 

Line 30, which is where the 
problem lies, subtracts the value 
in line 20 from the value in line 10 
to calculate the number printed 
in line 50— the balance due. 

Using this sample program I 
can illustrate the four subtrac- 
tion problems. 

Problem 1 
Input previous balance $30.20 
Input amount paid 30.00 

Balance due .200001 

When the TRS-80 subtracts the 
above numbers, it produces an 
erroneous answer, one digit too 
high in the sixth place. 

Problem 2 

Input previous balance $30.30 
Input amount paid 30.00 

Balance due .299999 

When subtracting these 
numbers, the 80 produces an er- 
roneous answer, one digit too 



low in the sixth place, just the 
opposite of the previous error. 

Problem 3 
Input previous balance $30.70 
Input amount paid 30.00 

Balance due .700001 

This produces the same error as 
in Problem 1. 



Problem 4 

Input previous balance $30.80 

Input amount paid 30.00 

Balance due .799999 

This produces the same error as 
in Problem 2. In my experience 
the above four decimal values, 
.2, .3, .7, and .8 are the only 
values that the TRS-80 fails to 
subtract properly. 

In the subtracted values, 
which the computer rounded too 
high or low, the rounding error 
occurs at the sixth place after the 
decimal. Conveniently, when 
dealing with dollars and cents, 
two decimal places is sufficient. 

But that is not the case in 
many other fields— engineering, 
for example. The rounding error 
six places out will eventually 
result in an incorrect balance. 
This is more noticeable when 
the computer rounds too low. 
Here the one cent error is im- 
mediately recognizable. 

One seemingly obvious way 
to eliminate the problem is the 
"print using" statement. Add a 
line 45 between lines 40 and 50. 
The program now looks like this: 



10 INPUT'INPUT PREVIOUS BALANCE 

";DA 
20 INPUT'INPUT AMOUNT PAID ";DB 
30 DC + DA-DB 

40 PRINT"BALANCE DUE EQUALS "DC 
45 PRINTUSING"###.##";DC 
50 INPUT"TO TRY ANOTHER PRESS 

ENTER ";YZ 
60 GOTO10 

At first glance we seem to 
have solved the problem. The ex- 
pected values in both examples 
are correct. However, a more in- 
depth analysis suggests that 
the problem is merely masked. 

I left line 40 in the program to 
show you that the actual values 
have not changed. The final an- 
swer printed by the computer is 
rounded either up or down. But 
the calculations done by the 
computer still use the incorrect 
value. Therefore, the problem 
remains. 

Rounding Off 

Why not round variable DC? 
Since the above looks so good, 
let's give it a try. Change line 30 
to: 

30 DC + DA - DB + .005 

This rounds the DC value to two 
places. 

Once again, the answers in 
two places are correct, but we 
are maintaining digits beyond 
two places that will have the 
same effect as the original error. 
Removing those extra digits 
should solve the problem. 

Again, let's revise line 30 to: 
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From Computer Plus to YOU 
after W^iU^SJt after 




BUY DIRECT 



Here are just a few of our fine offers . 
call TOLL FREE for full information. 



COMPUTERS 

Model II 64K $3300 

Model III 4K LEV I 599 

MODEL III 16K 839 

MODEL III 32K 945.50 

•MODEL III 32K 881.50 

MODEL III 48K 1052 

•MODEL III 48K 924 
Model III 48K 

2 Disc 8i RS232 c 2059 

Color Computer 4K 310 

Color Computer 16K 416.50 

•Color Computer 16K 352.50 
Color Computer 16K 

w/extended basic 459 
Color Computer 32K 

w/extended basic 525 

Color Computer Drive 470 

Pocket Computer 189 

VIDEOTEX 310 



PERIPHERALS 

Expansion Interface OK 

Expansion Interface 16K 
•Expansion Interface 16K 

Expansion Interface 32K 
•Expansion Interface 32K 

16K RAM N.E.C. 200 N.S. chips 
MODEMS 

Lynx Direct Connect Ml/Mill 

Auto Ans. /Dial 

Telephone Interface II 

R.S. Modem I D.C. 

R.S. Modem II D.C. 
PRINTERS 

Daisy Wheel II 

Epson MX80 

Epson MX80 FT 

Epson MX100 

Line Printer VII 

Line Printer VIII 

Line Printer V 



'Computer Plus New Equipment, 
with NEC RAM installed. 
180 Day Computer Plus Warranty. 

We have the lowest possible 
Fully Warranteed Prices AND 
a full complement of Radio Shack 
Software. 

DEALER INQUIRIES ARE INVITED 

Prices subject to change without notice. 
Not responsible for typographical errors. 
TRS-80 is a registered trademark of Tandy Corp. 



Microline 80 
$249 Microline 82A 
355.50 Microline 83A 
291.50 Microline 84 Parrabel 
462 Pocket Computer Printer 
334 DISK DRIVES 
25 R.S. Model III 1ST-Drive 

Tandon40TrackMI 
235 R.S. 1 Drive Exp Mil 
R.S. 2 Drive Exp Mil 
169 R.S. 3 Drive Exp Mil 
130 SOFTWARE 
210 R.S. Software 10% off list 

Newdos80MIII 
1695 ST80III 
479 ETC. 

589 Verbatum 5" Double Density 
759 Verbatum 8" Data Life 
315 Ctr-80A recorder 
620 C.C Joysticks 
1610 



345 
479 
745 
1090 
130 

712 

329 

999 

1518 

2040 



149 
149 

32 

49.95 

52 

22 




call TOLL FREE 1-800-343-8124 

com 





245A Great Road 
Littleton, MA 01460 
617-486-3193 



■See Lis! ol Advertisers on page 402 
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MICRO IMAGES 



FREESHIPP1NG WITHIN CONT. U.S.A. 

E PSO N F o R our c ?o l w l prces OKI DATA 



RS232Not.Req. 

verIaIW 



LYNX Mod i/iii $259.95 

swer. caoies and terminal software 



Datalife5 1 /4 
MD525-01 



iox 
of 10 



DD/ $30.00 

Add S2 50 - Plast L IB ca 



COPYRIGHT KIT - A must for authors who want to learn how 
lg^ote^Uheii£rg^ramsJA7ntter^ nation al attor ne ys. $11.95 
S UPER SCRIP T by Aeon R eg. 32K . S cripsit & L / C -Disk $44.95 
£PiT^R ASSEMBLER PLUS by Micros oft i6K T ape $27. 95 
Newest Version 
-JL4S/3.4D/3.4 III ea $13 4.95 



DOSPLUS 



MAXI MANAGER 



Mod 



by Adventure Int I -.,.,_ 

1 1 Latest Version 48K Disk $84.95 



UN I TER M by Pete Roberts - Mod l/IM 

MICROSOFT ■ FORTRAN 80-S89.95 A.L.D.S-S89.95 • BASIC COMPILER-S179.95 



Works with most modems $74.95 



ED A S by m i sosys Sop h i sti cat e d Edito r & Assem bier. 
LDOS Version 5.1 — Mod I or III 



$75:95 



LAZYWRITER 



$149.95 



LATEST A Best Buy m Word 

VERSION —Mod I or III 



Proofreader by Aspen Software Mod I - 49.95 Mod III - 49.95 

Proofedit by Aspen Software Mod I 28.50 Mod III - 28.50 

Grammatik bv Aspen Software Mod I - 55.95 Mod III - 55.95 



MX 80 Ribbon Reloads $3.50 ea/$35'i00 dz. Min 5 ribbo 



ns 



We also carry the full line of ADVENTURE INTL. ACORN. BIG FIVE BRODERBUND 
AVALON HILL. MICROSOFT. DATASOFT, MISOSYS. AUTOMATED SIMULATIONS and 
most other fine software at discount prices 



SEND FOR YOUR FREE CATALOG 
No credit cards at these low prices. Add $2 00 on all COD orders. Certified Ck MO COD 
shipped immediately Please allow 2 weeks for personal checks For extra fast service 
phone in your COD order Prices subject to change without notice New York State 
residents please add appropriate sales tax 
._Wp OH''' Gre at Values & Prompt Delivery - Why Not Try Us' 

14603 25th Road, Flushing, New York 11354 

Mon-Fri 10 AM-9 PM (21 2) 445-71 24 ^ '57 Sat 10 AM-5 PM 




**££& 



5>** 






;{Ji : fik- 



BASF-DPS 

WORLD STANDARD TAPE 



• PROFESSIONAL 5-SCREW SHELL 

• UNIVERSAL INDUSTRY ACCEPTANCE 




ab 



i 
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Sj^fJcASS' 
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lien\!fLd 



H*5SoB* 10 



,ven 









-st 



DATA TRAC - C-10, C-20 
MUSI TRAC - C-45, C-90 

Jad^V 
rarr-s D ^ 

^>P^ ^ 0C roper 



■ 1 56 
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, "YO U'VE TRIE D THE REST, NOW BUY THE BEST' 
Call: 213/710-1430 for IMMEDIATE SHIPMENT on Credit Card Orders 






1 

I 
I 
1 
1 


ORDER NOW... Mail to 


. VORKlOComputerujQfe [ 


Please send cassettes checked below: 




LENGTH 1 DOZEN 2 DOZEN 
C-10 □ 8.00 ""□"VMO" 


TOTAL 


D Check or M.O.enctosed 3 Charge to my Credit Card: | 
Q VISA □ MASTERCARD Expires date: | 


i 


C--2B I J 10 0G •-; 18 00 






9 


C-45 - '3.00 • ] 23 00 






3 


C-90 Q 21.75 D 39.00 




account no. | 




SUBTOTAL 










1 


Calif, resicents, add 6% Mies tax 




1 


Shipping: 1 doz. $2. 2 doz. $3.50 

arid! I. doz . Sf 






1 


address 


* 


TOTAL 






t 

! 

s 


WRITE FOR QUAMTITY DISCOUNTS 
Snipped bulk-pack by UPS lo slreel address in Con 


dty state/ap 


J S A only We cannot ship lo P 


icxes 


signature '-' 



30DC= INT(((DA-DB)*100) + .5)/100 

The line looks complicated, 
but going through it step by step 
clarifies it. The line subtracts DB 
from DA, multiplies by 100 to 
move the decimal point the two 
places desired; then it adds .5 
which rounds off the answer. By 
taking the integer value, the pro- 
gram removes the extra digits to 
the right of the decimal. 

Dividing by 100 returns the 
decimal point to the proper loca- 
tion. 

Running this program with a 
variety of values seems to pro- 
duce the correct answers for our 
balance due. In essence, it 
rounds to the next higher digit, 
two places after the decimal. 

Now return to the first problem 
that produced a result rounded 
high in the sixth digit. With the 
above method we are adding to 
the third digit and this can again 
cause trouble with specific en- 
tries. Try a few and check the 
results. The following again pro- 
duces an error: 

Previous balance $1234567.2 
Amount paid 1234567. 

Balance due .25 

We are using seven digits to 
the left of the decimal and only 
one to the right, a total of eight. 
Single-precision values should 
handle this. However, this is ac- 
tually rounding two places to 
the right of the decimal (remem- 
ber those 100 values in line 30). 
Seven places, plus two places, 
equals nine places. Single preci- 
sion only handles eight places. 

By using only six places to the 
left of the decimal, it appears we 
can correct the error. 

When using .2, .3, .7 and .8 
with six places to the left of the 
decimal, the answers are cor- 
rect most of the time. However, 
using 333333.8 results in an 
answer of .81 . Obviously there is 
still an error. 

It is possible that the decimal 
takes up one of the eight single- 
precision places. Therefore, 
there may be a limit of five places 
to the left of the decimal. Trying 
several entries with five digits to 
the left of the decimal, I produced 
no errors. 

It looks as if the error condition 
is now solved with the following 
limits: 



• single-precision values 

• five places to the left of the 
decimal 

• two places to the right of the 
decimal 

To sum up the results, first list 
the program: 

10 INPUT"INPUT PREVIOUS BALANCE 

";DA 
20 INPUT'INPUT AMOUNT PAID ";DB 
30 DC = INT(((DA-DB)*100) + .5)/100 
40 PRINP'BALANCE DUE EQUALS "DC 
50 INPUT"TO TRY ANOTHER PRESS 

ENTER ";YZ 
60 GOTO10 

Extending the Decimal 

For larger figures, you can use 
the TRS-80's double-precision 
function. With double precision, 
the 80 can extend the number of 
places to the right of the decimal 
point. 

Let's add a line 5 to the pro- 
gram: 

5 DEFDBLD 

If we now run the programs leav- 
ing line 30 as is, the result is 
more digits in the answer than 
we need. 

Now we have seven places to 
the right of the decimal and eight 
places more consisting of gar- 
bage digits. The Level II manual 
says that we must use double- 
precision values throughout our 
equations, but we have con- 
stants in our program that are 
not double precision. One more 
revision in line 30 and we will be 
able to input most any number. 

Add the # sign after each con- 
stant in line 30. It now looks like 
this: 

30 DC = INT(((DA-DB)*100#) + .5#)/100# 

Our limits are now: 

• double-precision values 

• thirteen places to the left of 
the decimal 

• two places to the right of the 
decimal 

Some of you (like engineers) 
would probably like more than 
two places to the right of the 
decimal. If so, revise line 30 to: 

30 DC = INT(((DA-DB)*1000#) + .5#)/1000# 

You can move the decimal 
point in this fashion to any loca- 
tion up to fifteen places. 

There, now you can subtract 
with accuracy for nearly any appli- 
cation, from simple bookkeeping 
to engineering. Let me know how 
you handle the problem. ■ 
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STEVENS' (Bleep) 

An Authorized (Bleep) Dealer 



We didn't fool you, did we? We can't use certain names in our advertising, but the tact is that as a result of our authorized dealership we are able to offer a full 
line of TRS-80 (tm) products with a full warranty. Of course the fact that we are not a company-owned store allows us to offer a full line of accessories when we 
feel they may better suit your needs, so you'll find we carry printers by Epson and C. ITOH, modems by Lynx, operating systems by Logical Systems and 
Apparat, and disk- drives by Tandon (cheaper without the "Bleep" label). If you like, we'll help you pick the combination most suited to your needs. We even 
have custom programming available if you need that kind of help. And if all that is not enough to interest you, check below and you'll find that our prices are 
outstanding. 



HARD DISK DRIVES 

10 megabyte removable cartridge Winchester drive for the TRS-80 Model I. 
II, or III - includes host adapter and all cables. 

Model I or III (includes LDOS driver) . . . . $5395. 

Model II (requires DOS) $5295. 

Model I & III Operating Systems 

LDOS 5.1 $ 116 - 

NEWDOS80 $ 139 - 

Model II Operating Systems 

Racot HOOS •: fRSi)0Si $400. 

Single User Oasis $ 500 

Multi-User Oasis S850. 

CP/M $ 195 - 



MODEL III SYSTEMS 

We take a 16K Model III. add 32K of prime 200 NS memory, a high quality 
disk controller with a switching (not linear) power supply, and two double 
density 40 track tandon disk drives (the same one Tandy uses). Since we 
can assemble this system for less, you pay only $1895. 

With 2 double sided 40 track drives* $2095. 

With 2 single sided 80 track drives* $2195. 

With 2 double sided 80 track drives* $2295. 

•Requires : DOS oi other alternate Model III operating system. We will pro- 
vide LDOS 5.1 for $80. with the purchase of any of the systems listed 
above 



HARDWARE 



Mod III 48K 2 Disk $2150. 

16K Model III 865. 

64K Model II 3385. 

64K Color Computer 339. 

16K Extended Color 499. 



32K Extended Color $634. 

CTR80 Cassette Recorder 52. 

Lynx A/A Modem 249. 

C. Itoh Prowriter Printer 550. 

Starwriter Daisy 25cps 1495. 



WARRANTY INFORMATION 

All Radio Shack products are covered by the standard 
Tandy 90 day warranty, which will be honored at any 
company-owned store or computer center. Other hard- 
ware is warranted for 1 20 days by Stevens' Electronics. 



CHEKBOOK 

AT LAST ... A system to handle both your income and expense ledger AND 
your checkbook' Presenting CHEKBOOK (c) by Ronald Schulman. 
CHEKBOOK has these advanced features: 

MENU DRIVE 

FLEXIBLE HARDWARE CONFIGURATION. 

SIMPLE STATEMENT RECONCILIATION 

LEDGER ACCOUNTING 

ITEMIZED DEDUCTION REPORT 

INCOME STATEMENT 

PERMANENT YEARLY ACCOUNTING 

ERROR RECOVERY 

FAST COMPILED CODE 

FULL DOCUMENTATION 

SPECIFY OPERATING SYSTEM 

$99.95 







DEALER B094 

STEVENS' ELECTRONICS 

562 Nutt Road, Phoenixville, PA 19460 

Call Toll Free (800) 345-6279 

In Pennsylvania (215) 933-3441 



■ See List ol Advertisers on page 402 



Add shipping to prices listed. 
Add 3% for Visa and Master Card. 
PA. residents add 6% sales tax. 
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EDUCATION 



Teach the physics of light. 



You Light Up My Life 



James W. Wood 
424 N. Missouri 
Box 507 
Atwood, IL 61913 



Interference is "the mutual ef- 
fect of two beams of light 
resulting in a loss of intensity in 



Line description 

30-60 inputs distance between 
sources and wavelengths for 
two patterns. 

80-110 constructs first inter- 
ference pattern. 

120-160 constructs second in- 
terface pattern. 

170-220 shifts from first pattern 
to second pattern five times. 



certain areas (destructive inter- 
ference) and reinforcement of 
intensity in others (constructive 
interference)." Light and dark 
bands are formed when mono- 
chromatic light passes through 
two narrow slits. In a physics 
class these bands are observed 
by the use of diffraction grat- 
ings, ripple tanks, or two lines 
scratched into a black-coated 
glass plate. 

Program Listing 1 allows a 
student to study the relation- 
ship between the wavelength of 
the light, the distance between 
sources, and the resulting dif- 
fraction pattern. It also gives the 
equation for interference pat- 
terns caused by two point 
sources. From sin0 = A/d it can 
be deduced that a smaller angle 
(resulting in more light and dark 
bands) will result from a shorter 
wavelength or a larger distance 
between sources. Fig. 1 shows 



REM JAMES W. WOOD, ATWOOD ILLINOIS 








CLS : PCLEAR8 : PRINT" INTERFERENCE PATTERNS" 






PMODE4 , 1 : PCLS : PMODE4 , 5 : PCLS 






20 


PRINT'FORMED BY TWO POINT SOURCES" 








PRINT: INPUT"RELATIVE WAVELENGTH FOR FIRST PATTERN" -F 




INPUT'RELATIVE DISTANCE BETWEEN THE 


SOURCES" 






INPUT"RELATIVE WAVELENGTH FOR SECOND 


PATTERN" 




60 


INPOT"RELATIVE DISTANCE BETWEEN THE 


SOURCES" 




70 


PMODE4 , 1 : PCLS : SCREEN1 , 






80 


r ORW=lT0165STEPF 






90 


CIRCLE(128-R,96) ,W 






1 


CIRCLE(128+R,96) ,W 






lie 


NEXTW 






120 


PMODE4 , 5 : PCLS : SCREEN1 , 






13E 


F0RW=1T0165STEPA 






! 4 


CIRCLE(128-B,96) ,W 






150 


CIRCLE(128+B,96) ,W 






1 6 


NEXTW 






170 


F0RY=1T05 






]80 


PMODE4,1:SCREEN1,0 






190 


FORX=1T01 000 : NEXTX 






200 


PMODE4,5:SCREEN1,0 






210 


FORX=lT01 00 0: NEXTX 






2 20 


NEXTY 






230 


PRINT"TYPE 1 TO REPEAT LAST PATTERNS 






240 


PRINT"TYPE 2 TO PUT IN NEW DATA" 






250 


PRINT"TYPE 3 TO END" 






26 


X$=INKEYS:IFX$=""THEN26 






27 


XX=VAL(XS) 






280 


ON XX GOTO 170,10,290 






290 


END 

Program Listing 1. 







the result of changing the 
distance between sources. 

The program allows you to set 
up two different conditions of 
wavelengths and distances, 
then flash back and forth from 



The Key Box 

Extended Color Basic 
Color Computer 
16K RAM 



one pattern to the other. It is 
easier to comprehend what is 
happening if you change either 
the wavelength or the distance 
(but not both) on one run of the 
program. More information on 
these patterns can be found in a 
high school or college physics 
book.H 



James Wood teaches high 
school math, physics and 
chemistry. 




X REPRESENTS WAVELENGTH 

d REPRESENTS DISTANCE BETWEEN SOURCES 



Fig. 1. Interference patterns caused by two point sources. 
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Computer experts 
(the pros) usually have big 
computer experience. 
That's why when they shop 
system software for Z80 
micros, they look for 
the big system features 
they're used to. And that's 
why they like Multi-User 
OASIS. You will too. 



(THEN COMPARE J 



DATA INTEGRITY: FILE & 
AUTOMATIC RECORD LOCKING 



The biggest challenge 
for any multi-user system 
is co-ordinating requests 
from several user 
to change tr, 
at th< 



Without this control, 
unauthorized users could 
access your programs and 
data and do what they like. 
A frightening prospect 
isn't it? 

And multi-users 
can multiply the problem. 

But with the Lot 
Password 



memory is needed. Even 
if you have more than 64K, 
your pay-off is cost savi_ 
and more efficient use 
of all the m err^r|&ou n 
available?^ mw it 

*Te? 
tiBAmCW Pfcsit. 




ires 
is. 
le: normally 

jsers can view a 
particular record at the 
same time. But, if that 
record is being updated 
by one user, automatic 
record locking will deny all 
other users access to the 
record until the up-date is 
completed. So records 
are always accurate, 
up-to-date and integrity 
is assured. 

Pros demand file & 
automatic record locking. 
OASIS has it. 



;eepmhrerory 
iser nas been 
■n, when and 
ong. 

Pros insist on these 
security features. 
OASIS has them. 



EFFICIENCY: 
RE-ENTRANT BASIC 



SYSTEM SECURITY: 
LOGON, PASSWORD 
& USER ACCOUNTING 



Controlling who gets on 
your system and what they 
do once they're on it is the 
essence of system security. 



supports 
lanyfte i«rf|inals 
:anBn in to little as 
rory. Or, with 
inlTswitching, as much 
is 784K. 

Multi-Tasking lets each 
user run more than one 
job at the same time. 

And there's our BASIC — 
a compiler, interpreter and 
debugger all in one. 
An OASIS exclusive. 

Still more: Editor; Hard 
& Floppy Disk Support; 
Keyed (ISAM), Direct & 
Sequential Files; Mail-Box; 



A multi-user system 
is often not even practical 
on computers limited 
to 64K memory. 

OASIS Re-entrant 
BASIC makes it practical. 

How? 

Because all users use a 
single run-time BASIC 
module, to execute their 
compiled programs, less 



OASIS IS AVAILABLE FOR 

SYSTEMS. Alios. Compucorp; Cromemco^ 

Delta Producls Digital Group; Digital 
Microsystems; Dynabyte; Godbout ; 
Index: Intersystems: Nort' " 
SD Systems; TRSj" " 
Graphic; Vo rir 

CONTRO^^^Bell ■fctrols; Car] 
:orvus; Kr^pk; MJ^Aflw: Mlcrc 
TeleVMB 



tware Directory 




Scheduler; Spooler; 
all from OASIS. 

Our documentation is 
recognized as some of the 
best, most extensive, in the 
industry, And, of course, 
there's plenty of 
application software. 

Put it all together and it's 
easy to see why the real 
pros like OASIS. Join them. 
Send your order today. 




PLEASE SEND ME: 






Price 






with 


Manual 


Product 


Manual 


Only 


OPERATING SYSTEM 






(Includes: 






EXEC Language; 






Fjle Management; 






User Accounting; 






Device Drivers; 






Print Spooler; 






General Text 












SINGLE-USER 






MULTI-USER 






BASIC COMPILER/ 






INTERPRETER/DEBUGGER 


100 




RE-ENTRANT BASIC 






COMPILER/INTERPRETER/ 






DEBUGGER 






DEVELOPMENT PACKAGE 












Linkage Editor; 






Debugger) 






TEXT EDITOR * 






SCRIPT PROCESSOR 


150 




DIAGNOSTIC & 






CONVERSION UTILITIES 






(Memory Test; 






Assembly Language: 






Converters: File 






Recovery, Oisk Test; 






File Copy from 
other OS; etc.) 






100 




COMMUNICATIONS 






PACKAGE 












1 File Send & Receive) 






PACKAGE PRICE 






1 (All of Above) 






SINGLE-USER 


500 


GO 00 


MULTI-USER 


850 


60.00 


FILE SORT 


100 


15.00 


' COBOL-ANSI '74 


750 


35.00 



Order OASIS from: 

Phase One Systems, Inc. 

7700 Edgewater Drive, Suite 830 

Oakland, CA 94621 

Telephone (415) 562-8085 
TWX 910-366-7139 

NAME 

STREET (NO BOX =) 

CITY 

STATE ZIP 



AMOUNTS .._ 

(A'.tacn system descriptor; 

add $3 for shipping; 

California residents add sales tax) 

D Check enclosed D VISA 
D UPS C.O.D. □ Mastercharge 

Card Number 

Expiration Date. _____ 

Signature 



MAKES MICROS RUN LIKE MIKtb 



UTILITY 



Cure those exit-to-DOS blues. 



TRSDOS 2.0 Fix 



Tom Mornini 
8601 Farley Way 
Fair Oaks, CA 95628 

What a surprise. I walked in- 
to the local Radio Shack 
Computer Center and found that 



there was a new TRSDOS 2.0 
available. With enhancements 
such as a Host program allowing 
remote control of the computer 
(over a modem) and wild card 
file names the program seemed 
worth the $24.95. The new ter- 



minal program had a true break 
key, and also an exit function to 
get you out of the program with- 
out rebooting the system. My ex- 
citement gave way to disap- 
pointment when the program ex- 
ited to TRSDOS Ready, and 



TRS-80 Model II DEBUG Program 



3060 
3070 
3080 
3090 
30A0 
30B0 
30C0 
30D0 
PC 
2800 
? P 



3E 39 CF 54 7A 34 4D 35 
C4 30 53 B0 30 42 34 31 
30 47 B7 32 58 OF 34 52 
46 ID 32 56 06 32 51 54 
77 CB 7E 21 IB 3A 20 03 
21 8C 3B 06 1C 0E 50 11 
CF C3 3F 30 21 67 37 06 
21 46 3A 20 03 21 5A 3A 
SP SZHPNC AF BC DE 



30 4F F6 33 41 6F 32 45 

4C ID 31 50 9A 30 57 DE 

B0 33 43 28 33 44 7B 33 

30 FF 21 67 37 3E 80 AE 

21 30 3A CD 92 35 18 8F 

CA 3D CD 49 37 EB 3E 26 

00 CB E8 7E A8 77 CB 6E 

CD 92 35 C3 3F 30 3A OF 

HL IX IY AF' BC* 



>9.Tz4M50O.3Ao2E 
.0S.0B41L.1P.0W. 
0G.2X.4R.3C(3D{3 
F.2V.2QT0. Ig7>.. 
w..!.: .10:. .5.. 
1 .;.. .P.. = .I7.>& 

. .?0!g7 w.n 

!F: .IZ:..5.?0:. 
DE' HL' 



21FE 000000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 

Fig. 1. 



TRS-80 Model II DEBUG Program 



3060 
3070 
3080 
3090 
30A0 
30B0 
30C0 
30D0 
PC 
2800 
? P 



C3 F8 3F 54 7A 34 4D 35 
C4 30 53 B0 30 42 34 31 



30 4F 
4C ID 
B0 33 
30 FF 
21 30 
CA 3D 

CF C3 3F 30 21 67 37 06 00 CB 

21 46 3A 20 03 21 5A 3A CD 92 

SP SZHPNC AF BC DE HL 

21FE 000000 0000 0000 0000 0000 



30 47 B7 32 58 OF 34 52 

46 ID 32 56 06 32 51 54 

77 CB 7E 21 IB 3A 20 03 

21 8C 3B 06 1C 0E 50 11 



F6 33 41 6F 32 45 

31 50 9A 30 57 DE 

43 28 33 44 7B 33 

21 67 37 3E 80 AE 

3A CD 92 35 18 8F 

CD 49 37 EB 3E 26 

E8 7E A8 77 CB 6E 

35 C3 3F 30 3A OF 

IX IY AF 1 BC 



..?Tz4M50O.3Ao2E 
.0S.0B41L.1P.0W. 
0G.2X.4R.3C(3D{3 
F.2V.2QT0. Ig7>.. 
w.. !.: . !0: ..5.. 
I.;...P..=.I7.>& 

..?0Ig7 w.n 

!F: .!Z:..5.?0:. 
DE ' HL ' 



0000 0000 0000 0000 0000 0000 



Fig. 2. 



there was nothing in the manual 
explaining how to change it! I 
then decided that I would have 
to make the change myself. 

SVC 39 H 

A disassembled listing of the 
program showed that the pro- 
gram was mainly Supervisor 
Calls (SVC's), and looking at 40 
pages of disassembled code 
was not my idea of fun. Luck 
was with me. On the first page 
there was a call to SVC 39H at 
memory location 3060H. I looked 
it up, and found the SVC named 
CLRXIT. It involves no parame- 
ters, no possible error condi- 
tions, no questions; it clears 
user memory and returns to 

Tom Mornini is a sophomore 
at Bella Vista High School and is 
the author of Dark Forest by 
Sirius Software Inc. 



The Key Box 



Model II 
32K RAM 
TRSDOS 2.0 
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EX PEN SI VE The LN W ^ 

System Expansion II and built-in ''£$$»&?* 
comes with a full 32K of 200ns RAM&-* : " ' 
RS232c 20 MA current loop serial interface. 
That's for starters. Next, consider our heavy gauge 
steel case, power indicator lamp, gold-plated 
connectors, FR-2 glass epoxy circuit board with 
solder mask and silk screen legends. Then there is 
the parallel printer port, screen printer port, real 
time clock, and extra heavy duty onboard power 
supply with over current protection, over voltage 
protection and thermal shutdown. If that's not 
enough then there is the floppy disk controller, 
guaranteed operation at a 4MHz CPU speed and 
our 6 month warranty. Every one of these features 
is STANDARD. This is true system expansion. 
You get every 'expensive' feature without 
spending more. 

CHEAP - Our price is $399.95. Any way you 
compare, features or price, LNW's System 
Expansion II is the clear winner. The LNW 
System has been field tested for over two years 
with thousands of users. It works with any DOS, is 
100% TRS-80 Model I compatible and it works 
'right out of the box', if there is any doubt in your 
mind as to whether you should buy ours or the 
'other guys', just ask an LNW owner! 

WE ARE #7 - Number one in price, features, 
reliability, performance and delivery. LNW is 
committed to 'expensive' features and quality at 
reasonable prices. LNW is committed to support, 
thorough documentation, and reliability. 

LNW Research Corp. 

2620 WALNUT Tustin, CA. 92680 
(714) 641-8850 (714) 544-5744 



made us the number one 
manufacturer of system expansion units 

and accessories for the Model I computer. 

EXPANSION OPTION - 8-inch drive capability 
is as easy as plugging in the LN Doubter 5/8 
option*. Now you can have any combination of 
single- or double-density, single- or double-sided, 
8"* and/or 5" disks on-line! 8-inch disk storage 
increased to 591,360 bytes - 77-track single-sided, 
double-density or 1,182,720 bytes - 77-track 
double-density, double-sided. 

The LNDoubler's unique 5/8 switch allows you 
to boot from 5- or 8-inch system disks and it's 
accessible from outside the interface. The $219.95 
LNDoubler 5/8 comes with a double-density disk 
operating system (DOS+ 3.3.9), complete with 
BASIC and utility programs... ready to run your 
software. 

Each of your present 40-track, single-sided 5-inch 
drives will store up to 184,320 bytes (formatted 
storage) - that's an 80 % increase in storage 
capacity for only half the cost of just one disk 
drive. With three 8-inch double-density, 
double-sided drives your Model I will have 3.75 
Megabytes of online storage - that's more storage 
than a Model II or Model III! 



^32 




*S" drive operation requires special cable, 8" 
double-density requires 3.55MHz CPU speed-up 
modification or I.NW-80 4MHz computer. 



TRSDOS READY! That had to be 
it! Here is how the SVC was 

called: 

3060 LD A.39H 
3062 RST 08H 

This assembles to: 

3E 39- Load register 'A' with 39H 

CF -Restart #8, to call SVC 

(See Fig. 1) 

That left just enough room to 
put a jump statement in so it 
could go to another routine in 
memory to make it do some- 
thing else, i studied ii and decid- 
ed on: 3060 JP 3FF8H This as- 
sembles to: C3 F8 3F— Jump to 
3FF8H (See Fig. 2). 

I picked 3FF8H because that 
was the very bottom of the pro- 
gram minus the number of bytes 
required by the routine to make 
it do any exit needed. The rou- 
tine is simple, and uses an- 
other SVC. 

3FF8 LD HL.3FD5H 

3FFB LD B.23H 

3FFD LD A.25H 

3FFF RST 08H 

This assembles to: 

21 D5 3F -Load registei pair 'HL' with 3FD5H 
06 23-Load register 'B' with 23H 
3E 25-Load register 'A' with 25H 
CF-Restart #8, to call SVC 

(See Figs. 3 and 4) 

I now had all I needed to go in 
and change the program, except 
for the command to execute. In 
the last routine, I loaded the HL 
pair with 3FD5H. When the SVC 
is called, it starts to read the 
command string at that location 
and ends at HL + B, because the 
B register is loaded with the 
length of the command string. 
All there was left to do was put 
in a command no longer than 35 
bytes long, starting at memory 
location 3FD5H. I picked 35 
bytes because it is enough room 
to call up Basic, execute a pro- 
gram, set the number of files, 
and even set memory size in the 
form: BASIC 12345678/123:1 
-F:12 -M:12345. Remember to 
pad the end with blanks, or 
TRSDOS might not like some of 
the characters that get into the 
command string. 

Debug On 

Armed with this information, 
we can make all the changes 
with the Debug monitor. First it 
is necessary to clear memory— 

so enter Clear! It is summoned 
from the depths of a TRSDOS 
system disk by entering DEBUG 
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ON. Now type LOAD TERMINAL 
to load the Terminal program 
without executing it. And for the 
final step, type DEBUG. You are 
now in Debug. 

Press M to get into the RAM 
mode; Debug will respond A = . 
Now enter 3060; the screen 
should look like Fig. 1. 

To get into the modify mode, 
type the F1 key. The cursor 
should jump up to the line that 
starts with 3060 and be posi- 
tioned over the 3 in 3E. Now you 
can change the program. Type 
in C3 F8 3F (without spaces) so 
the screen looks like Fig. 2. 
When that is done, press the F2 
key to exit the modify mode. 

Debug will be waiting for your 
command; press M to enter the 
RAM mode again. Type in 3FD0; 
the screen should look like Fig. 3. 

Again use the F1 key to get in- 
to the modify mode. The cursor 
will be on the line that starts 
with 3FD0 and will be positioned 
over the first in 00. Press the 
down arrow key twice so the cur- 
sor is on the line that starts with 
3FF0 and then press the tab key. 
The cursor will be on the second 
half of the display. Type in 
21 D5 3F 06 23 3E 25 CF (again 
without spaces, so that the 
screen looks like the corre- 
sponding part of Fig. 4. 

Now enter the command you 



want to have the program ex- 
ecute at location 3FD5H. Move 
the cursor back up to the top left 
with the arrow keys, press the 
right arrow key 10 times, and 



top of the exclamation point. 
Now what? Press the F2 key to 
exit the modify mode. Type an 
'O' for DEBUG OFF, and enter: 
DUMP progname START = 3000 



press the 7' (slant) key. The cur- END = 3FFF 

"Your modified terminal 
program is alive and 
well in memory. . . " 



sor will jump over onto the right 
side of the screen on the ASCII 
display. Type the command you 
want, but make sure that it is not 
longer than 35 characters. Pad 
the remainder with spaces mak- 
ing sure not to go past the half- 
way mark on the third line which 
is an exclamation point on the 
ASCII display. After you type in 
the last character, or padded 
space, the cursor should blink 
on top of this exclamation point. 
Since the 7' character is a toggle 
between the HEX and ASCII dis- 
plays, when you want to type a 7' 
in a command, such as in a pro- 
gram name, you should type it, 
type in '2F', and press it again. 
Your modified Terminal pro- 
gram is alive and well in memo- 
ry, and the cursor is blinking on 



The disks will run for a while, 
and you will be faced with that 
TRSDOS READY. Enter the pro- 
gram name saved, and you will 
be greeted by the Terminal pro- 
gram menu. Type 'Q' and your 
command will be executed. 

Errors, Errors, Errors 

If you made any errors in the 
command string, you will get an 
error message when you press 
'Q'. Reenter the Debug monitor, 
reload the program, and load the 
progname. Type DEBUG, and 
use the M command to go to the 
memory locations previously 
discussed. Check everything 
carefully, and use 'F1 ' to get into 
the modify mode to fix any bugs. 
Then dump the program and try 
again. ■ 



TRS-80 Model II DEBUG Program 

3FD0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

3FE0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

3FF0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

4000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 , 

4010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 , 

4020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 , 

4030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

4040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

PC SP SZHPNC AF BC DE HL IX IY AF ' BC ' DE' HL ' 

2800 21FE 000000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
? P 

Fig. 3. 



TRS-80 Model II DEBUG Program 

3FD0 00 00 00 00 00 43 4F 4D 4D 41 4E 44 20 53 54 52 COMMAND STR 

3FE0 49 4E 47 20 20 54 48 45 4E 20 50 41 44 44 45 44 ING THEN PADDED 

3FF0 54 4F 20 20 48 45 52 45 21 D5 3F 06 23 3E 25 CF TO HEREl. ?.#>%. 

4000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

4010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

4020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

4030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

4040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

PC SP SZHPNC AF BC DE HL IX IY AF ' BC ' DE 1 HL ' 

2800 21FE 000000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
? P 

Fig. 4. 
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By Andrew P. Bartohllo 



A complete management tool for the home budget, this useful program helps keep track of your in- 
come and expenditures and provides an easy method of budget allocation. 

MONEY MANAGER answers the question, "Where does it all go?" by categorizing the outgo of your 
money in accounts that you design according to your needs. It provides a means of keeping complete 
and accurate records, including an itemization of your tax-deductible expenditures— you can imagine 
the time savings at tax time alone! 

You can store information on up to 100 checkbook entries per month (250 with 48K), specify any 
automatic withdrawals (such as automatic mortgage payments), keep a separate list of tax- 
deductibles, and record expenses by category. Checks payable to charge card companies and other 
lump payments may even be broken up to be placed into the proper individual categories. If you have 
a lineprinter, MONEY MANAGER will provide formatted printouts by category and time period. 

MONEY MANAGER requires a TRS-80* model I or III with a minimum of 32K and one disk drive. Order 
this time and money saver now for only $39.95. 



ACORN PROGRAMS ARE AVAILABLE AT FINE COMPUTER STORES EVERYWHERE 



LOST COLONY 




EVEREST 
EXPLORER 





By David Feitelberg 

It's the world's first deep space col- 
ony and you are the economic 
manager. A remarkable simulation, 
LOST COLONY arms you with 
maps and charts as tools for 
resource management. You assign 
human and robotic labor, explore 
new land, and set production 
quotas. At the same time you must 
determine equitable pay scales and 
taxes. 

Communicate through your model I 
or III using full sentences or short 
commands. A challenging game, it 
might give you insight into real life 
management as well. Available on 
16K tape or 32K disk for only $19.95 
each. 



By William Godwin & 
Don Knowlton 

EVEREST EXPLORER lets you 
challenge the world's highest 
mourtain without ever leaving 
home. You make all the decisions 
in this logistical simulation. 

You select the manpower, food, 
fuel, shelter and oxygen you need. 
Then manipulate your resources to 
outwit the elements and terrain, 
establishing ever higher encamp- 
ments. Will you reach Everest's 
29,028 foot summit— and return to 
tell about it? Just $19.95 for model I 
or III. Order on 16K tape, or the 32K 
disk version which includes a "save 
game" feature and other 
enhancements. 



By John Allen 

More features, thrills, and sound 
than even our famous PINBALL. 
With ASTROBALL in your TRS-80* 
model I or III the arrow keys 
become flipper buttons, the screen 
becomes the play board, and you 
become the "Pinball Wizard!" 

A flying saucer and moving space- 
ships add to the fun. Knocking out 
five meteors earns you an extra 
ball, while black holes swallow the 
ball in play. ASTROBALL's five skill 
levels will have all your family and 
friends lining up for the pinball ac- 
tion. Available on 16K tape or disk 
for just $19.95 each. 




(202) 544-4259 




Software Products, Inc. 

634 North Carolina Avenue, S.E., Washington, DC. 20003 



k-79 



'Trademark of Tandy Corp. 

ALL ACORN ENTERTAINMENT 

SOFTWARE SUPPLIED FOR 

TRS-80* MODELS I & III 

MAIL ORDERS: Include $2.00 shipping & handling 
(D C. residents add 6% sales tax). 
CHARGE CARD CUSTOMERS: Call (202) 544-4259 
for fastest service. 



,xSee List ol Advertisers on page 402 



80 Microcomputing, March 1982 • 335 



UTILITY 



Control the rate of your Basic interpreter. 



VariSpeed 



Bruce Evans 
17918 EKelby 
Covina, CA 91722 



Several programs for slowing 
down screen listings on the 
Level II TRS-80 reduce it to one 
slow speed or use the down ar- 
row key to scroll the screen one 
line at a time, like the Level I. 
I wanted a routine to slow the 
running, as well as the listing 
speed; also, I wanted several 
speed options. It seemed that if I 
could slow the Basic interpreter I 
could also slow down the listing. 

How It Works 

My program uses a delay rou- 
tine (see the Program Listing) 
patched into the keyboard scan; 
the keyboard is scanned con- 
stantly for a Shift @ to halt the 
running or listing. 



The Key Box 



Basic Level II 
Model I 



Ten variable speeds range 
from a delay of about four lines 
per second (normal speed) to 
about one line per two seconds. 
When you run your Basic pro- 
gram, the same amount of delay 
results between the interpreta- 
tion of each instruction. Shift 
Enter gives a Speed? message 
in the upper left corner of the 
screen. A single keystroke of 
0-9 slows down or speeds up 
the program or listing. 

Many times the Speed? mes- 
sage overwrites and ruins your 



display; when you hit the key of 
your choice, the display is 
restored. 

The program instructions are 
written to the screen as the tape 
loads into memory, and the pro- 
gram Auto Starts. The assem- 
bler version can be relocated to 
any spot in memory. 

Listing 1 was created with 
Radio Shack's Editor/Assem- 
bler; any assembler would do 
just as well. You may delete 
lines 120-370 as they only write 
instructions to the screen as the 



tape loads. Also delete line 430; 
this instruction waits for a key 
to be depressed before clearing 
the screen. 

To put exactly 64 characters 
on one line after a DEFM in- 
struction, make sure the second 
remark apostrophe appears ex- 
actly one space past the first 
apostrophe on the next line. 

This may not be an elegant 
program, but it is the first useful 
machine language program I 
have written. I must say I'm hap- 
py with the results.H 



Program Listing 



41E2 
41E2 E9 
3C00 
3C00 20 
1ST V 1.1 
3C40 20 
E EVANS 
3C80 20 

3CC0 54 



00130 
00140 
00150 
00160 

00170 

00180 



ORG 
DEFB 
ORG 
DEFM 

DEFM 

DEFM 

DEFM 



00190 

TO SLOW YOUR LIST OR SLOW YOUR 
3D00 50 00200 DEFM 

SPEEDS , FROM TO 9 , WITH BEING 
3D40 54 00210 DEFM 

BER FROM 1 THRU 9 SLOW THE COMPUTER 
3D80 44 00220 DEFM 

1/2 SECONDS PER LINE DURING A LIST 
3DC0 4F 00230 DEFM 

INSTRUCTIONS DURING A RUN OF YOUR 
3E00 50 00240 DEFM 



3E40 20 



00250 



DEFM 



3E80 20 00260 DEFM 

, JUST HIT SHIFT ENTER , YOU WILL 
3EC0 53 00270 DEFM 

3F00 4E 00280 DEFM 
PONDING TO THE SPEED YOU WISH . 
3F40 20 00290 DEFM 
PEED IS , AND EACH HIGHER NUMBER IS 
3F80 41 00300 DEFM 

7EF5 00310 ORG 



41E2H 

233 

3C00H 

SLOW L 

BRUC 

THIS PROGRAM WILL ALLOW YOU 
PROGRAM . YOU ARE ALLOWED 1 
THE NORMAL SPEED . EACH NUM 
DOWN IN INCREMENTS OF ABOUT 
OR THE SAME AMOUNT BETWEEN 
PROGRAM . 

TO INVOKE THE SLOW UTILITY 
SEE SPEED ? 

NOW ENTER THE NUMBER CORRES 

JUST REMEMBER THE NORMAL S 



A SLOWER SPEED. 
32501 



Program continues 



336 • 80 Microcomputing, March 1982 



Program continued 

7EF5 ••210&7F 
7EF8 221640 

7EFB 21E241 
7EFE 36C9 
7F00 CD4900 
7F03 CDC901 
7F86 C3191A 
7F09 CD647F 
7F0C CDE303 
7F0F B7 
7F10 C8 
7F11 4F 
7F12 3A8038 
7F15 B7 
7F16 79 
7F17 C8 
7F18 FE0D 
7F1A 21003C 
7F1D 117E7F 
7F20 010800 
7F23 EDB0 
7F25 C0 
7F26 2A2040 
7F29 227C7F 
7F2C 212040 
7F2F 3600 
7F31 23 
7F32 363C 
7F34 21727F 
7F37 CDA728 
7F3A CD4900 
7F3D 217E7F 
7F40 11003C 
7F43 010800 
7F46 EDB0 
7F48 21867F 
7F4B 010A00 
7F4E EDB1 
7F50 C0 
7F51 010900 
7F54 09 
7F55 7E 
7F56 327A7F 
7F59 2A7C7F 
7F5C 222040 
7F5F AF 
7F60 CD647F 
7F63 C9 
7F64 F5 
7F65 C5 
7F66 3A7A7F 
7F69 47 
7F6A 0E01 
7F6C CD6000 
7F6F CI 
7F7 Fl 
7F71 C9 



00320 

00330 

00340 

00342 

00360 

00370 

00380 

00390 ROUT 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00482 

00483 

00484 

00485 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00581 

00582 

00583 

00584 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00685 

00690 

0700 

0710 DELAY 

00720 

00730 

00740 

00750 

00760 

00770 

007 80 

00790 



ID 

LD 

LD 

LD 

CALL 

CALL 

JP 

CALL, 

CALL 

OR 

RET 

LD 

LD 

OR 

LD 

RET 

CP 

LD 

LD 

LD 

LDIR 

RET 

LD 

LD 

LD 

LD 

I NC 

LD 

LD 

CALL 

CALL 

LD 

LD 

LD 

LDIR 

LD 

LD 

CPIR 

RET 

LD 

ADD 

LD 

LD 

LD 

LD 

XOR 

CALL 

RET 

PUSH 

PUSH 

LD 

LD 

LD 

CALL 

POP 

POP 

RET 



HL,ROUT 

(4016H) ,HL 

HL,41E2H 

(HL) ,201 

4 9H 

1C9H 

1A19H 

DELAY 

3E3H 

A 

Z 

C,A 

A,(3880H) 

A 

A , C 

Z 

13 

HL,3C00H 

DE,BUFF 

BC,8 

NZ 

HL,(4020H) 
(CURSOR) ,HL 
HL,4020H 
(HL) ,00H 
HL 

(HL) ,3CH 
HL,MSG 
28A7H 
49H 

HL,BUFF 
DE,3C00H 
BC,8 

HL r TAB 
BC,10 

NZ 
BC, 9 

HL,BC 
A, (HL) 
(COUNT) ,A 
HL, (CURSOR) 
(4020H) ,HL 
A 
DELAY 

AF 

BC 

A, (COUNT) 

B r A 

C,01H 

6 011 

BC 

AF 



FREEDOM TECHNOLOGY INTERNATIONAL, INC. 

The International Computer Enhancement Distributor and 

Developer, is pleased to announce that it has obtained the 

worldwide distribution rights for the Freedom Option Hardware 

Enhancement and the powerful Operating Systems (T60S) which 

were developed by Field Engineering Consultants, Ltd. 
These exciting microcomputer enhancement packages permit the 
use of CP/M Program Applications on TRS-80 Model I and Model III, 

PMC 80 and 81 and LNW 80 Systems. 

Also available for the Model I and Model III ore the Freedom Plus 

Options which expand 48K Systems to 64K RAM. 

For further information on how to order, please 
write« 

FREEDOM TECHNOLOGY INTERNATIONAL, 

INC. 

119 North 18th Street 

Philadelphia, PA 19103 

215-569-2381 

Watch for our display ad in the April issue of 

80 Microcomputing. 



Dealer inquiries invited. 

CP/M is a trademark of Digital Research 

TRS-60 Model I and Model III ore trademarks of Radio Shock/Tandy Corp. 

PMC 60 and 81 are trademarks of Personal Micro Computers. Inc. 

LNW 60 is a trademark of LNW Research Corp. .-240 
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ACTION 



The fastest growing producer of computer games for 
your 6809 has the products you have waited for!! 



ARCADE GAMES FOR 
THE COLOR COMPUTER 
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Fast paced action • Super Hi-Res Graphics 
Dynamite sound effects • Runs in 16K of mem 



They set a standard for others to follow. 



— ADVENTURES — 

Calixto Island «<Xlic Slack Sanctum 

Highly acclaimed by reviewers • Challenging situations 

Fast, efficient machine language • Runs in 16K of memory 

Save game in progress 



ea S24 95 
. . . S39 95 
ea $19 95 
ea "S24.95 
ea.S24 95 



Adventures on 5' . TSC FLEX disc (specify 6800 or 6809) 

Bom adventures on single disc 

Adventures lor color computer 

Color Berserk tor color computer 

Cave Hunter tor color computer 

Snippea Diepaid in comi^enlai U S Galilotm* resident* please add 6** 



- MORE COMING SOON 

>.-241 



MARK DATA PRODUCTS 

23802 Barquilla, Mission Viejo, CA 92691 • (714) 7 

TRS 60 IS A TRADEMARK OF TANDY CORP. 



sSee List ol Advertisers on page 402 
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by Dennis Kitsz 



The first microcomputer users consid- 
ered the advent of cassette storage a 
luxury, since programs hundreds of bytes 
long previously had to be entered by hand 
from switches and lights on a front panel. 
Then along came machines like the 
TRS-80, with cassette and a four-disk op- 
tion as well. Finally, there is the Color 
Computer, with cassette and disk— and 
entire programs that plug into the side of 
the machine. This month the subject is 
those Color Computer ROM packs: what 
they are, and how to make your own. 

First of all, ROM packs are easy and 
cheap. If they weren't, Radio Shack 
wouldn't sell them for 30 bucks each. If 
you pop one open you'll find a small 
printed circuit board with one or two in- 
tegrated circuits on it. Maybe a pair of tiny 
capacitors. That's all. In fact, they are 
made up of exactly the same electronic 
components as Color Basic and Extended 
Color Basic, that is, read-only-memories 
(ROMs). 

Last month's Applications covered 
quite a bit of computer jargon, so this time 
I'll make the dangerous assumption that 
you all read it, and jump right in with a 
description. The edge card of the Color 
Computer provides a complete bank of 
signals produced or used by the proces- 
sor, plus a few specially created ones. 
Two of these special signals are essential 
for operating ROM packs: CTS* (cartridge 
select) and CART* (cartridge interrupt). 

What is CTS* and what makes it impor- 
tant? If you leaf through computer maga- 
zines, you'll find a lot of talk about 
memory address decoding, which is the 
process of electronically assigning a 
group of memory locations to some spe- 
cific device or a given block of random- 
access memory (RAM) or ROM. The Color 
Computer's memory map is broken into 
four such major blocks: 32K RAM in- 
cluding memory for Basic operation, 
video memory, and user memory from 
0000 to 7FFF hex (0 to 32767 decimal); the 
two Basic ROMs from 8000 to BFFF hex 
(32768 to 49151); space for the external 
cartridge ROMs from C000 to FEFF (49152 
to 65279); and internal locations for 
keyboard, cassette, serial input/output, 
and so on, from FF00 to FFFF (65280 to 
65535). 



Decoding the cartridge block might be 
complicated. It demands the selection 
(activation) of the external cartridge for all 
memory addresses starting at C000— a 



nice even number— but ending at FEFF, 
slightly less than the memory position 
at which a 16K block would normally end 
(at FFFF). This kind of irregular mapping, 



AI2 
CTS 

CART 

GND 



U 



(2KJMCM68BI6 
(4K1MCM68B32 
(6K) 
(8K1MCM68B64 



, 



(6K) MCM68BI6 



Fig. 1. Radio Shack arrangement for2K, 4K, 6K, or 8K ROM cartridges. MCM68B series 
ROMs are fast factory-programmed memories manufactured by Motorola. 
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used for disk, printer, cassettes, and so 
forth on the Model I, was an electronic 
nightmare. But on the Color Computer, 
CTS* does that work. It is a signal output 
created by the computer which is active 
when the CPU wants any address from 
C000 up to FEFF (but not beyond). 

The second cartridge signal is CART*; 
it is an input to the computer. When 
CART* is shorted to ground— which hap- 
pens whenever a Radio Shack cartridge is 
inserted— the CPU is interrupted from its 
normal operation, and forced to jump to 
the address of the external cartridge and 
begin executing the program found there. 
It's a neat trick. Plug in a cartridge, power 
up the computer, and instantly you have 
something other than Basic— a game, 
another language, a monitor, an 
assembler, or just a simple utility program 
of some kind. 

But there's a bonus. Recall, I mentioned 
that memory mapped addresses can be 
for ROM, peripheral devices, or RAM. 
Which means adding static RAM is as 
easy as adding a "ROM" pack. And 
almost as easy is adding an extra parallel 
input/output port or two. 

One from Column A, Two from Column B 

Several variations can be selected for 
adding memory in this cartridge area. Fig- 
ure 1 shows how Radio Shack chose to do 
it. Using factory-programmed read-only- 
memories, they have connected these 
devices directly to the address and data 
lines coming from the central processing 
unit (CPU) in the computer. The sockets in 
the cartridge can accommodate two in- 
tegrated circuits, which can be arranged 
in combinations of one MCM68B16 (2K) 
alone, one MCM68B32 (4K) alone, one 
MCM68B32 paired with one MCM68B16 in 
the second socket (6K), or one MCM68B64 
(8K) alone. One or two capacitors keeps 
the electronic noise level down. 

This method has the advantage of ex- 
treme simplicity— the use of only two 
electronic components lowers both cost 
and power demand. But the arrangement 
also has a disadvantage. Because no ad- 
ditional electronic logic was put in place, 
the full 16K addressing available from the 
CTS* signal is not used. 8K is the max- 
imum memory space used. (Don't get me 
wrong; that's lots of space. After all, the 
entire Color Basic fits in 8K of ROM). 

From the point of view of a Color Com- 
puter user attempting to create an exten- 
sive ROM cartridge add-on, however, 
Radio Shack's simple method is virtually 
impossible. That's because most home 
computer owners can't order the mini- 
mum 1,000 factory-programmed ROMs at 
a time. Instead, individual users must ob- 
tain memories that they can program at 



I BOUGHT IT 

My biggest loss 
of programming 
time using 
Snappware's 
EXTENDED BASIC 
is spent 
inserting 
my diskette." 

SCOTT ADAMS - PRES. OF ADVENTURE INTL 



Reduce your programming time significantly with Snappware's EXTENDED 
BASIC. The program is written entirely in machine language for super fast 
execution and is fully integrated into the TRSDOS* BASIC interpreter, re- 
quiring no user memory. Here are just some of the ways EXTENDED 
BASIC can make your programming task easier: 

• Quick way to recover BASIC program following a New, Sys +Qm 
or Accidental re-boot. 

• Single character abbreviations for the most frequently us 
commands. 

• Six single key stroke commands to list the first, last, previ 
next or current program line. Even edit current line. 
A powerful cross-reference facility with output to di: 
and/or printer. 

'Ability to trace a variable through the code 
1 Determine easily if a variable is in us'~ 

• Permits programmer to display an J ' 
program variables. 
Identifies the variable type for all v 
Lists each element of any array separ 

- Program line renumbering facilities allowing foi 

an upper limit of the block of lines to be renumb 

of renumbered blocks of code and duplication of blocks of code. 

» Cross reference facility for key words and character strings including 
global replacement of key works. 

• Compresses your BASIC program to an absolute minimum by remov- 
ing extraneous information 
Merge lines. 
Deletes statements that could nc 



'er your programming tiiru 
how to qet more of it. 



MODEL II 



Time saving power 
at your fingertip 

CALL TOLL FREE: 

1-800-543-4 

OHIO RESIDENTS C 
COLLECT: (513) 891- 
3719 Mantell 

Cinti., Ohio 45236 
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home, or which can be programmed in 
single quantities by mail order services. 
These are erasable, programmable, read- 
only-memories (EPROMs). 

Figure 2 presents the simplest equiva- 
lent of the Radio Shack design. Four inex- 
pensive 2716 EPROMs are hung onto the 
address and data lines, and selected in 2K 
increments by the 74LS138 demultiplexer. 
Whoa, you say, what's this demultiplexer 
and how did it get in the circuit? 

As I mentioned, Radio Shack's ROM 
packs use different size ROMs for differ- 
ent program memory requirements. Al- 
though EPROM equivalents for these 
ROMs are available, they can be quite ex- 
pensive— $20 or better for the 4K 2732 and 
$50 for the 8K 2764. At only $5 a pop, the 
2K 2716 is well worth the trouble of adding 
an extra 50-cent integrated circuit like a 
74LS138. 

Next question: What does the demulti- 
plexer do? Addresses through 10 can se- 



lect 2,048 (2K) different memory locations. 
Including address 11 increases the selec- 
tion to 4K locations, adding address 12 in- 
creases it to 8K, and using address 13 in- 
creases the possibilities to 16K. In this de- 
sign, the lower-numbered addresses 
through 10 are used by the 2716 EPROM 
for actual memory location selection. 



The demultiplexer (Z1 in Fig. 2, type 
74LS138) accepts three binary inputs and 
produces only one active signal for each 
unique combination. Therefore, since ad-. 
dresses A11, A12and A13are fed to its in- 
puts, then eight individual block select 
signals are derived at its outputs. . .each 
one representing a single 2K block of 



. . most home computer owners can't order 
the minimum 1000 factory- 
programmed ROMs at a time." 



That means addresses 11, 12 and 13 can 
be thought of as "block selection" tools 
rather than mere memory address- 
es— A1 1 selects two blocks containing A0 
to A10; A1 2 selects two blocks of A1 1 ; and 
A13 selects two blocks of A12; for a total 
of 8 blocks. 
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R / W 
CART 

GND 



/ 



l'6 U 



J 



COOO-C7FF (ROM 0) 



C800-CFFF (ROM I) 
DOOO-D7FF (ROM 2) 
D800 -DFFF (ROM 3) 

POSSIBLE BUT 

> NOT REC0MMEN0EC 
(SEE TEXT) 



Z2-Z5 
27I6 OR 



VCC 



Vpp(ROM) 
R/W (RAMI 
GND 



Fig. 2. ROM cartridge arrangement using four 2716 EPROMs. Although eight EPROMs 
can theoretically be connected, the load on the CPU would be too high. 



memory— the size of a 2716 EPROM. 

Watching Out for Overdrive 

Notice, however, that four of the de- 
multiplexed outputs from Z1 in Fig. 2 are 
marked "possible but not recommended." 
This is so because digital integrated cir- 
cuits can only drive (feed reliable signals 
to) a limited number of other integrated 
circuits in the same family. This limitation 
is called a device's "fan-out" (one com- 
pany prefers to call it "family rules of 
incest"). 

The CPU in the Color Computer is al- 
ready pushing a couple of Basic ROMs 
and some other circuits, and because of 
its limited fan-out, it's unwise to ask it to 
drive more than two or three ICs. Four 
2716 EPROMs are just about as much as 
can be added without the computer opera- 
tion becoming unreliable. So if you use 
the design in Fig. 2, don't attempt to con- 
nect more than four 2716's. 

However, there is a way to make all 16K 
of this cartridge address space available 
safely; it is shown in Fig. 3. In this design, 
the CPU is asked to drive only one set of 
extra integrated circuits. These are known 
as buffers, and their job here is to extend 
the fan-out of the CPU. They transmit the 
same signals to many more circuits than 
the CPU can do alone. 

Two of the buffers (74LS244s, Z1 and 
Z2) are the one-way streets. That is, the ad- 
dress signals are always sent from the 
CPU to receiving devices. However, the 
data bus is different in that it is both read 
from and written to by the CPU— it is 
bidirectional. Z3 is a 74LS245 bidirectional 
bus transceiver (phew!), meaning it is able 
to receive signals from the left and send 
them out the right, or vice versa, depend- 
ing on whether the send/receive (S/R) sig- 
nal on pin 1 is high or low. This is how it is 
used here: By hooking up the computer's 
read/write (R/W) signal to the bus 
transceiver's send/receive (S/R) input, and 
by connecting the bus transceiver's chip- 
enable (CE) input to the computer's car- 
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tridge select (CTS*) signal, the 74LS245 
will transmit data from the ROMs to the 
computer only when the computer issues 
a "read from cartridge," and will transmit 
data from the computer to the ROMs only 
when the computer issues a "write to car- 
tridge." 

The 74LS138 demultiplexer is used in 
exactly the same way as in Fig. 2, except 
that this time all eight 2716's can be hook- 
ed into its memory selection circuitry 
without problems. The power consumed 
is low (well under 200 mA) since only one 
2716 is enabled at full power at a time. 

Hidden Feature 

There is an additional advantage to this 
circuitry not immediately obvious 
because I've been talking about "ROM" 
packs. The electronics industry has 
developed a 2K RAM which is pin-for-pin 
compatible with the 2716 EPROM. These 
RAMs (known variously as 21 R1, 6116, or 
2118) can be interchanged with the ROMs 
in this circuit merely by putting them into 
the same sockets. The circuitry in either 
Fig. 2 or Fig. 3 can be used without altera- 
tion, since pin 21 is used as a program- 
ming pin for the ROMs, and as a memory 
read/write pin for the RAMs. In fact, using 
November's 32K dynamic RAM piggyback 
together with a ROM pack filled with 
RAMs, you can have a Color Computer 
with Extended Basic and 48K memory. 



". . . But if all that RAM 

isn't your style, you 

still have two 

other approaches. . . " 



But if all that RAM isn't your style, you 
still have two other approaches to ease 
the wiring complexity in putting together 
Color Computer ROM packs. By the time 
you read this, the price of 4K 2732 in- 
tegrated circuits may have dropped con- 
siderably, making them practical to use in 
home-built ROM packs. Figure 4 shows 
the changes necessary to use 2732 
EPROMs. Pin 21 is now address line 11, 
and a 74LS139 demultiplexer is used in 
conjunction with addresses 12 and 13 to 
produce four 4K block memory select 
signals. Since pin-compatible RAMs do 
not exist, the RD/WR* line from the com- 
puter (pin 18) is routed to Z3 and to the 
ROMs pin 18 (chip enable). 

Finally, simplest of all is Fig. 5, again 
using four 2732 EPROMs. Since the CPU 
can push four devices without too much 
overexertion, the buffers and bus 



"I BOUGHT IT" 

"My biggest loss 
of programming 
time using 
Snappware's 
EXTENDED BUILT IN 
FUNCTIONS is 
spent inserting 
my diskette." 

SCOTT ADAMS - PRES OF ADVENTURE INTL 
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uuu.i of much 
RSDOS* BASIC interpreter which greatly ex- 
tends its convenience and utility. The following features become part of 
your BASIC language and provide the enhancements without requiring 
any additional memory. The most important component of EXTENDED 
BUILT IN FUNCTIONS is an in-memory sort routine, guaranteed to be the 
fastest general purpose in-memory sort on the market. Along with this 
you also receive other EXTENDED BUILT IN FUNCTIONS. Here is a 
sampling: 

SRT— Sorts one or more arrays into a specified sequence 
FMT— Arranges data into a string variable as with PRINT I 
PDAT/UDAT$— Permits user to do arithmetic on dates. . 
PK$/UPK$— Compresses strings to save disk space. 
ETIM$— Shows the difference between two times. 
CLEAR— Specifies the number of file blocks to be allocati 
you specify high memory and string space. 
DELETE 






program. 

In addition to these, there are functions unique to Ml 

III. The exclusives to Model II are long error messages ; 

The exclusives to Model III are: 

SWAP— Supports exchange of variables with a single $u. 

HEX$— Converts numbers to hexadecimal strings. 

RESTORE— Allows you to set READ pointer to location of choice. 

If you consider your programming time to be worth money, call us and let 

us show you how to get more of it. ">£*« 

MODEL II $100.00 

MODEL III $75.00 
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**CONNECT FOR AUTOMATIC JUMP TO 
CARTRIDGE 
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OR 

RAM 2IRI 



Vpp (ROM) 
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D7 
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Fig. 3. Full ROM cartridge design to use up to eight 2716 EPROMs. Address lines are buffered and a 
bidirectional bus transceiver is used for data. 
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transceivers are eliminated, leaving only 
the 74LS139 demultiplexer and the ROMs 
themselves. 

Construction Notes 

Building the ROM packs is straightfor- 
ward; be sure to use 350 nS 2716's (type 
2716-1 or 27A16) for greatest reliability. 
Point-to-point wiring or wire-wrapping can 




Start with an inexpensive 8-track car- 
tridge. . . 




Photo 1.. . Jam a small screwdriver into 
the four or five holes on the bottom to 
push back the locking posts. . . 



"I BOUGHT IT" 

"My biggest loss 
of programming 
time using 
Snappware's 
AUTO MAP and 
AUTOFILE is 
spent inserting 
my diskette." 

SCOTT ADAMS - PHES OF ADVENTURE INTL. 



Autofile is designed to automate for the BASIC programmer the task of 
moving data elements to and from a direct file. Previously, this was a 
time consuming chore because the FIELDed variables may not be directly 
referenced by user logic. The FIELD statement was eliminated, thereby 
relieving you of the guessing game as to where the FIELDed variable is. 
In addition, the LSET and the CVx functions are performed automatically. 
The software, when installed, becomes part of your BASIC interpreter 
providing the enhancements without additional memory. 
Automap is designed to automate for the BASIC programmer the task of 
presenting information on the video display and accepting information 
from the keyboard operator. The software consists of two main compo- 
nents: the OFF-LINE COMPONENT used to describe to the system the 
screen formats and the ON-LINE COMPONENT from within your BASIC 
program to initialize a screen, send data to the video display and receive 
data from the keyboard operator. This facility when installed, becomes 
part of your BASIC interpreter. 

Both products complement one 
save a significant amount of progra 

If you consider your programmi 



le MODEL II 
MODEL III . 



$ 75.00 

$ 60.00 




at your fingertips. 

CALL TOLL FREE: 

1-800-543-* 

OHIO RESIDENTS CAL 
COLLECT: (513) 891-449 
3719Mantell 
Cinti., Ohio 45236 
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ATK5NS 




Photo 2. . . . carefully separate the top and 
bottom halves of the shell. . . 



A 12 
AI3 
R/W 



Z2 
74LS244 



GNO Gl G? 



Z3 

74LS245 



be used successfully, and overpriced 
edge connector cables can be obtained 
from Exatron (181 Commercial Street, 
Sunnyvale, CA 94086) or Alpha Products 
(85-71 79th Street, Woodhaven, NY 1 1421). 
The noise level is low enough that simple 
0.1-mF bypass capacitors connected from 
+ 5 volts to ground near each EPROM will 
be satisfactory. All interconnections are 
quite parallel, and are visually easy to 
make. No matter what method you 
employ, use sockets for the EPROMs. 



and EPROM programming are available 
from MSB electronics (Drawer 766, Barre, 
VT 05641). The layouts, by the way, are 
based on the public-domain PC artwork 
published in "Application of Intel's 5V 
EPROM Family of Microprocessor Sys- 
tems," Application Note AP-72, available 
from Intel Corporation, 3065 Bowers 
Avenue, Santa Clara, CA 95051. So if you 
want to go ahead with your own design, 
get a copy of this publication note to ease 
the way. 



" 'Gold Plug 80' is a terrific cure for most 
Model I edge connector problems. " 



I suggest that you follow Radio Shack's 
ingenious lead, and shorten or tape partly 
over the 5-volt power pin (pin 9) so that, in 
case you insert the ROM pack with the 
power on, all the proper connections are 
made before power hits the EPROMs. 
Kudos to the Shack for that idea. 

Double-sided printed circuit layouts for 
the 4-ROM 2716 version will be published 
next month for those who can wait. For 
those who can't, cartridge packs, kits, 
cases, integrated circuits, blank EPROMs, 



TO ROMS 


A8 


Z5-Z8 


TO ROMS 


A9 


2732 


TO ROMS 


AIO 




TO ROMS 


All (PIN 2D 





Z4 

74LSI39 



VCC 



J 



COOO-CFFF (ROM 
DOOO-DFFF (ROM 
EOOO-EFFF (ROM 
FOOO-FEFF (ROM 



0) 



ROMS 
> PIN 20 



ROMS 
•PW 18 
(CE) 



Fig. 4. Changes necessary to employ the ROM cartridge design presented in Fig. 3 with 
2732 EPROMs. Four 2732s are used in this scheme. 



If the interest is high enough, I'll also 
publish plans for a Color Computer 
EPROM programmer, and a dynamic RAM 
addition for the cartridge area. Drop a 
post card— no letters on this one, please. 

Cartridges 

When you complete the project, you'll 
probably want a housing for it— and what 
better kind than a real cartridge? 
Although Radio Shack's ROM packs 



TNI 




Photo 3. 
innards. . 



. . carelessly dump out the 
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come in stubby little cartridges, an actual 
8-track cartridge with the tape removed 
and plastic parts clipped out makes a fine 
housing, preventing shorts, and (with a lit- 
tle imagination) providing a professional 
ROM-pack look. Press-on lettering for 
your program's name (and the author's 
name— yours) plus a good eye for design 
can certainly be impressive. Fool every- 
body! (Speaking of which, can you guess 
what next month is. . .?) 

Photos 1-5 show the first steps in con- 
verting a cheap 8-track cartridge to your 
own ROM pack. Actual mounting of the 
printed circuit board, plus cares and cau- 
tions, will be covered, together with the 
double-sided PC board itself, next time. 

Updates 

I ran into an interesting dilemma while 
using the Color Computer— a very regular 
random number sequence appeared, re- 
peating every nth number, where n was 
the operand in RND(N). NEW, CLEAR and 
editing the program had no effect. Power- 
down did, naturally, but it has occasional- 
ly recurred. I couldn't find any solution in 
the technical information, nor from Fort 
Worth (yes, I too am just one of thousands 
to them). Can readers suggest a simple 
way to reseed the random number 
function? 

It's-about-time department: "Gold Plug 
80" is a terrific cure for most edge connec- 
tor problems in the Model I. This com- 
pletely new gold edge connector solders 
directly to the old one. Two problems, 
though. First, the little grey door won't go 
back on (big deal). The second is a trifle 
more serious: The Gold Plug 80 is a 
Kel/Am brand connector which will not 
mate successfully with AP Products con- 




Photo 4. . . . snip off all the plastic protru- 
sions except the four locking posts (see 
Photo 1). . . 



"I BOUGHT IT" 

"My biggest loss 
of programming 
time using 
Snappware's 
COLLEGE EDUCATED 
GARBAGE COLLECTOR 
is spent inserting 
my diskette." 

SCOTT ADAMS - PRES. OF ADVENTURE INTL. 
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intelli; 

typical u> 

Microsoft uses a 'variable length string' if 

time the string is assigned a new value, it 

Periodically the string pool must be reorganized and condensed into a 

single contiguous area. Performing this string space reclamation is time 

consuming and inefficient because this approach evaluates and collects 

each string individually. The time required is roughly proportional to the 

square of the number of active strings in the resident program. During 



lurewauiHKia 



the operator until the process is complet 

This time consuming approach requires a better solution. Snappware has 
developed a solution which takes advantage of the auxiliary memory 
available. SNAPP-VI requires only four bytes per active string as a work 
area. When free storage space is available, our system temporarily bor- 
rows, uses and returns the space to the free storage pool when com- 
pleted. If storage is not available, our system will temporarily transfer out 
to disk enough of the BASIC program to make room for our work area and 
return the 'paged out' information to its correct location when completed. 
Benchmarked times show, in some situations, SNAPP-VI performs ore' - 
hundred times as fast r- ,h " ' ' ; — - ! — - <• 
If you consider your p 
us show you how to c 
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■See Lisl ol Advertisers on page 402 
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at your tinge 

CALL TOLL FREE: 

1-800-543- 

OHIO RESIDENTS I 
COLLECT: (513) 891 
3719 Mantell . 
Cinti, Ohio 45236! 
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nectors. However, it will work with the 
T&B Ansley brand sold by Radio Shack. 
So replace any edge connectors that 
won't fit with Radio Shack connectors, 



though disk manufacturers wag their 
fingers, saying only disks specifically 
manufactured for double-sided use 
should be used that way. 



"/ wonder if 80 Microcomputing authors 

and readers ever believed they 

were contributing to a 

weakening of U.S. international power?" 



but definitely get the Gold Plug 80 ($19 a 
pair, also available singly for any connec- 
tors, including RS-232, printer, disk, and 
so on) from EAP Co., P.O. Box 14, Keller, 
TX 76248, (817) 498-4242. If you can solder, 
you can install it in a half-hour. 

Another interesting item is sold by ABS 
Suppliers, P.O. Box 8297, 3352 Chelsea 
Circle, Ann Arbor, Ml 48104, (313) 971- 
1404. If you've ever fought with scissors 
and rulers trying to turn your single-sided 
disks into double-sided ones, ABS has a 
plastic template which aligns the holes 
properly so you can mark them for punch- 
ing. It's $5 for a few square inches of plas- 
tic and a sheet of documentation, but it 
costs about the same as a disk— meaning 
it pays for itself the first time you use it 
successfully. As a registered cheap- 
skate, I'll recommend this item even 




Photo 5. . . . and you've got an empty shell 
for your ROM pack all ready for a profes- 
sional-looking label! 



Quick note to manufacturers and read 
ers: If I use it or install it and like it, I'll rec- 
ommend it here. If I passively don't like it, 
I'll ignore it. If I actively don't like it, I'll say 
so. Criteria explained. 

Recent news: In an address to the Am- 
erican Association for the Advancement 
of Science, a leading military advisor to 



the CIA and the administration an- 
nounced that the CIA hopes, in the inter- 
est of national security, to examine and 
prevent publication of technical articles. it 
feels will be of assistance to nations con- 
sidered enemies of the United States. He 
stated that advances in computer science 
in the Soviet Union are of particular 
danger, and can be traced directly to the 
free flow of information in U.S. technical 
publications. Furthermore, no reasons 
would be given for removing articles from 
publication, because such explanations 
would be security risks in themselves. I 
wonder if 80 Microcomputing authors and 
readers ever believed they were contribut- 
ing to a weakening of U.S. international 
power? ■ 

Next month: conclusion of Color Com- 
puter ROM packs, plus a special on bab- 
ble memory. 
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Fig. 5. Alternate method of using four 2732 EPROMs. It is similar to Fig. 2 in that buffer- 
ing can be eliminated since only four additional devices will be connected to the CPU. 
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Your Near 



MICRO-80 
284 Goodwood f 
Clarence Park 
Adelaide South Ai 
Ph-(08) 2117224 

DIGI-TEK SYSTEMS 
65 Thornridge Circle 
Kitchener Ontario N2M-4V9 
Ph-(519) 742-8205 

Strawflower Electronics 
50 North Cabrillo 
Half Moon Bay 
California 94019 
Ph-(415) 726-9128 

COMPUTER MAGIC 
115 Wiltshire Avenue 
Louisville, Kentucky 40207 
Ph-(502) 893-9334 

E-CDATA 
Tornevangsvej 8 
P.O.B. 116 
DK-3460 

Birkerod, Denmark 
Ph + 45/2/81 81 91 

SystemSoft 



Rise Park 

Nottingham, Englai ._ 
NG5 5Dx 
Ph-(0602) 275559 

rams Unlimited 
20 Jericho Tpke. 
Jericho, Long Island, 
New York 11753 
Ph-(516) 333-2266 

AEROCOMP 
Redbird Airport 
Hanger 8 
Dallas, Texas 75 
Ph.-(214) 339-5H 







ware knows your programming time is valuable. That' 
offering a trial package that will cut your programming time up to 75%! 

This unprecedented offer allows you to judge for yourself the value of our 
sottware using your hardware at your convenience. Our five best selling 
products: EXTENDED BASIC, EXTENDED BUILT IN FUNCTIONS, COLLEGE 
EDUCATED GARBAGE COLLECTOR, AUTOMAP and AUTOFILE, are all 
available to you on a trial basis for only $50.00 for the Model II and 
$35.00 for the Model III. We're convinced that after you see how well our 
software helps you perform programming tasks, you will purchase them 
m° thousands of others have. 

ir trial package consists of a master diskette 
ate one working copy. Your purchase price for ti. 
redited toward the purchase of any software Snappware sells. 

If for any reason you are not satisfied, just return the trial diskette and 
vorking copy and we will refund your money, no questions asked. With 
in unconditional guarantee like this, you can't lor~ 

!al1 our toll free number 800-543-4628 to put us on trii. 
?rdict will be: Snappware saves you time and mone* 



MODEL II Trial Package $50.00 

MODEL III Trial Package $35.00 



at your f inge. 

CALL TOLL FREE: 

1-800-543- 

OHIO RESIDENTS CAI 
COLLECT: (513) 891-44 
3719 Mantell 
Cinti., Ohio 45236 



sSee List of Advertisers on page 402 



80 Microcomputing, March 1982 • 347 



MEMOREX 

rUDUBLB DISCS 



WE WILL NOT BE UNDER- 
SOLD!! Call Free (800)235-4137 

for prices and information. Dealer 
inquines invited and C.O.D.'s 
accepted 




PACIFIC 
EXCHANGES 

100 Foothill Blvd. 
San Luis Obispo CA 
93401 In Gal. call 
(800)592-5935 or 
,(805)543-1037 

^207 



SEND AND RECEIVE 

MORSE CODE 

•SEND UP TO 40 WPM 
•COPY OVER 100 WPM 

Your Model I or III becomes a pro- 
grammable keyboard keyer that can 
send morse from the keyboard or 
from stored messages. Keying is done 
either by the relay or by the audio 
output. Received morse is decoded, 
displayed, stored and printed. The 
cassette earphone plug connects to 
the receiver speaker to copy off the 
air. No hardware except patch cords 
Is required for many setups. 

satisfaction guaranteed 

Cassette with instruction booklet 
only $19.95 postpaid. Model I or III, 
LEVEL II, with at least 16k required. 

ROGO Computer Products 
4752 DeBeers Drive 
El Paso, Texas 79924 ^343 



MANUFACTURING CONTROL SYSTEMS 



MICS module - Manufacturing Inventory Control 
15 reports for inventory, purchasing, and stock- 
room control. "Reserved" parts feature. 

BOMP module - Bill of Materials Processor 

!cr "complex product" control o{ inventory. 

SHOC module- Manufacturing Shop Order Control 
Order scheduling and backlog/shipment reporting. 

LABP module- Labor Collection/Performance Reptg 
Daily, weekly, and monthly labor reporting by . 
employee, job and overhead accounts, and depart- 
ment and operation. Actual job costing reports. 

JCST module- Manufacturing job cost reporting 
Job status and completion reporting with perfor- 
mance to standards. Variance reporting. Overhead 

determination monthly and year-to-datc . 

All modules for Models I and III, 32K minimum 
systems. Master menu driven - full operator 
prompted. Expandable to fit your growth needs. 

Model I modules from $295, Model III from $345 

Send for catalog of ELTBC business modules 

ELTECH Associates 

Specialists in manufacturing business systems 
2466 Moreno Drive, Los Angeles, Ca 00039 

(213) 663-0347 ^-344 



BUSINESS & 
PLEASURE SOFTWARE 

FOR TRS-80™toOD. I & III 

INCOME TAX ESTIMATES 8K 
No tables to look up. Pro- 
gram does It all. $19.95 

MAIL LIST (disk) 32K 22.95 

INCOME/DEDUCTIONS & 

MILEAGE FILE 8K 10.95 

STOCK CHARTING 8K 15.95 

FINANCIAL STATEMENT 16K 14.95 

$J "THE WIZARD'S CITY" }&> 
A Fantasy Adventure Game12.95 
Add $4 for disk except Mail List 
Add $1.50 shipping 

BAP$ Software 201 

6011 San Felipe 

Houston, TX 77057, 713/683-1426 

'RS-mo is a >eg. trademark of Tandy Corp. 



MODEL I UTILITY PROGRAMS 

-Command Sequencer- editor, all 

'80 commands plus More. 
-Word Processor Patch- 17 new 
functions for RS program. 
-Tape Utility- 
-Password Utility- 
-Purge Utility- 
-System Save Utility- 
-Juke Box Program- 
-Control Key Programs- 
All programs $23 plus $2 P +H 
per order. Send for details to: 
Clockwork Software 

P.O.B. 704 

Colorado Springs, CO 

80901 
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BARGAIN BYTEBARGAINBYTEBARGAINBYTEBARGAIN 

CC CO 

< 3 

j? BARGAIN PRICE PROGRAMS g 

£ FOR TRS-80*! | 

| On tape for Model I and Model > 

x III 16K Lll. I 

co Instructions included ^ 

£ • For the whole family - Solitaire g 

S Card Games: Four (excellent) o 

g for only $15. | 

5 • How Internal Combustion En- ?< 

2 gines Work! 2-cycle $7, 4-cycle jjj 

£ $7, Both $13. S 

| • Get the feel of COBOL! Samp- g 

g ler for beginners (32K Disk re- * 

2 quired) $9. With book $18. h 

UJ m 

> Satisfaction Guaranteed > 

CO X 

? Not Available Anywhere Else! £ 

2 Send check or money order to: co 

2 BARGAINBYTE,™ Box 23195, S 

£ Harahan, LA 70183 > 

CO X 

Z • Tandy Corp. Trademark C) 

C3 Z 
ava31AaNIVDHV93iA8NIVOHVS3.LA8NIV9HV83.LA8 



4 MHz 



FOR THE 




PC BOARD & DOC 



ONLY $19.95 



THIS EASY TO INSTALL KIT WILL 
DOUBLE THE SPEED OF YOUR MOD 
ELIIICOMPUTER. 

COMPLETE KIT $59.95 

ASSEMBLED & TESTED $99.95 

CALL OR WRITE 
J.E.S. GRAPHICS 
P.O. BOX 2752 
TULSA, OK. 74101 

PHONE 19181 742-7104 ^202 



40 INCOME TAX 

PROGRAMS 

For TRS-80 Mod. I/Ill 

Oo Formatted Disks 

• Run on 16K or Larger DOS systems 

• Documentation Included. 

• Must be converted for Mod. Ill 

• Various program Methods for study 

• Check inputs; if OK, print, else easy to 
correct before printing 

• Our Third Year of Tax Service 

• Try ONE disk. If OK, 40 other Tax 
Programs are available. 

FIRST DISK contains Form 1040. and 
Schedules A, B, C, D, SE and TC. 



CAT. NO. TR #1 



Price S24. 75 PPD 



VISA 



GOOTH SOFTWARE 5©i 

931 S. Bemiston St. Louis. Mo. 63105 



TAXES 

TRS-80 MODELS 2 &3 



A COMPLETE COORDINATED TAX 
SYSTEM THAT INCLUDES MOST USED 
FORMS AND SCHEDULES. ALL 
SCEDULES PRINTED, NO MASKS, NO 
DATA FIELD ENTERED MORE THAN 
ONCE. ALL DATA AUTOMATICALLY 
PASSED BETWEEN SCHEDULES AND 
1040. FULLY SUPPORTED ALL YEAR. 
PARTIAL OR FULL SYSTEM. SYSTEM 
CAN BE RUN FOR SINGLEOR MULTIPLE 
RETURNS. EXTREMELY FLEXIBLE. 

FULL SYSTEM - $595.00 
OTHER TRS-80 SOFTWARE AVAILABLE 

ANALYTICAL PROCESSES CORP. 

635 MAIN ST. - NASSAU BLDG. 

P.O. BOX 1313 

'MONTROSE, COLO. 81402 

303-249-1 400 
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TAX PRO 

Videotronics 

4086 Honolulu Dr. - Sarasota, FL 
33583 813-371-7255 

Covers Forms 

1040 Pgs. 1-2 

A Pg. 1 

B Pt. 1 -2 

C Pt. 1-2-3-4 

D Pt. 1-2-3-4 

4797 Pt. 1-2 

SE Pt. 1 -2-3 

Complete Automatic transfer ot figures. From one form 
to another. Make corrections & watch the changes rip- 
ple down the lines to readjust all affected figures. 

Calculates Taxes Automatically 



1st year price 
any yearly edition 
Mod 1-111 



149.95 

60.00 

48K w/cassette 



Indicate which 
comes completely documented. 



•350 



ISA's 



"fr-fr 



The only DBMS with all these features. 

■k PROVEN in one year of test marketing 

• TOUGH, reliable file structure 

• MENU driven for simplicity and easy use 

• ARITHMETIC with stored calculations 

• FAST set-up and report formating 

• CLEAR user-oriented documentation 

• PRINTS totals & subtotals- mail labels 

• REFORMATS and merges data files 

• MULTI-DISK files: Up to 1 28K records 

• SORTS full disks on up to 40 fields 

• PRODUCTION input of repetitive data 

• COUPLES to word processor & statistics 

• POSTS transactions to master file 

• SEARCH by strings, ranges, comparisons 

• DATA COMPRESSION: Over twice as 
many labels as the other system 

For TRS-80" Models 1, II, £ III - 250.00 

Ask your Dealer or Write:- 

Institute for Scientific Analysis, Inc. 

P. O. Box 7186, Dept. Ml 

Wilmington, DE 19803 (215) 358-3735 



"T.M. Tandy Corp. 



BUILD THIS DIGITAL PLOTTER 
AT HOME FOR UNDER $2000° 




FOR ' 19.95 YOU GET PRO QUALITY BLUE- 
PRINTS, SCHEMATIC, PARTS LIST, ASSY. 
INSTRUCTIONS AND NECESSARY SOFT- 
WARE FOR MODEL I OR III . 
ACCOMMODATES PAPER UP TO 18 X 24. 
ADD '9.95 FOR 10 PROGRAMS INCLUDES 
PLOTTING GRAPHS, RADII NUMBERS A 
3-D CUBE AND MORE. ,«, 

SFHO CHECK OR MONEY ORDER TO- ' ooc 

RM.W. 7741 ALABAMA AVE. tt8 
CANOCA PARK, CA. 91304 



CANADIANS 



1981 PfcRSONAL INCOME: TAX PROGRAM FOR THE 
NON PROFESSIONAL 



;> 



n'li 



Northtax '81 automatically calculates: 

Employment expense deduction maximum medical 
expense deduction, all personal exemptions, age 
exemption tor those qualifying, detailed tax calculation, 
dividend tax credit. Federal and Provincial tax payable, 
and much more 

Onects the user on a line bv line basis, indicating where 
amounts are tilled in on the return and where attach 
ments are required 

Written by a Chartered Accountant the program was 
tested on personal tax returns prepared in a public 
accounting office 

Available on cassette for TRS-80 Model I Level II I6K 

rid Mode ; Disk add S5 00 
Stand 



d Program 
Self employment Program 
Alta Sask . Man residents add Sb 00 
Postage and handling $2.96 
Add Provincial Sales Tax where applicable 
Indicate province ot residence on December 31. 1 



$19.95 
$29 95 



To order send cheque or money order to 

SPECIALIZED SOFTWARE INC. *-347 

PO Box 4015 

Station C 

London, Ontario N5W 5G9 MM of Tandy Corporation 



MODEL II 
PROGRAMS 



40 programs 'Or f>iS 



OGl . MONITOR 

rlomtormg ot multiple budgets User defined obiecl 
tefbudget categories t 'penditures. encumberances. 
I balances on actua' and percentage completion 
;is tde*s tor busy projfc: directors businessmen <■■■ 
)tn«*n #tto *ish to monttor protect budgets S 40 00 



itegrated package o< JO lessons riv 
i BASIC language ideal <■■■ Mode' : 
'OWn BASIC ma self paced r\ 



' MoOt?/ 'i ";ro a ruUde> file Retrieve cards 0" 

(.„ implements printing ot iables and tile 

S 60 00 



*nd check or money order to 

Southfork Software 

68 Fairlake Drive 

Hattiesburg, MS 39401 

city TRSOOS 1 2 Or 2 Version *,th o, 



STORYBOOKS OF THE FUTURE 



Space O 

UH5TE RHCi 



For TRS-80 - Models I and III 

A Computerized Children's Storybook 

Story Anirr ation Sound 

In-Context Learning Activities 

Counting - Look Nod & Shake 

Number and Letter Identification 

PLUS in the 32K Program 

Progress Report -Alphabetical & Numerical Order 

Direction Concepts 

"~ NEW RELEASE ! f ! 

BETTER VIEW A ZOO 
New Story - New Activities • Disk Only 



SPECIFY MODEL I OR MODEL III TAPE OR DISK 

32K Disk MODELS l/lll . . $24.95 

16K Tape MODELS l/lll . . . $19.95 

(CA Res Add 6% Tax) 

Send Check/Monny Order to 

Storybooks of the Future 

527 - 41st Avenue 

San Francisco, CA 94121 

(415)386-5184 

"TR-80 is a trademark of Tandy Corp. ^349 



SOFTWARE FOR TRS-80 
MODEL I, II & III 

INVOICING — A/R — INVENTORY (LSC-2001) 
Update Inventory and Post Data to A/R 

File During Invoicing, Print 

Statement of Account & Commission 

MOD I & III — $399.00 MOD II — $499.00 



•INVOICING — INVENTORY (LSC-2003) 

Updates Inventory While Invoicing 
MOD II & III -$199.00 MODIIS289.00 

'A/R — STATEMENT OF ACCOUNT (LSC-2004) 

Print Statement of Account and Commission 
MODI & III — $199.00 MOD II $289.00 

'MAILING LIST (LSC-2002) 

Print Selectively With Priority Coding. 

MOD I & III $99.00 MOD II $189.00 

Dealer inquiries Invited 

To Order or For More Information 

Write or Call: 

LIZCON TRADING 

2949 SOUTH 300 WEST 

SALT LAKE CITY, UT 841 15 

TEL. (801)484-8179 

VISA * MASTER CHARGE ^345 



1981 INDEX 

to 80 Microcomputing 

1. List All Articles 

2. Search by Title 

3. Search by Topic 

4. Search by Month 
All To Screen or Printer 

on Disk 

ONLY $19.95 

(Add $1.50 for S&H) 

(Minn, residents add 5% sales tax) 
Make Check or Money Order Payable To: 

►-346 

DEKELA Computing Service 

530 E. 41st. St. Hibbing, MN 55746 



\ferbatim 

flexible disks 

Call Free (800) 235-4137 for 

prices and information. Dealer 
inquiries invited. C.O.D. and 
charge cards accepted. 




VISA' 



PACIFIC 
EXCHANGES 

100 Foothill Blvd. 
San Luis Obispo, CA 
93401. In Cal. call 
(800) 592-5935 or 
(805) 543-1037. 

^207 
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survival 

by J.M. Keynes 



Your two year CD (Certificate of De- 
posit) just came due. Now what will 
you do with the money? If you are like 
most investors you will likely reinvest in 
another CD. And you will probably be 
throwing money away. It is tragic that you 
work so hard for your money and then ne- 
glect it so when the time comes to invest 
it. Actually, it's not all your fault. Like a 
computer we are creatures of habit which 
rely on our data bank instructions. I have 
compelling evidence for purging the men- 
tal program which says, "Roll overthat CD 
or Treasury Bond." 

People tend to judge investments on 
the gross return. Twenty percent sounds 
great, but is no longer available. Even if 
one could get 20 percent, it may be an un- 
wise choice. This point is crucial to invest- 
ment decisions: The gross return of an in- 
vestment is immaterial. You cannot spend 
gross unless you are in a zero tax bracket. 
Most of you are in a 20-50 percent bracket, 
so you must deal with the real world in 
which you pay income tax. Examine the 
following carefully and you will see that 
for many investors a 4-1/8 percent current 
return is superior to a 13.5 percent current 
return because I shall deal with the only 
criteria one should apply to investment 
evaluation (assuming the risk is the 
same) . . . what you can spend, net returns 
after taxes. 

There is an investment quality bond 
which matures in 15 months which is 
quoted at 80 currently. (You pay $800 for 
each bond that returns $1000 at maturity.) 
The coupon rate is a niggardly 4-1/8 per- 
cent. It pays only $41.25 per year in inter- 
est. If one examines only the gross return 
at maturity (18 months), it is of little inter- 
est. At maturity you will have received on- 
ly $61.87 in interest and $200 in a long 
term capital gain (you paid $800 and will 
receive $1000 at maturity). Total gross re- 
turn for the bond equals $61.87 plus $200 
or $261.87 while your $800 investment in 
the CD would return a gross of $162. Were 
it not for the special treatment of long 
term capital gains (holding period one 
year or more), the CD would be a better 
deal. Let's take advantage of what has 
been called 'a loophole for the rich' and 
put more after tax dollars in your pock- 



et—which you will then spend on com- 
puter toys. 

If one compares this bond with the cur- 
rent 15 month rate of 13.5 percent the 
results are dramatic, showing an advan- 
tage in favor of those in the 20 percent 
bracket. The bond's advantage increases 
geometrically with your tax bracket. 

Run the Program in Listing 1 and get a 
true picture of this investment alternative; 
$10,000 invested in the above bonds by 
one in the 50 percent bracket will return, at 
maturity, $1374.22 more after taxes than a 
15 month 13.5 percent CD. That is enough 
to buy a disk system. All for free— no more 
risk, just more money. 

Few investors are aware of this strate- 
gy. Your banker will never suggest it. That 
would be counterproductive for him. One 
must buy these bonds through a stock- 
broker. The commission on a 10 bond lot 
should not exceed $50. The broker who 
handles your order will get about 30 per- 



cent of it— big deal— not for him but for 
you. This is not exactly "big ticket" mer- 
chandise for the broker, but they will han- 
dle the transaction if you ask. There are a 
number of similar bonds available that 
mature in one to five years. Look in the 
Wall Street Journal or your local paper on 
the bond page: They will be quoted as 
follows: 

ISSUER'S NAME COUPON MATURITY YEAR 

AT&T 3.5 1983 

Look for the short term maturities and 
plug the numbers into the Listing. 

Some of my clients have asked, "Why 
are these bonds available at such advan- 
tageous prices?" They always will be 
available because they benefit those in 
higher tax brackets most. Billions of dol- 
lars from "no tax" entities like pension 
funds, retirement plans and so on are not 
bidding against you as with CDs, commer- 
cial paper, and other short term high yield 
investments. Should you invest in these 



5 REM WRITTEN BY J. MAYNARD KEYNES FOR 80 MICROCOMPUTING 

10 CLEAR: CLEAR1000: CLS 

20 A$="$$*###.##" 

3000 PRINT: PRINT-AFTER TAX COMPARISION OF DISCOUNT BONDS WITH CERTIFICATE 

3010 PRINT"OF DEPOSIT OR T-BOND FOR THE SAME PERIOD. 

3020 PRINT: INPUT"TOTAL DOLLARS INVESTED" ;DI : IF DK100 ,DI=10000 

3030 INPUT "BOND PRICE IN DOLLARS (EG. 79=790) ";BP 

3040 INPUT"MONTHS LEFT TO MATURITY" ;MA: ML=MA/12 

3050 CG=1000-BP 

3060 XX=DI/BP 

3070 INPUT-COUPON RATE";CC: CP=CC*10*ML 

3080 INPUT" TAXPAYERS BRACKET" ;TP: TB= (100-TP) /100 

3090 INPUT-RISK FREE CD INTEREST RATE";IJ: 11= ( I J/100) *ML: PRINTII 

3100 CLS: PRINT"RESULTS OF A";CC;"% BOND PURCHASED AT";: 

PRINTUSINGAS;BP; : PRINT" DUE IN";MA;"MO. 

3110 PRINT"FOR A TAXPAYER IN THE ";TP;"% BRACKET VS A CD AT ;IJ; % 

3120 PRINT: PRINT" ", "GROSS RETURN" , "AFTER TAX RETURN" 

3130 AT=CP*TB: PRINT" INTEREST" ; : PRINT0270 ,USINGA$ ;CP 

3140 TP=TP/100 

3150 PRINT@289,USINGA$;AT 

3160 NN=CG*.4: NM=NN*TP: NG=CG-NM 

3170 A$="$$####.##" 

3180 PRINT"CAP. GAIN";: PRINT@334 ,USINGA$;CG 

3190 PRINT@353,USINGA$;NG 

3200 TN=NG+AT 

3210 PRINT"TOTAL NET";: PRINT@417 ,USINGA$;TN 

3220 R1=BP*II: R2=Rl*TB 

3230 PRINT 

3240 PRINT"CD AT ";IJ;"% RETURNS ";: PRINTUSINGA$; Rl ; : 

PRINT" GROSS OR ";: PRINTUSINGAS; R2 ; : PRINT" NET! 

3250 DA=TN-R2: PR= (DA/R2) *100 

3260 PRINT: PRINT"EACH BOND WILL PROVIDE AN ADVANTAGE OF ";: 

PRINTUSINGA$;DA; : PRINT" OVER THE CD.": 

PRINT"OR ";PR;"% GREATER RETURN 
3270 IFDI>1THENDX=DA*XX: 

PRINT'S" ;DI;" INVESTED IN BONDS YIELDS";: 
PRINTUSINGAS ;DX ; : PRINT" MORE AFTER TAXES.": PRINT 
3280 INPUT"TO EXAMINE ANOTHER BOND PRESS 'ENTER' ";L4: GOTO3000 

Program Listing 
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bonds, you are not locked in. They are 
traded daily on the New York Stock Ex- 
change and are liquid. The bond I refer 
to must be considered safe as it is issued 
by AT&T. 

There is another way you can use these 
short term discounted bonds. If you have 
long term carry forward losses or can cre- 
ate them by swapping your existing bonds 
which have a loss for other bonds of like 
terms and quality, you may artificially 
create a one to two year tax free invest- 
ment yielding 13 percent tax free. If you 
buy a four percent coupon bond due in 
one year for $900, you will, at maturity, 
have a $100 long term tax free capital gain 
as you use carry forward losses to offset 
it. That amounts to an 11.11 percent tax 
free return on your $900 investment plus 
the $40 the bond pays in interest or $20 net 
if you are in the 50 percent bracket equals 
a total tax free return of $120 on a $900 in- 
vestment or a 13.3 percent tax free return 
with no risk. Why not use those losses to 
your advantage? This strategy sure beats 
a one year taxable certificate of deposit 
on which you net 6.5 percent. ■ 




TEACH YOUR 
CHILDREN 



ALPHA— Our best seller. Enhanced with larger letters 
and three excercises. Alphabet recognition for pre- 
schoolers. 



ALPHA II — More alphabet excercises. Find the dup 
cate letters; letters before and after; put in alpha- 
betical order. 



SIGMA— Addition problems for grades 1-3. 



SIGMA-EX— Addition problems for the younger or 
slower learner. 



SIGMA-82— Addition, subtraction, multiplication and 
division. Nine speed levels. Time left and total time 
constantly displayed. 

SPE-L— Spelling practice for grades 2-4. 



Learning to Count Money— A THREE PROGRAM 
SYSTEM THAT TEACHES THE IMPORTANT SKILL OF 
COUNTING MONEY. SUPERIOR GRAPHICS. (SOLD 
BY THE SET ONLY.) 



Available on cassette only for TRS-80 Models I and III 
$6.95 each, two for $12.00, four for $21.00 Learning to 
Count Money— $19.95 



Add $1.00 to total order for first class shipment. 

^188 

gmg ^^<^k ftfl Mercer Systems Inc. 
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When your computer won' 

speak your language, 
you need a basic handbook. 




Written 



As a matter of fact, everyone who works in BASIC needs The 
BASIC Handbook. It is the definitive reference 
.k. work on the subject of BASIC. 

The BASIC Handbook is an easy lo- 
use encyclopedia of nearly 500 words 
covering the "dialects" used by virtu- 
ally every BASIC-speaking computer 
in the world. But more than that, it's a 
simple, step-by-step guide to translat- 
ing programs from one computer 
,,,.,,-. to another. So now you can actu- 

r^^&^-fc^v^ a ^y use software printed in 

f£r<. 4^ :S- magazines and elsewhere, no 

matter what computer you own. 
by Dr. David A. Lien, author ^^^ ^ 
of the Tandy TRS-80 Level I User's Manual and TL fy 
the Learner's Manuals for the Epson § f lA^ 

MX printers, this completely revised 
Second Edition contains almost twice 
as many entries as the best selling 
First Edition, making it 
by far the most up-to- 
date BASIC reference 
book you can buy. 

Extensively indexed and cross-referenced, The BASIC Hand- 
book gives you 480 pages packed with the information you need to 
be a better programmer. And if, after 30 days you don't agree it's 
indispensable, send it back. We'll return your money. 

The BASIC Handbook is available in several 
languages and accepted throughout the 
world. No one who programs in BASIC 
should be without it. 

Available at better computer and 
bookstores, # - s .__ % _ ,_ . ____ 

or caii (800) 854-6505 

In California (714) 588-0996 

To order by mail, send check or 

money order for $19.95 (California 

residents add 6%), plus $1.65 

shipping and handling. 

. Overseas orders send 

% $19.95 plus $2.38 surface 

shipping and handling. 





1050-E Pioneer Way, El Caion, California 92020 



■See List ot Advertisers on page 402 
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by Philip R. Mills, M.D. 



"Well over half our 
patients favor computer histories. . . " 



Those of you who are old timers 
(two or more computer years old) 
know how slow sophisticated medical 
software has been in coming for the 
TRS-80 computer family. Fortunately the 
trend appears to be changing. There are 
now many available programs for the 
medical clinic including patient billing, 
patient scheduling, automated patient 
histories, drug interactions, life-expec- 
tancy predictions and personalized diet 
and menu suggestions. 

This month begins a new feature in 
80 Microcomputing— a review of software 
and hardware of particular interest to the 
medical community. 

This column is written particularly for 
two groups of Radio Shack computer 
users: 

• Physicians, dentists or administra- 
tors of small medical clinics; 

• Medical software programmers. 

Any suggestions and comments will be 
welcomed. 

Since the basis of medical diagnosis is 
the medical history, we will review two 
automated patient history packages this 
month. For non-physician readers a brief 



description of a minimal patient history 
may be helpful. A history usually contains 
three separate sections (see Fig. 1): 
History of Present Illness (HPI), Past 
Medical History (PMHx), and Review of 
Systems (RoS). 

The History of Present Illness is the 
most individualized and complex portion 
of the history. It does not lend itself well to 
"standard" questions and yes/no 
responses. At the present time, I do not 
believe it is realistic to expect a 64K micro- 
computer with eight-inch drives to 
possess the capacity to take a meaning- 
ful HPI. 

The Past Medical History is less com- 
plex, and routine questions can be asked 
with yes/no responses, but even here 
some typing by the patient (or office assis- 
tant) may be necessary for a complete 
listing of such things as prior surgical pro- 
cedures and allergies. 

The Review of Systems is ideal for a 
microcomputer program. It uses a 
repetitious set of "standard" questions 
for every new patient. Microcomputers 
may prove helpful here in many clinics. 
We use the computer to assist us in some 
hospital admission workups. Of course 
the ill and the illiterate are unable to use 



HPI: 23 y.o. right handed white male with his first episode of right elbow pain. It began two weeks ago 
after a non-traumatic but vigorous tennis match. The pain is aggravated by resisted wrist exten- 
sion and supination. It is pain free a; rest. The patient denies joint pain, swelling, or redness. He 
denies any other joint involvement. 

PMHx: No prior hospitalizations or surgeries. 
No known medical allergies. 

RoS: No pertinent neurologic, cardiovascular, or genito-urinary complaints. 

Fig. 1. Sample Medical History. 



A TEW INSTRUCTIONS AND THEN WE'LL BEGIN. 

USL (HE KEYBOARD TO TYPE IN YOUR ANSWERS JUST AS YOU WOULD A TYPEWRITER KEYBOARD. 

DO NOT USE THE 'SHIFT KEY', EVERYTHING IS AUTOMATICALLY ENTERED IN UPPERCASE. 

If-" YOU MAKE A MISTAKE, USE THE 'BACK ARROW KEY (JUST ABOVE THE 'ENTER' TO BACKSPACE.) 

IF YOU ACCIDENTALLY HIT THE 'BREAK' KEY, JUST TYPE 'CONT AND PRESS 'ENTER'. 

PRESS THE WHITE 'ENTER' BUTTON AFTER EACH ANSWER ONCE YOU ARE SURE IT IS CORRECT. 

Fig. 2. Instructions for the user. 



the program without assistance. We 
estimate that about 30 percent of our elec- 
tive hospital admissions are appropriate 
candidates for the computer. Patient ac- 
ceptance is mixed. Most are very im- 
pressed, while a few refuse to cooperate. 
Well over half our patients favor computer 
histories, however. 

Computer-Assisted Patient History 

One simple and inexpensive program is 
available from Medsoft, Box 7049, Tahoe 
City, CA 95730, (916) 583-3097. The price is 
$49. Written in Basic by a physician, Dr. 
Mark Spohr, it runs without modification 
on any Model I, II, or III computer under 
TRSDOS. It also runs perfectly on my 
Model I NEWDOS/80 and I expect it will 
run under any other TRSDOS like DOS. It 
requires a 48K memory, one disk drive, 
and an 80-column line printer. Although I 
tested a preliminary version for this 
review, no bugs were uncovered. It is not 
protected and is listable. 

The program begins with instructions 
to the patient. For most of our users the in- 
structions were too long. (A partial listing 
of the instructions is shown in Fig. 2). In 
our clinic we rewrote the instructions, de- 
leting the reference to the Break key (no 
one remembers it anyway), then broke the 
directions into smaller segments. 

The first portion of the history concerns 
patient identification and requires some 
typing. The patient's name, clinic number, 
birthdate, age, and so on are all entered. 
We found it best to rearrange the program 
and have our office assistant enter this in- 
formation at the start. Then if desired the 
instructions are given so that patient can 
use the program without further assis- 
tance. 

The remainder of the program requires 
little assistance. Most responses are 
yes/no and are not difficult for the average 
patient to understand. Instructions are 
continuously available on the top of the 
screen for reference (see Fig. 3). 

A defect in the program is the absence 
of provisions for a response other than 
yes/no. Occasionally a patient is unsure 
of an answer and a help response should 
be an available option. No provisions are 
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TRS-80* Model 



Hardware & 
Software 
at discount 
prices. 




RADIO SHACK 



List Price 



26-1066 Mod III. 48 K.2-Disk 2.495.00 

26-1062 Mod III. 16 K 999.00 

26-1906 Invasion Force (T) 14.95 

26-1590 Super Scripsel (0) 199 OC 

26-1591 Scripset Dictionary (D) 149 00 

26-1569 Mod III Visicalc (Dl 199.00 

26-1592 Profiler Plus ... 199 00 

ADVENTURE INTERNATIONAL 

Star Trek 3.5 (T) 14.95 

Space Intruders (T) 14.95 

Maxi Manager (D) 99.95 

Star Fighter (T) 24.95 

BIG FIVE SOFTWARE 

Robot Attack (T) 15.95 

Cosmic Pigtiter (T) . 15 95 

Attack Force (T) 15.95 

Super Nova(T) '. 15.95 

(T) = Cassette Tape (D) = Disk 



OUR PRICE 
2.100.00 
849 00 
11.95 
155.00 
119. JO 
155.00 
15500 



11.95 
11.95 
79.95 
19.95 



12.75 
12.75 
12.75 
12.75 



We represent 20+ mfgrs with 300+ programs. Write for our FREE catalog for 
Mot) II, Mod III and Color Computer. 

COMPUTER HOUSE 

P.O. Box 538 Mammoth Lakes, CA 93546 

(714) 934-6538 

Orders less than $100.00 add $1 50 tor postage and handling. Over $100 00 shipped (ree. 
MC & VISA accepted 

e*1 

•TRS-80 is a trademark ot Tandy Corp. 



Supercharge Your Micro's Performance With 




The Professional Operating System with CP/M™ Compatability 

•Spectacular Pirtormince. Programs - un 3 to 10 limes taster compared with TRSDOS or CP/M 

Benchmark resuts up to ?0 times taster obtained with some applications Dy independent firm 1 
•Double Sided Drive Support provides i 25 Megabytes oi storage per 8' double sided /density disk 

intermix ary combination ot sinrjie or doub'e-sided drives on i-ne 
•Expanded Directories. Store larger number ot tiles and more information per disk 
•Automatic Dintrty/Slde Recognition Detects changes in disk format automatically Change disks at 

anv limp without compromisma data or BDOS/Read-Only" errors 
•Fast Disk Backups Copy a complete 8 SS'DO diskette (610K) in less than 80 seconds Copy a 

double sided/density diskette (1 25 Megabytes) in less than 1 minute 45 seconds' 
•Hard Disk Drive Support. Supports large hard disks in excess ot 1 .000 Megabyies without partitioning 
•Advanced Utilities Complete set ot disk utilities system date and lime functions, communications 

channel interlace etc provided as standard features 
•Enhanced Automatic Print Spooling. Run multiple printers simultaneously, support tor multiple 

queues ana printers is standard feature on spooling versions 
• CP/M Compatibility. Virtually any CP/M (version 2 x) program will run under TURBODOS without 

modification Also fully media compatible with standard CP/M-tormat diskettes 
•Advanced Malntrame-llka features, includes read alter write validation ot all disk update operations. 

type-ahead Duffers incremental disk backup utility, password/log-on security, system date and time 

functions accepts st'ing ot multiple commands and numerous other capabilities not available under 

CP'M or TRSDOS Ml.Hi user networking versions also available 

TRS-80 Model II 

and Xerox 820 versions 
Special Introductory Price 

Easily adaptable to any Z80 based computer 

(408) 375-2775*686 Lighthouse Avenue •Monterey, 93940 




TURBODOS is the reqiSIereC IrarJemark of Soltware ?000 

CP V MF M and {,■ NE1 are registered fademark; ol Digital Researc 



^292 



Circuit Analysis. Linear and transient circuit analysi 
grams. 10 to 15 nodes. Built-in models for transistors, op-an. t 
waveguides. Plots amplitude and phase. Available for TRS-80 Disk 
BASIC 48K, CP/M and H-89 computer systems. 
LCA(Linear Circuit Analysis) 512995 $79.95 Until 3/31/82 



TCA (Transient Circuit Analysis) 
TLCA (Both of the above programs) 



S129.95 S79.95 Until 3/31/82 
8169.95 $99.95 Until 3/31/82 



Data Base Management for the TRS-80. 

DBM-l is designed to be sophisticated yet easy to use. Extensive 
screen prompts with cross reference to the documentation to 
make this program one of the best documented on the market. 



S-80 with 48K and one or more disk drives. 
DBM-l 89995 S79.95 Introductory Price Until 3/31/82 

DBM-l 8199-00 Purchased with LDOS 5.1 (Specify I or 111) 



package and macnine language overlay loader. Create co 
screen graphics with a few simple commands in BASIC or 
machine language. The overlay loader allows multiple machine 
language programs to be called from the disk while m BASIC. 
GRAF 859 95 $39.95 Introductory Price Until 3/31/82 

Manuals available/or any of the above packages for SI 5. OO. 

TO Order Call (505) 255-6451 weekdays between noon and 
(Vnn p.m. Mountain time. Ask for a catalog. MasterCard and Visa 
•ted. Dealer inquiries invited. 




UTEL 
'LECTROm 



MICROCOMPUTER SYSTEMS AND SUPPLIES 
146 WISCONSIN, NE • ALBUQUERQUE, NM 87H 




COMPUTERWARE 

products for 




* GAMES * 

• Arcade Graphics • 

Strategy Adventure. Invaders* 

Pac Attack • Storm • Magikube 

• Cave Hunter • Berserk • Maze Race* 
Calixto Island • Black Sanctum -fc 
home & WORK -jdar Checkbook • Finance. 
Word Processing • Color Data Organizer 

• 3D Drawing Board • Mailing List ^ 
PROGRAMMER AIDS if PASCAL • Editor* 

Diagnostics • Monitor • Assembler 

"j^"16K+ Memory Expansion to 32K"^ 

• Supplies • Printers • Modems* 

&9 Books ~A Accessories if 




CASSETTE AND DISKETTE 



COMPUTERWARE 



Dept. C • Box 668 

Encinitas, CA 92024 
(714) 436-3512 



6809 Specialists 

Compulerware Is a trademark ol Compulerware. 



^369 



.'See List ol Advertisers on page 402 
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available for error correction. One psych- 
iatric question needs reworking: "Do you 
find your life— Generally unsatisfactory?" 
is followed shortly by "Do you find your 
life satisfactory?" Branching could have 
eliminated this second question when 
a "no" answer was given to the first 
question 



computer (see Fig. 5). An extensive and 
well thought out patient identification, 
social history, family history, allergy 
history, surgical history, and review of 
systems follows. Several questions were 
worded so well that I have incorporated 
them into my own personal review of 
systems. Four responses are available for 



"The Review of Systems 
is ideal for 
a microcomputer program. 



The main menu provides three options: 
Take Patient History, Store Patient 
History on Disk, Print Patient History. 

The print routine is very simple. A sam- 
ple is shown in Fig. 4. It would benefit from 
enhancements to provide page number- 
ing and pause between pages. A complete 
printout including negatives should also 
be available. 

Since all history-type programs need 
modifications to fit the end user the 
listings are well annotated and modifica- 
tion is easily accomplished. I suggest that 
all rearrangements and changes be made 
and saved; then the program compressed. 

The six-page documentation is ade- 
quate. It could have been improved by 
including suggestions for introducing 
this program to the patient by the office 
assistant. 



Automated Patient History 

A second program was written by 
Werner Slack, M.D., in 197S. It is marketed 
by Cybernetics, Inc., 8041 Newman Ave., 
#208, Huntington Beach, CA 92647, (714) 
848-1922. It requires CP/M with CBasic, a 
Model II, and an 80-column line printer. 
This program costs $175. It is much more 
sophisticated than the Basic program 
discussed above. 

This program has an interesting 
history. The questions were originally 
written in the early 70s for a mainframe 
computer. It was first made available for 
micros in 1979. Since its introduction it 
has not only been used in English, but one 
English-speaking physician in France 
rewrote the questions in French, leaving 
the printout in English! Currently a revi- 
sion is in progress to provide more exten- 
sive error trapping and other enhance- 
ments. 

It begins nicely with a short tutorial, in- 
structing the patient on how to use the 



every question and are continuously 
shown on the screen: Yes, No, Don't 
Know, and Don't Understand. 

The questions were broken up by humor 
or a health education point. Even so, this 
is a long history and takes the typical pa- 
tient 35 to 40 minutes to complete. We 
found only one mistake, which was a 
minor spelling error. 

Documentation is adequate and in- 
cludes instructions for question modifica- 
tion. This program accepts up to 1,000 
questions and can be used for diet and 
other histories. The documentation which 
I received was for an older version of the 
progam which is no longer available. It 
would have been interesting if the 
documentation had included actual clinic 
experiences with this program. I wrote to 
Cybernetics asking to contact physicians 
using the program, but at the time of this 
writing have received no reply. 



Some branching questions are used by 
this program for convenience and speed. 
For example the following question is 
asked: "Have any of your blood relatives 
had cancer, rheumatic fever, kidney 
disease, bleeding problems, or anemia?" 
If the answer is "no," no further questions 
are asked of these diseases. However if a 
"yes" response is given the program asks 
about each disease separately. This made 
the patients feel that the computer was re- 
peating its questions. One question con- 
cerning whether the patient is male or 
female is asked twice. This seems unnec- 
essary. Occasionally further branching 
would have decreased redundancy— for 
example, if the patient denies ever having 
had penicillin it seems useless to ask him 
if he is allergic to this antibiotic. Occa- 
sionally asking questions in a slightly dif- 
ferent order would also reduce the ap- 
pearance of redundancy for the patients. 
Of course, repeating the questions may 
decrease errors. 

An interesting conclusion to the ques- 
tions was an evaluation of how the patient 



PLEASE TYPE Y FOR YES OR N FOR NO THEN 
PRESS ENTER. 

DO YOU HAVE ANY OF THE FOLLOWING 

COMPLAINTS? 

CHEST, HEART, LUNG 

CHEST PAIN 



Fig. 3. Sample Screen. 



CURRENT SYMPTOMS 


FAMILY HISTORY 


CANCER 

HIGH BLOOD PRESSURE 

ALLERGIES 

STOMACH OR DUODENAL ULCER 

PAST MEDICAL HISTORY 


HEART TROUBLE 

ASTHMA 

MIGRAINE HEADACHES 


MEASLES 
CHICKEN POX 
INFLUENZA 
HIVES OR ECZEMA 

ALLERGIES 


MUMPS 

WHOOPING COUGH 
HAYFEVER 


SPRING GRASSES 

SURGERY 


FALL POLLENS 


TONSILLECTOMY 

MEDICATIONS 


** REVIEW OF SYSTEMS ** 

GENERAL 


SKIN 


HEAD, EYES, EARS, NOSE. THROAT 
NECK 


CHEST. HEART, LUNGS 


GASTROINTESTINAL 


Fig. 4. Partial Printout. 
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NEW PRINTERS 
PERIPHERALS. 





1982 will find more OEM's, businesses, dealers and personal computer 
users turning to MICROTEK than ever before. 



TckWriter-l \ TcRWritcr 




80 Column Dot 
Matrix Printer 
(Formerly BYTEWRITER-1) 

The Tekwnter-1 printer is,, dollar for 
dollar, the finest value in the 
industry. And we've proved it by 
comparing the Tekwriter-1 to 
the Epson MX-80. Our print speed 
is 14 lines per minute faster, our life 
expectancy is longer, the character 
sets are the same, and the 
interface, warranty and printhead 
replacement cost are all identical.* 
But the biggest difference is the 
price. The Tekwriter-1 is about 
$300 less. 

Our extensive testing has proved 
that the Tekwriter-1 interfaces 
problem-free to most parallel 
Centronics and serial (RS-232) 
computers. 

rhe Tekwriter-1 is tough to bee for 
performance and quality, 

"Data Source: Epson MX-80 Operation Manual 



Parallel 
Serial 



$349 
S389 
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NEW! 80/132 C 
Dot Matrix Printer 

The Tekwriter-2 is perfectly suited 
to personal, business or OEM 
applications. Tekwriter-2 is 
designed to accept single sheet, 
roll or pin feed paper. It has 
a 9-wire dot matrix impact 
print head which produces crisp 
characters and has underlining 
capability. The printer is 
manufactured to run extremely 
quietly even while operating at 
peak output levels. 

Tekwriter-2 is especially well suited 
to handle word processing 
applications because of its data 
buffer expansion capabilities to 25K. 
This ability makes it an efficient 
graphics generator. 

Parallel interface (Centronics 
type). Interfaces all models of 
TRS-80, Apple, and Atari 400/800, 
and most computers with 
Centronics printer interface. 



$695 



Peripherals 




Parallel/Serial Data 
Buffer Converter 

Interfaces with most computers and 
printers on the market today. 
Switch selectable parallel or serial 
input/parallel or serial output. 
Ideal for word processing and data 
communications. Data buffer 2K 
standard — expandable to 62 K. 
Serial I/O BAUD rates switch 
independently selectable. 

16K Apple Memory Board 

Apple Parallel Interface 
Card 

16K-32K Atari Memory 
Boards 

Atari Parallel or Serial 
Printer Cables 

8K-16K VIC-20 Memory 
Boards 

64K to 256K IBM Memory 
Board 



Quantity and OEM discounts available. 



TRS-80 is a trademark of Radio Shack, Inc. 
Apple II is o trademark of Apple Computer, Inc. 
Atari 400/800 are trademarks of Atari, Inc. 
Microsoft is a trademark of Microsoft Consumer 

Products, Inc. 
Z-80 is a trademark of Zilog, Inc. 
Visicalc is a trademark of Personal Software, Inc. 



.--See List ol Advertisers on page 402 



Continuing our quest for excellence. 




1ICROT 



^56 



MICROTEK 

9514 Chesapeake Drive 
San Diego, CA 92123 
(714) 278-0633 
Outside CA call 
Toll Free (800) 854-1081 
TWX. 910-335-1269 
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Electronic Engineers 

Electronic Hobbyists 

Electronic Students 

Ham Operators 



TRS80 ■• 

MODEL I 
LEVEL II 
2 DISK 



A General DC-AC (steady state) 
Analysis of Any Circuit 

Will Analyze and Compute: 

• Node. Branch. Element. Voltages 

• Node. Branch. Element. Currents 

• Branch Power Dissipation 

• Magnitude and phase values and complete 
frequency response with graphic display 

• Modify any element in circuit lor desired 
results 



A oorrwlete operational 

maiTUa suaf led 
compara\le/o I B.M.'s 

EC A.P .^Program 

'AC. Analysis Program 

Aiaq a«. 



)95 



After our 

BIG SUCCESS 

with these programs. 

we can now sell it 

lor only 

S79 95 

FOR BOTH PROGRAMS 

Limited oiler — order now 



VISA OR MASTERCHARGE ACCEPTED 

ho Nut s.iiil Cash in the Mail 

l<i Order Write 
G & L Software Enterp. "185 
2304 N. 1st. Street 
Upland. CA 91786 

TRS-80™ is a trademark of the Tandy Corp. E.C.A.P. is a 

trademark ot International Business Machines, Inc 



PACKER: Machine language program that edits all or part 
of your Basic program to run faster, save memory, or 
ease editing. The 5 options Include UNPACK— unpacks 
multiple statement lines into single statements 
maintaining logic, inserts spaces and renumbers lines. 
SHORT— deletes unnecessary words, spaces, and REM 
statements. PACK— packs lines into maximum multiple 
statement lines, including all branches MOVE— moves 
line or blocks of lines to any new location on program. On 
2 cassettes for I6K, 32K. & 48K 
For TRS-80 Mod I or III Level II or Disk Basic . . . $29.95 
SYSTEM TAPE DUPLICATOR: Copy your SYSTEM format 
tapes. Includes verify routines. The Model III version 
allows use of both 500 and 1500 baud cassettes speeds. 

For TRS-80 Model I or III Level II S15.95 

CASSETTE LABEL MAKER: A mini word processor to print 
cassette labels on a line printer Includes 50 peel - and - 
stick labels on tractor feed paper 

For TR-80 Model I of III Level II & Printer S17.95 

PRINT TO LPRINT TO PRINT Edits your Basic program in 
seconds to change all Prints to LPrints (except Print@or 
PrinW) or LPrinls to Prints. Save edited version. 

For TR-80 Model I or III Level II S12 95 

FAST SORT ROUTINES for use with Radio Shacks 
Accounts Receivable. Inventory Control I. and Disk 
Mailing List Systems for Model I Level II Sorts in 
SECONDS! You'll be amazed at the lime they can save. 
Supplied on dala diskette with complete instructions 

FAST SORT for Accounts Receivable S19.95 

FAST SORT for Inventory Control I S19.95 

FAST SORT for Disk Mailing List (specify data diskette of 

cassette for 1 drive system) S14 95 

ALL THREE ROUTINES S44 95 

Prices subject to change without notice Call or write for a 
complete catalog Dealer inquiries invited VISA and 
Mastercharge accepted Foreign order in US currency 
only Kansas residents add 3% sales tax. 
On-line catalog in Wichita FORUM-80: 316-682-2113 
Or call our 24 hour phone (3161 683-4811 or write 
COTTAGE SOFTWARE ^ 1R7 
614 N HARDING 
WICHITA. KANSAS 67208 
TRS 80™is a trademark of Tandy Corporation 



%0 Medical Opinion 



liked or disliked the program. Responses 
were generally positive in our clinic, 
although many older patients felt the 
questioning took too long. From these 
responses we shortened our program and 
it was more acceptable. 

The printout could be improved in 
several areas. For example, you are first 
asked if you have had a chest x-ray in the 
past year. If your reply is "no" you are then 
asked if you have ever had a chest x-ray. 
This is then printed out without any 
change in order as illustrated below: 

RESPIRATORY. 

NO TB SKIN TEST 

TB SKIN TEST NEGATIVE 

TB VACCINE INJECTIONS RECEIVED 

NOCHES1 X-RAY W miN "HE PAS' YEAR 
NEVER HAD ONE 

Clearly this is inconsistent. An enhanced 
printout would note all inconsistencies 
and report them in an improved order. 

The greatest flaw in the program is its 
lack of provision to return to a question 
and make corrections once a response is 
entered. Another flaw is the inability for an 
operator to save the program to disk for 
later printing. It also is impossible to skip 
the instructions and go right to the ques- 
tions. If a mistake is made by the operator 
and the program terminated, there are no 
provisions to resume the questions at the 
point of termination. It is necessary to 



begin again. No special screen featuresof 
the Model II such as reverse video are pro- 
vided. 

The printout would benefit from 
enhancements to provide headings, page 
number and the option to pause between 
pages. The printout is all in uppercase. 
The printout did not provide an option to 
include all negative responses. 

We have found these programs to be of 
great value when we are running behind 
schedule, the waiting room is full, and 
everyone is becoming impatient. At that 
time we can get a patient busy at the com- 
puter and decrease everyone's anxiety 
level. 

Next month we will evaluate CP/M hard- 
ware and eight-inch disk drives for the 
Model l/lll as well as a patient billing 
system for these computers. ■ 



HELLO THERE!!! 

BEFORE CONTINUING, I WILL 

SHOW YOU HOW TO OPERATE THIS COMPUTER. 

FIRST, FIND THE KEY MARKED "ENTER" 

ON THE KEYBOARD AND PRESS IT 

If correctly done the second screen display appears: 

-VERY GOOD- 
YOU CAN ANSWER ' YES" TO A QUESTION 
BY PRESSING KEY NUMBER "1" AND 
THEN THE "ENTER" KEY. 
...TRY IT. 

Fig. 5. First Screen Display 



TITLE. . .GENERAL MEDICAL HISTORY 

FOR 
Doe John E. 
THIS HISTORY INCLUDES ITEMS COVERED IN A COMPLETE GENERAL MEDICAL HISTORY. 
THERE IS SLIGHT QUALIFICATION OF ABNORMALITIES AND ONLY POSITIVES ARE INCLUD- 
ED IN THIS REPORT. 

CHIEF COMPLAINT. 
ON February 1, 1982, THE PATIENT TOOK A SELF-ADMINISTERED COMPUTER HISTORY. PA- 
TIENT IS A 47 YEAR OLD MALE WHO STATES HIS REASON FOR THE VISIT AS: "Annual 
Physical". 

PERSONAL AND SOCIAL HISTORY. 

A. MARRIAGE. 

NO DIVORCE OR SEPARATION 

HAS BEEN SEPARAtED 

HAS BEEN DIVORCED. 

2 CHILDREN. 

PRESENTLY MARRIED & LIVING WITH SPOUSE. 

SPOUSE IN GOOD HEALTH. 

SPOUSE DOESN T HAVE PAYING JOB 

B. OCCUPATION-Computer programmer. 



VII. REVIEW OF SYSTEMS. 

A. ALLERGY (POSITIVES ELICITED BY HISTORY). 

PENICILLIN RECEIVED-NO ADVERSE REACTIONS. 
NO ADVERSE REACTIONS AFTER ASPIRIN. 

NOT CHARACTERIZED. 
NO ADVERSE REACTION TO TETANUS SHOTS. 

NO ADVERSE REACTIONS TO OTHER DRUGS. 

I. GASTROINTESTINAL. 

GALLBLADDER DISEASE, PHYSICIAN DIAGNOSED. 

FREQUENT BELCHING. 

HEMORRHOIDS, 



Fig. 6. Partial Printout. 
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80 SPACE RAIDERS 
Starship Simulator 
and Combat Came 

This is the most realistic combat space simulation 
available for any computer system anywhere! 
Operator is placed in a rapidly moving ship looking 

out through a window into the depths of space. 
Thousands of stars appear in the distance and part 
toward the screen edges as the ship flashes past. 
Forward and aft views available at any time. Ac- 
curate celestial navigation using both XYZ and 
spherical Coordinates! Comment from Aug '81 80 
Microcomputing "May be the ultimate Star Tref 
type oaiTie and. possibly the most complex micro- 
computer game ever attempted"! Fast action 
graphics never stop! 

Now available for Model III! 

$24.95 (MasterCard, VISA, check, etc.) 

includes shipping. COD OK 

Specify Model t or III, Level 2 16K 
Bosen Electronics 
445 E. 800 N. 
Spanish Fork, UT 84660 
(801)-798-9553 " ™ 



LETTER-WRITER 

^WORK* for YOU 




YOU can""produce forms, labels, form letters 
and Add/Subtract columns. 

Change, delete, add, insert, move, copy 
characters, lines and blocks of text. 

Set even margins, page lengths, center 

lines, get 1 to 99 copies. Numbered Lines 

for legal papers. 

Try the LW for 3 months. If not sat- 
isfied return it. We will Refund all but 
S3. 50 to cover rent/postage. 



TAPE $23.99 DISK Model iorm$37.99 



FREE 

Coteiiog 



Prices include tax/postage. Needs 16K. 
. . - Mod I & III 

5905 Stone Hill Or 
Rocklin, CA 95677 

13 24 HRS 1(800)824-7979 

call toll-free 1(800)952-5656 in Ca\., 



sSee List ol Advertisers on page 402 




EDU-WARE EAST 
P.O. Box 336 

Maynard, MA. 01754 
617-568-8641 




>-295 



MATH-PAK-1: MATH-PAK-2: MATH-PAK-3 

Interactive drill programs where you enter the answers 
digit by digit, just like paper and pencil. With user 
selected difficulty levels, carryovers, reducing, simpli- 
fication, pointing off, scoring, games, and more. Used 
by schools everywhere. Order MATH-PAK-1 for inte- 
gers, MATH-PAK-2 for fractions, MATH-PAK-3 for 
decimals. (L2-18K) $14.95 ea. 

H-O-R-K-S 

Low cost, single entry accounting system for the home 
or office. With 66 user assigned account codes, auto 
audit trail, search with totals, 32 or 48K, 1 to 4 drives, 
credit and debit summaries with 3 options, up to 9200 
entries. $24.95/cassette $29.95/dlsc 

INVENTORY -f- 

Why settle for just an Inventory listing? Get aging 
reports with 2 options, reorder, total listings with pur- 
chase dates and amounts, total costs, Items sold, pro- 
fit/loss and more. Use as a stand alone system with 
dally updates, delete, change, and file packing 
routines. (32K - 1 disc minimum) $24.95/cassette 

S29.95/dlsc. 

CASH REGISTER 80 

Use your TRS-80 as a point of sale terminal with 
automatic Inventory lookup, pricing, update, and more. 
Print sales slips with user adjusted formats, end of 
day reports with all cash, charge, and check sales by 
salesperson. CR80 requires INVENTORY+, 48K, and 
1 disc minimum (2 drives recommended). 

S24.9S/cassette S29.95/dlsc. 



Mass residents and 5% tax. VISA, M.C., AND PHONE 
ORDERS ACCEPTED. Dealer Inquiries Invited. Over- 
seas orders add $2.00 for air shipment. TRS-80 Is a 
trademark of Tandy Corp. 



Electronic 

Circuit 

Analysis 



Detailed analog circuit analysis 

Fast, machine language 

Infinite circuits on multiple passes 

Worst case analysis 

Dynamic modification 

Full tile handling 

Built in chaining and spooling 

facilities 

Frequency response, magnitude and 

phase 

Complete manual with examples 

Full support 

A truly professional program with 

features previously available only on 

large systems 

TRS-80 model I or model 111, disk or 

cassette. $75.00 



Tatum Labs 
P.O. Box 722 
Hawleyville, CT 06440 



TRS-80 is a trademark of 
ot Tandy Corp. 
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TANDY CORP. RADIO SHACK 

TRS-80 MOD III 

? SS 40 TK Drives 

$1 79500 

MODEM 
1200 BAUD 

Auto Answer 

Auto Dial 

RS-232 Direct Couple 

Auto Mode 

$34900 

^r 

Dial our Bulletin Board 
1-713-995-8531 

KELSON DELPHI 

7311 Bellerive. Suite 1025 

Houston. Texas 77036-3199 

(713) 995-4734 

Wi- aw i" M.ueiCud. Visa. Amccan Express, and oiih 

^334 
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DEALER INQUIRIES WELCOME 






"THE SOURCE" Fo 

Personal Computer Software 

Books Games & 

Accessories 



ire. I 



DEPT C2. 1025 INDUSTRY DB BtNi 



ULE. IL 60106-129? 
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by Bruce Douglass 



. . . algebra is the quantitative 
language of how things are, 
or how they will be, given 
a static set of conditions." 



One of the most astonishing things I 
have seen is people afraid of a little 
calculus— a little cute, baby calculus, as 
if it had claws and fangs! A calculus is ac- 
tually a very friendly creature. The fact is, 
almost everyone uses calculus in daily life. 

Algebra 

Algebra, which has been around for at 
least 2000 years, evolved to help humans 
deal with the world. 

Suppose you are a sheepherder for 100 
sheep. Each little darling eats grass from 
10 square meters per day; you need some 
idea of how much space all your sheep 
need. You must solve the problem for an 
unknown using the symbolic manipulative 
techniques of mathematics that go by the 
name of algebra. 

Specifically, algebra is the quantitative 
language of how things are, or how they 
will be, given a static (i.e. unchanging) set 
of conditions. 

Calculus is analogous. It was invented 
around 1750 independently by two mathe- 
maticians, Newton and Leibniz. A crucial 
extension of the language we call algebra, 
calculus deals with how things change. 

Take it to the Limit 

A function's limit is the value that func- 
tion approaches as its independent vari- 
able approaches another value. For exam- 
ple, take f(x)= 1/x. What is the limit of f(x) 
as x approaches infinity? That is, what 
value does f(x) approach when x gets larg- 
er and larger without limit? If you take a 
few trial values, you can easily see that 
f(x) approaches zero as x approaches in- 




Fig. 1.y = f(x). 




finity. How about the limit of f(x) as x gets 
close to 0? This is a more interesting ques- 
tion, since we all know the computer does 
not like to divide by 0. Take a few trial 
values, such as 1/2, 1/10, 1/100 and 1/400. 
What is f(x) doing all this time? That's 
right, f(x) approaches infinity as x gets 
close to zero. 

So, the limit of a function is the value it 
approaches as the independent variable 
(in our example, x) approaches some 
value. How does this help us understand 
differential calculus? 

Derive a Derivative 

Figure 1 is a graph of some function. 



The derivative (also known as the dif- 
ferential) is the slope of the line tangent to 
the function at some point. How can we 
get a tangent line? If we draw a line be- 
tween two points on the curve we have a 
secant line. Say we want to know the de- 
rivative at f(c) (the value of f(x) when x 
equals c). 

The obvious approach is to take a se- 
cant line with the value x equals c some- 
where between the two x values. If they 
are close enough, this secant line is a 
good approximation to the derivative of 
f(x) at x. If they are not close enough we 
can take two different values for x closer 





-I0 -8 -6 -4 -2 



Fig. 2. Tangent line. 



Fig. 3. y = x!2. 
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INTERACTIVE CONTROL LANGUAGE 

Imagine someone smart standing by, as you work with a computer, ready 
to assist you with advice as well as to take over part of your work! This is 
what ICL does— perfect "middleman" which stands between user, DOS 
and application programs. 



ICL AT A GLANCE 



ICL monitor —DOS— like command level for execution of DOS com- 
mand, /CMD files and /ICL procedures. Fast efficient 
and convenient in use. 

Basic functions— automation of work with computer, software enhancer 
ment/customization, interfacing of different programs. 

Basic features —intelligent operation, virtual keyboard and display I/O, 
control interception. 

Language —commands, variables conditionals, literals. 

Package — 32K and 48K versions, lots of examples, 8 ready to use 

procedures, 57 page manual. Same version works with 
both models and all operating systems. 

DOSreouired --TRSDOS" — NEWDOS/2V -NEWDOS/80" 

Min hardware — 32K 1 drive TRS-80 Model I or Model III- 

Price -$34.95. 



The INTERACTIVE CONTROL LANGUAGE is an entirely new software. 
It gives you unprecedented power to customize and improve your soft- 
ware and make it work the way you want it to work! ICL is so universal, 
flexible and multifunctional it becomes a necessity for every micro- 
computer user no matter what is the application— business, science, 
education or just hobby! 



.-•':,ii 



Immediate delivery 

Order now — only $34.95, manual alone — $10.00 

Add $1 .50 s/h (check or money order) 




XYZT COMPUTER DIMENSIONS INC. 
2 PENN PLAZA, Suite 1500 
NEW YORK, N.Y. 10121 



Write for more information 
®_ registered trademarks. 



DISK DRIVE WOES? 
PRINTER INTERACTION? 
MEMORY LOSS? 
ERRATIC OPERATION? 

Don't — * 

Blame The 
Software! — ~ * 

Power Line Spikes, Surges 8 ":'" 

Hash could be the culprit! Pat - * A <*»<" K > 

Floppies, printers, memory & processor often interact! Our 
patented ISOLATORS eliminate equipment interaction AND curb 
damaging Power Line Spikes, Surges and Hash. Guaranteed! 

• ISOLATOR (ISO-1) 3 filter isolated 3-prong sockets; integral 
Surge/Spike Suppression; 1875 W Maximum load, 1 KW load 
any socket $69.95 

• ISOLATOR (ISO-2) 2 filter isolated 3-prong socket banks; (6 
sockets total); integral Spike/Surge Suppression; 1875 W Max 
load, 1 KW either bank $69.95 

• SUPER ISOLATOR (ISO-3) similar to ISO-1 except double 
isolation & Suppression $104.95 

• SUPER ISOLATOR (ISO-1 1) similar to ISO-2 except double 
isolation & Suppression $104.95 

• MAGNUM ISOLATOR (ISO-17) 4 Quad Isolated sockets; For 
ULTRA-SENSITIVE Systems $181.95 

• CIRCUIT BREAKER, any model (Add-CB) Add $9.00 

. CKT BRKR/SWITCH/PILOT (-CBS) Add $17.00 

AT YOUR MasterCard, Visa, American Express 

DEALERS ORDER TOLL FREE 1-800-225-4876 

(except AK, HI, PR & Canada) 



/*& Electronic Specialists, Inc. 

171 South Main Street, Natick. Mass. 01760 
Technical & Norf-800: 1-617-655-1532 ^ 159 



iBIIiii 
SIP 

sis 









lylSNOWSMA 

aydayhas established itself as the best protection against 
power interruptions to most mini /micro-computers 

layday now has all the features you asked foi 



825^ 



mi 



ESehb 



m 




m 



nt voltage regulated < 

• I/O port which tells computer 

• High,low and charge LED indicators 

• Low battery audible alarms and UPS shutdown 

• High start up capability for hard disk 

• Zero crossing DC feature that handles any 
type of computer power supply 

• New three stage sense circuit tha 
'rom all types of power failure! 

ductive kickback 




**See List of Advertisers on page 402 
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Copernica Mathemat tea 



to x equals c, and still have x equals c be- 
tween them. In fact, we can take the limit 
of the difference of these two points' Y 
values (i.e. f(a) and f(b)) divided by the dif- 
ference (b-a). As the two points come 
closer and closer together, the value of 
the function evaluated at those points will 
come closer and closer to f(c). We can 
come infinitesimally close; when that is 
so, the slope of the line is the derivative, 
if you look at Fig. 2, you will see the 
tangent line to our function at x equals 
3.5. Directly above the tangent is a line 
almost parallel to it, intersecting the curve 
at two points. This line is the secant. As 
we take the two points of intersection 
closer and closer to the single point of in- 
tersection of the tangent line, the secant 
line becomes a better approximation of 
the tangent. If the first point is f(x), then 
the second point is f(x + h). What is the 
slope of the line between f(x) and f(x + h)? 
Remember the rule from geometry: slope 
equals rise/run. The rise is f(x + h) - f(x) 
and the run is (x + h)-x, or simply h. 
Therefore the slope is (f(x + h) - f(x))/h for 
any increment h, however small. As we 
make h smaller and smaller, the slope ap- 
proaches the derivative. Therefore: 

Lim (f(x + h) - f(x)l _ df _ Hx) 

h-0 h dx 

The expression df/dx is not a fraction. It 
means the derivative of fix) with respect to 
x, or more simply, how much f(x) changes 
when x changes. 

Several rules ease finding derivatives, 



but they can always be found (if they exist) 
by the limit method. Unless you express 
an interest in the analytical approach (i.e. 
the method when performing operations 
by hand), I will stick with how they are 
done on the computer. 

Now, how do you find derivatives on a 
computer? Simple! You must define a few 
things in your program first: 

» The function 

• The value at which you wish to know 
the derivative 

• The increment value, h 

The short program below does this (see 
Listings 1-2). If you have Disk Basic, use 
the DEF FN capability. If you are a Level II 
usei you must use a subroutine. 

You are asked for the value of x; h is 
defined as .001 times x. This makes sure 
that h is small compared to x. If, however, 
this causes an underflow (or the value of x 
is zero), then we define h to be 0.000001. 
The function is evaluated twice (with h 
added and with h subtracted) and these 
are subtracted. The difference is divided 
by2*h. 

This method is foolproof provided the 
function exists at x + h and x - h, and the 
derivative exists and is non-infinite at f(x). 

Quiz: What would it mean geometrically 
M the derivative were infinite? That's right. 
the tangent line would be vertical, and 
therefore its siope would be infinite. 

Higher Order Derivatives 

Higher order derivatives are simply 
derivatives of derivatives. We know the 



FN 



5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 



REM DERIVATIVE OF FUNCTION PROGRAM A 

REM FOR LEVEL II BASIC WITHOUT THE DEF 

CLS:PRINT TAB ( 16) ; "DERI VATI ZER" 

PRINT"THE FUNCTION SHOULD BE DEFINED IN LINE 5110" 

INPUT"ENTER THE VALUE AT WHICH YOU WANT THE DERIVATIVE" ; XI 

H=.001*Xl : IF H=0 THEN H=lE-5 

X=X1+H:G0SUB 5100:Y1=Y 

X=X1-H:GOSUB5100 

D=(Yl-Y)/2/H 

PRINT"THE DERIVATIVE OF THE FUNCTION AT 

END 

Y=SIN{X) 'SAMPLE FUNCTION 

RETURN 

Program Listing 1. 



";X1;" IS ";D 



5000 REM DERIVATIVE OF FUNCTION PROGRAM A 

5010 REM FOR DISK BASIC WITH THE DEF FN CAPABILITY 

5020 DEF FNY(X)=COS(X) 'SAMPLE FUNCTION 

5030 DEF FND(X,H)=(FNY(X+H)-FNY(X-H))/2/H 'DERIVATIVE FUNCTION 

5040 CLSiPRINu' TAB ( 16) ; "DERI VATI ZER" 

5050 PRINT"THE FUNCTION SHOULD BE DEFINED IN LINE 5020" 

5060 INPUT"ENTER THE VALUE AT WHICH YOU WANT THE DERIVATIVE" ; X 

5070 H=.001*X : IF H=0 THEN H=lE-5 

5090 PRINT"THE DERIVATIVE OF THE FUNCTION AT ";X;" IS ";FND(X,H) 

5100 END 

Program Listing 2. 



first derivative is the rate of change of f(x) 
with respect to a change in x. The second 
derivative is the rate of change of the first 
derivative with respect to x. Let's examine 

what this means 

Since the first derivative is the slope of 
the tangent line, the derivative of a line 
would simply be the slope of that line. 
That is, if f(x) = a*x + b, then df/dx = a. We 
will shift our notation slightly and refer to 
df/dx as V (x). The second derivative (f"(x)) 
is the rate of change of the derivative. 
Since the slope of a straight line is, by de- 
finition, a constant, the second derivative 
must be zero. That is, the rate of change 
of f(x) with respect to x never changes as x 
changes. All other functions have a non- 
zero second derivative if they have one 
at all. 

As an example of a second derivative, 
let's repeat an experiment made by Gali- 
leo. We climb to the top of a tower and 
drop an object to the ground. The position 
of the object is a function of time. How 
fast it is moving at a given time is called 
its speed. Recall that this is the first 
derivative of the position function with 
respect to time; that is, it is an answer to 
the question "How much does the posi- 
tion of the object change with a change in 
time?" 

Now, remember that gravity is an ac- 
celerating force. The longer something is 
allowed to be pulled down by gravity 
(disregarding air currents), the greater its 
speed. That means that the object's 
speed is not a constant, but depends 
upon the length of time the object has 
been falling. So, we can find the second 
derivative by taking the derivative of the 
speed with respect to time. To put it an- 
other way, we can see how much the 
speed changes with a change in time. This 
change is called acceleration. 

The parabola f(x) = xt2 has the first 
derivative f'(x) = 2*x. The slope of the 
tangent line is itself a linear function of x. 
Look at Fig. 3: I have drawn two different 
tangent lines, and as you can see, their 
slopes vary as x varies. The second deriva- 
tive turns out to be. in the case of the 
parabola, two. The third derivative is zero. 
Many functions have infinitely many 
non-zero derivatives (for example, the trig- 
onometric functions SIN(X) and COS(X)). 
But leaving that aside for now, how on 
earth do we calculate a second derivative 
of a function? 

The same way we got the first deriva- 
tive! F(x) is some function of x. If f'(x) ex- 
ists, then it is also a function of x. There- 
fore, apply our limit definition to f'(x) to 
produce f"(x). Simple? We can do this as 
often as we need or want to, provided the 
derivatives exist. I will show some ex- 
amples later that fail at some values of x. 
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There is a problem of accumulating er- 
rors in the derivatives using this finite dif- 
ference method. Each time we approxi- 
mate a derivative, any error is carried to 
any calculation that uses it, including 
finding a higher-order derivative. Error 
propagates and accumulates. 

In the calculations, remember that 



f'(x) = (f(x + h)-f(x))/h. If we use another 
small increment k, we can derive the sec- 
ond derivative of f(x) as follows: 

f'(x) = ''(x + k) - ''(x) = f(x + h + k)-f(x + k) _ f(x + h)-f(x) 
k h h 

k 

Since h and k are arbitrarily small incre- 



10 REM NEWTON'S ITERATION METHOD 

20 REM FOR LEVEL II BASIC WITHOUT THE DEF FN CAPABILITY 

30 DEFINT M,I:G0T0 100 

40 REM FUNCTION AND DERIVATIVE SUBROUTINE 

50 Y=COS(X) 'SAMPLE FUNCTION 

60 RETURN 

70 X=X1+H:GOSUB5 0:Y1=Y:X=X1-H:GOSUB50:Y2=Y 

80 D=(Yl-Y2)/2/H 'NUMERICAL DERIVATIVE FUNCTION 

90 RETURN 

100 CLS:PRINT"THIS PROGRAM ASSUMES THAT THE FUNCTION IS DEFINED 

AT LINE 50. IT USES NUMERICAL DERIVATIVES, AS DEFINED 

IN LINE 80" 

110 PRINT: INPUT"ENTER INITIAL GUESS OF ROOT", -XI 

120 C=1E-5:INPUT"ENTER CONVERGENCE CRITERION" ;C 

130 M=20: INPUT"ENTER MAXIMUM NUMBER OF ITERATIONS" ;M 

140 REM START LOOP 

150 FOR 1=1 TO M 

160 H=.001*Xl:IF H=0 THEN H=lE-5 

170 X=Xl:GOSUB 50: IF ABS(Y)<C THEN GOTO23 

180 GOSUB 70 

190 IF D=0 THEN D=lE-5 

200 Xl=Xl-Y/D 

210 NEXT I 

220 IF ABS(Y)>C THEN PRINT "CONVERGENCE NOT ACHIEVED" 

230 PRINT"NUMBER OF ITERATIONS IS ";I-1 

240 PRINT"COVERGED TO ";Xl 

250 PRINT "VARIANCE IS ";Y 

260 PRINT"DERIVATIVE AT THE ROOT IS ";D 

270 PRINT" (1) TRY AGAIN WITH A NEW X OR (2) END" 

280 A$=INKEY$:IF A$=" n THEN 280 ELSE A=VAL(AS):IF A<1 OR A>2 THEN 

290 IF A=l THEN 100 ELSE END 

Program Listing 3. 



280 



REM NEWTON'S ITERATION METHOD #2 

REM FOR LEVEL II BASIC WITHOUT THE DEF FN CAPABILITY 

DEFINT M,I:GOTO 90 

REM FUNCTION AND DERIVATIVE SUBROUTINE 

Y=COS(X) [2 'SAMPLE FUNCTION 

REM ANALYTICAL DERIVATIVES HERE 

D=-2*COS{X) *SIN(X) 'ANALYTICAL DERIVATIVE FUNCTION 

RETURN 

CLS:PRINT"THIS PROGRAM ASSUMES THAT THE FUNCTION IS DEFINED 

LINE 50. IT USES NUMERICAL DERIVATIVES, AS DEFINED 

LINE 70" 

PRINT: INPUT"ENTER INITIAL GUESS OF ROOT";X 
i C=lE-4: INPUT" ENTER CONVERGENCE CRITERION" ; C 
I M=20: INPUT-ENTER MAXIMUM NUMBER OF ITERATIONS" ;M 
I REM START LOOP 
I FOR 1=1 TO M 

I GOSUB 50: IF ABS(Y)<C THEN GOTO200 
i IF D=0 THEN D=lE-5 

I X X-Y/D 'X(N)=X(N-1)-F(X(N-1) )/F' (X(N-l) ) 
I NEXT I 

IF ABS(Y)>C THEN PRINT "CONVERGENCE NOT ACHIEVED" 
I PRINT: PRINT"NUMBER OF ITERATIONS IS ";I-1 
I PRINT"COVERGED TO ";X 
I PRINT "VARIANCE IS ";Y 

I PRINT"DERIVATIVE AT THE ROOT IS ";D 
I PRINT" (1) TRY AGAIN WITH A NEW X OR (2) END" 
l A$=INKEY$:IF A$= M " THEN 250 ELSE A=VAL(A$):IF A<1 OR A>2 THEM 

IF A=l THEN 90 ELSE END 



250 



Program Listing 4. 



ments, we can set h equal to k and deduce 
the following: 

f „ w _ f(x + 2-h)-2.f(x + h) + f(x) 

ht2 

A similar process produces the third and 
higher order derivatives. Note that we get a 
Pascal's triangle for the coefficients with 
alternating signs. 

Problem Functions 

Take the function f(x) = 1/x, and try to find 
the derivative at x equals 0. You cannot, 
since the function itself doesn't exist. Try 
the derivative of SQR(x). SQR(O) is perfectly 
legitimate, but the derivative of this func- 
tion does not exist at x equals 0. Go ahead 
and try it. 

Now For a Use 

"Well," you might say, "So what?" 

"Well," I might reply, "we can use this 
derivative to construct a better equation 
solver!" The method is called the Newton 
(or Newton-Raphson) iteration method. 
This procedure converges much more 
rapidly than others such as the bisect 
method (provided you are sufficiently 
close to the solution). Called a quadratic 
method because the value of the error 
term decreases by a square with each 
iteration, it adds almost two digits of ac- 
curacy with each iteration. In fact, if this 
method does not converge within 20 itera- 
tions, it probably won't converge at all. 

Figures 4-5 show the outline of the 
method. In Fig. 4, we see a function 
graphed. We want to know the zero or root 
of the function (the value of x that makes 
f(x) zero, or where it crosses the x-axis is 
called the "zero"). Notice that all points 
on the curve have the coordinates (x,f(x)). 
Near the tangent line to the curve at some 
point X0, the tangent line is a good ap- 
proximation to the curve itself, although 
outside of this vicinity, it is a rather poor 
approximation. The linear function M(x) = 
f '(x)(x - xO) + f(x0) is close to what f(x) is 
around the x value XO. In fact, at XO, M(x) = 
f(x). Since these functions are approxi- 
mately the same, the zeros of these func- 
tions must also be approximately the 
same. We can use the zero of M(x) to ap- 
proximate the zero of f(x). If we let x1 be 
the zero of M(x), then x1 = xO - f(xO)/f'(xO). 
This is the value of x1 on Fig. 5. In our par- 
ticular example, the initial guess was 
x0 = 4. The next approximation is the x 
value where the tangent line. crosses the 
x-axis. Repeating the method using x1 in- 
stead of xO gives us x2. We repeat the pro- 
cedure until close enough to the solution, 
as defined by our convergence criterion. 

The type of function with which you can 
find as many derivatives as you like 
around some value XO, is called analytic 



80 Microcomputing, March 1982 • 361 



Copernico Mat hemaf tea 



tl""**?£S0 



at XO. All functions that do not allow it at 
some point XO are called non-analytic at 
XO. Note that a function may be analytic 
everywhere but a single point (in the case 
of SQR, it is non-analytic at x equals 0), or 
a finite set of points, or everywhere. Most 
functions that we deal with on a daily 
basis are analytic, but watch out for 
singularities (points at which a function is 
undefined or is infinite). 

Since xO is approximately correct, we 
must be somewhere close to the zero of 
f(x), and x1 should be a better estimate 
than xO was. Note that we use the same 
approach— we have our line M(x) equal 
f'(x1)(x-x1) + f(x1), and find its zero, 
x2 = x1 -f(x1)/f'(x1), and so on for x3 and 
x4. X2 is a better approximation to the ac- 
tual /ore than xl. and x3 is a better ap- 
proximation, than x2. 

The Newton method, one of the sim- 
plest for solving equations around, has 
one of the fastest convergence rates. It is 
sometimes difficult to satisfy the require- 




Fig. 4. y = xt3 + x. 




Fig. 5. Newton Method. 
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Fig. 6. y = Arctran (x). 



merit- of being sufficiently close; it^may be 

necessary to resort to another method. An 
example of this type of function is shown 
in Fig. 6, f(x) = ARCTAN(x). X1 (-25.6, 
which is off the scale of the figure) is so 
far away from the actual zero (0.00) that 
when you repeat the procedure, you actu- 
ally diverge rapidly from the zero. This is 
because the trial point chosen was too far 
away. Set a-ceiling on the number of itera- 
tions, or, check to see if the distance be- 
tween sucessive terms is, indeed, becom- 
ing less. ■ " -. . 



The following short program allows you 
to solve for the zeros of equations. Four 
versions are included; you may easily con- 
figure it to your system (see Program List- 
ings 3-6). Versions 1 and 3 allow you to 
put in the analytical (as distinct from nu- 
merically calculated) derivatives, either as 
a DEF FN FP(DEFine FuNction FP) or as a 
shoe subroutine. Versions 2 and 4 allow 
you to numerically calculate them. If you 
have muMATH (the microsoft TRS-80 
learning tool), use it to solve for 
derivatives and then put them into the 



10 REM NEWTON'S ITERATION METHOD PROGRAM #3 

20 REM FOR DISK BASIC WITH DEF FN CAPABILITY 

30 DEFINT M,I' • • 

40 DEF FNY(X)=COS(X) 'SAMPLE FUNCTION 

50 DEF FND(X,H)=(FNY(X+H)-FNY(X-H))/2/H 'DERIVATIVE FUNCTION 

60 CLS: PRINT "THIS PROGRAM ASSUMES THAT THE FUNCTION IS DEFINED 

AT LINE 30. IT USES NUMERICAL DERIVATIVES, AS DEFINED 

IN LINE 40" - " „ . /.'..'. 

70 PRINT: INPUT "ENTER INITIAL GUBSS OF ROOT";X 

80 C=lE-5:TNPUT"ENTER CONVERGENCE CRITERION" ;C 

90 M=20:INPUT"ENTER MAXIMUM NUMBER OF ITERATIONS" ; M 

100 REM START LOOP ' -. • 

110 FOR 1=1 TO M 

120 H=.001*X:IF H = THEN H=lE-5 ,' 

130 - IF ABS(FNY(X))<C THEN GOTO17 

140 X=X-FNY(X)/FND(X,H) . v 

150 NEXT I 4 ' 

160 IF ABS(FNY(X) )>C THEN PRINT" CONVERGENCE NOT ACHIEVED" 

170 PRINT"NUMBER OF ITERATIONS IS ";I-1 

180 PRINT" COVE RGED TO ";X. 

190 PRINT "VARIANCE IS ";FNY(X) 

200 PRINT"DERIVATIVE AT THE ROOT IS ";FND(X,H) 

210 PRINT" (1) TRY AGAIN WITH A NEW X OR (2) END" 

220 A$=INKEY$:IF A$ = "" THEN 220 ELSE A=VAL(A$):IF A<1 OR A>2 THEN 221 

230 IF A=l THEN 60 ELSE END 

Program Listing 5. 



10 REM NEWTON'S ITERATION METHOD #4 

20 REM FOR DISK BASIC WITH DEF FN CAPABILITY 

3 REM AND ANALYTIC DERIVATIVES 

40 DEFINT M,I ' 

50 DEF FNY(X)=COS(X) [2 ' 'SAMPLE FUNCTION 

60 DEF FND(X)=-2*COS(X)*SIN(X) 'ANALYTICAL DERIVATIVE FUNCTION 

70 CLS: PRINT "THIS PROGRAM ASSUMES THAT THE FUNCTION IS DEFINED 

AT LINE 30. IT USES NUMERICAL DERIVATIVES, AS DEFINED 

IN LINE 40" , " •■••• 

80 PRINT: INPUT"ENTER INITIAL GUESS OF ROOT";X 

90 C=lE-5: INPUT "ENTER CONVERGENCE CRITERION" ;C 

100 M=20:INPUT"ENTER MAXIMUM NUMBER OF ITERATIONS" ; M 

1 1 REM START LOOP 

120 FOR 1 = 1 TO M . . ' . ■ 

130 DE=FND(X): IF DE=0 THEN DE=lE-5 

14 IF ABS(FNY(X))<C THEN 170 

15 X=X-FNY(X)/DE 

160 NEXT I ' ' ■ • ■ 

165 IF ABS(FNY(X) )>C THEN PRINT"CONVERGENCE NOT ACHEIVED" 

170 PRINT"NUMBER OF ITERATIONS IS ";I-1 

180 PRINT"COVERGED TO " ; X 

190 PRINT "VARIANCE IS ";FNY(X) 

195 PRINT "THE DERIVATIVE AT THE ROOT IS n ;FND(X) 

200 PRINT" (1) TRY AGAIN WITH A NEW X OR (2) END" 

210 A$=INKEY$:IF A$="" THEN. 210 ELSE A=VAL(A$):IF A<1 OR A>2 THEN 211 

220 IF A=l THEN 70 ELSE END 

Program Listing 6. 
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TODAY'S just another good reason to be a subscriber to the 
CompuServe Information Service. Because TODAY is a magazine 
published free-of-charge for our customers and also offered to 
others interested in the latest developments in the growing 
videotex industry. ' , ' 

TODAY includes new and current product and service , 
offerings on the System, technological developments at 
CompuServe and in the industry, customer profiles, features on 
information providers and announcements of special events. An 
extensive subject index appears in each issue. 

Ask for a demonstration of the 
CompuServe Information Service at a 
Radio Shack® Computer Center. Videotex 
software is available for various brands 
of personal computers. CompuServe 
Information Service, 50,00 Arlington „ 
Centre Blvd., Columbus,. Ohio. 43SS0. * 
(614) 457-8650 ' { 




TECO MONITORS 

RATED BEST BUY BY 
THE COMPUTER SHOPPER 



NOW AN EVEN BETTER BUY 

B & W MONITOR HIRES 1 1995 

GREEN PHOSPHOR HIRES 129.95 

GREEN PHOSPHOR ULTRARES 144.95 

TRS-80 CABLE 5.00 

5'.i" DISK DRIVES WITH PS & CASE . ..-. 289.95 

FROM 

THE MAINE SOFTWARE LIBRARY 
P.O. BOX 197 
STANDISH, ME 04084 



CHECK. MO. COD (20% DEPOSIT ON COD) 
ADD $10 SHIPPING FOR MONITOR. $6 FOR 
DRIVES 

LNW-80-OWNERS 

WE HAVE SOME TERRIFIC IDEAS 

AND PRODUCTS TO MAKE T'hiS 
GREAT COMPUTER EVEN BET- 
TER. WRITE TO US FOR PACK- 
AGE BEFORE YOU BUILD. 

v* 196 
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This smart little program lets 
ou talk back to big computer 



Scripsit,™ Pencil,™ 

BASIC and source 

code files. 



Continuous 
status display. 



User-friendly 
operation. 



User-defined sign-on 

and communications 

settings. 



Transmits 

special and control 
characters. 



Handy menu 
of commands. 




., Way to talR wlW^ourte w CbTT'puser\'e,' 
other computers and a variety of bulletin board systems. COMMWHIZ'is. so - 
simple to use, you'll wonder why it hasn't been done before. Yet it offers 
professional- terminal capabilities to Mod I and Mod III users who have32K 
with one diskormore. And at the COMMWHIZ price of $79.95 post-paid, 
talk is cheap. (VA residents add 4% sales tax). 

NAME.. _1 

CITY..... 



STREET ■_ 



SIAit. 



ZIP 



□ Modi □ Mod III DVISA DM/C □ Checker m/o enclosed. D Send me more info. 

-Acct. # = j :l-:i-* Expiration Date — 

Signature- 



TRS-80 and Scripsit die TMs of the Tandy Corp. -Electric Pencil is the TM cf Michael Shrayer Software he. 

VolksMicro Computer Systems Inc. 

202 Packets Court, Suite C, Williamsburg, VA 23185 804-220-0005 ^549 

■ See List of Advertisers on page 402 
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IS YOUR MICRO TOO 



THEN 




ENLARGE 



Why the S- 100 (IEEE 696. ij Bus Standard"* 

• it will turn, your MICRO into a computer with the 
capability ot a MINI. 



• You add as much MEMORY as needed (add 1. 
2 or more 64K RAM boards). 



.-*.;;;,; :. . <n ■ ; ., , , .... :< ;:..'; HARD y ■ : ! 

py disc CAPACITY as you need. 



• Add a high-density COLOR-GRA PHICS board 
and much MORE! 



• These boards just PLUG INTO your system- 

provided you have an S-100 mainframe and 
an interlace adapter Horn {^qmputeP Wit. 

.• hor TRS-80 Pet & others. 

• From $95. mainframes from $310. Catalog $1 

(refunded with order) 
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Computer W77 

INCORPORATED 

6620 176tt Street S.W. 

tnnwootl Washington 98036 
(206) 743-4336 
formerly HUH 
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80 Microcomputing. March 1982 • 363 



• in ii lilMBiliniM 



Cope 



Basic program manually. 

Polynomials 

We now have routines and programs to 
solve for a root of some general equa- 
tions. We have not addressed the problem 
of finding all roots of an equation. In 
general, this is very difficult. An arbitrary 
function may behave erratically; our 



methods have a hard time zeroing in on all 
the zeros. But a special class of non-linear 
functions have fairly accessible zeros; 
these are the Polynomials. 

A polynomial is denoted P(N,X), where 
N is the order and X is the independent 
variable. P(N,X) is a sum of terms of the 
form An*XtN+ . . . +A1*X + A0. It is a 
sum of constant coefficients (the Ai's) 



times decreasing powers of X, where the 
highest power is N and the coefficient An 
is non-zero. An example of a second order 
polynomial is P(2,X) = 3*Xt2-1. 

P(N,X) has N roots, some of which may 
be repeated. The polynomial P(2,X) = Xt2 
+ 2*X + 1 has the repeated root X = - 1 . 
The algorithm I describe below is Horner's 
algorithm; we will use it in a program with 
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POLYSOLVER BY BRUCE POWEL DOUGLASS 
SOLVES FOR ALL REAL ROOTS OF A POLYNOMIAL 
BY NEWTON'S ITERATION AND HORNER'S METHOD 
AND REDUCES THE ORDER OF THE EQUATION BY 
SYNTHETIC DIVISION 



;I; " + "; :NEXT I : PRI 



REM 
REM 
REM 
REM 
REM 
REM 

CLEAR 100:CLS:PRINT TAB ( 1 6) ; "POLYSOLVER " 
PRINT TAB(10) ;"BY BRUCE POWEL DOUGLASS" 
DEFINT I-N 

I INPUT"ENTER THE ORDER OF THE EQUATION", -N 
N1=N 

DIM A(N) ,B(N) ,C(N) ,X(N) ,D(N) 
REM 
FOR I=N TO 1 STEP -1 

PRINT-ENTER THE COEFFICIENT OF X [ " ; I ; : INPUT A(I) 
NEXTI:INPUT"ENTER THE CONSTANT TERM VALUE" ;A(0) 
FOR 1=0 TO N:D(I)=A(I) :NEXT I 'SAVE ORIGINAL COEFF 
PRI NT : PRI NT : PRI NT 

PRINTTAB ( 10 ); "POLYNOMIAL TO BE SOLVED IS:" 
PRINT STRINGS(63,"- n ) 

PRINT "F(X)=";:FOR I=N TO 1 STEP -1: PRINT A(I);"X[' 
A(0) 
PRINT: PRINT 
GOTO 310 
B(N)=A(N) :FOR I=N-1 TO STEP -1 'EVALUATE FUNCTION 

B(I)=A(I)+B(I+1)*X 
NEXT I 'NOW GET DERIVATIVES 

C(N) =B(N) :FOR I=N-1 TO 1 STEP -1 

C(I)=B(I)+C(I+1)*X 
NEXT I 
RETURN 
FOR J=l TO N1:K=0 

PRINT"ENTER INITIAL VALUE OF ROOT #";J;: INPUT X 
GOSUB 240:IF ABS (B ( 0) )<lE-6 THEN 370 
IF C(1)=0 THEN C(l)=lE-4 

IF K>30 THEN 570 ELSE K=K+1 'MAX # OF ITERATIONS=30 
X=X-B(0)/C(1) :GOTO 330 
X(J)=X 
FOR 1=1 TO N 

A(I-1)=B(I) 
NEXT I:N=N-1 'REDUCE ORDER OF EQUATION 
PRINT"ROOT #";J;"=";X 
PRINT"REQUIRED ";K;" ITERATIONS" 
NEXT J 

REM NOW CORRECT FOR ROUNDOFF ERROR BY USING EACH OF 
REM THE COMPUTED ROOTS AS AN APPROXIMATION AND RESOLVING 
REM THE ORIGINAL EQUATION 
CLS:N=Nl:FOR 1=0 TO N: A ( I ) =D ( I ) : NEXTI 
FOR J=l TO N:X=X(J) 'GET COMPUTED ROOTS 

GOSUB 240 

IF ABS(B(0) )<lE-6 THEN 530 
IF C(1)=0 THEN C(l)=lE-4 
X=X-B(0)/C(1) : GOTO 490 
X(J)=X 

PRINT"ADJUSTED ROOT #";J;"= ";X 
NEXT J 
END 

PRINT"ROOT DID NOT CONVERGE AFTER ";K;" ITERATIONS" 
PRINT"CONVERGED TO ";B(0) 
PRI NT "RESIDUAL VARIANCE IS " ; B ( ) 

PRINT" IF THE ANSWER IS ACCEPATBLE, PRESS 'Y' ELSE PRESS 'N'" 
A$=INKEY$:IF A$=""THEN 610 ELSE IF A$="Y" THEN 370 ELSE IF A$="N" THEN 

GOTO 610 

Program Listing 7. Polysolver. 
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lust between you and us. . . 
We think we've got 

THE BEST 
TRS-80* MODEL III 
Disk System around! 
WHY? Here's three good reasons. 

1. VERSATILITY 

Our own proven, dependable drive controller board will give 
you the hardware to run almost any drive configuration you can 
imagine: 

• 5'A" and 8" drives in any combination. 

• Internal/external combinations (up to all 4 drives external). 

• Single- and dual-headed drive combinations. 

2. QUALITY 

• We chose MPI drives-fhe long-time leaden in (he Held. 

• We construct our own disk drive installation kits of heavy 
gauge steel— no shielding problems! 

• We designed independently regulated linear power supplies- 
fast and reliable. 

3. PRICE (including installation & 90-day warranty) 

• Drive controller board and first drive $679 

• Second (internal) drive $279 

• Third drive (with cable) $359 

• Fourth drive $329 

If these sound like really good deals but you don't have the Model III 
yet, we've got the answer. 

A TRS-80 Model III, 48K.TRSDOS, 2 MPI drives $1899 

— Fully tested with 90-day warranty — 
Dollar (or-dollar, we think this is the BEST IRS-80 system you can buy! 
We also stock for immediate shipment: 

MODEL III, 32K $899 

EPSON Printers, accessories & interfaces at Low, Low Prices 

We Now Accept Visa & Mastercard 
'TRS-80 is a Trademark of Tandy Corp. 

NEW LOCATION *" 

PROCESS CONTROL TECHNOLOGY 

8030 Lorraine Ave., Suite 328 • Stockton, California 95210 • (209)952-6576 



Make 
Money 
elling 





nicrocomputirig 



the only major journal for the users of the TRS-80*, a sure bet for getting the computer 
enthusiast into your store. Once through the door you can sell him anything. 

We know 80 will make you money . . . it's the only magazine for the TRS-80* users and you know how many 
of those there are. So call today and join the dealers who make money with 80. 

For information on selling 80 Microcomputing, call 603-924-9471 and speak with Ginnie Boudrieau, our 
Bulk Sales Manager. Or write to her at 80 Microcomputing, Pine Street, Peterborough, NH 03458. 



*TRS-80 is a trademark of Tandy Corp. 



sSee List ot Advertisers on page 402 



80 Microcomputing. March 1982 - 365 



Coperntct 




rico 



the Newton-Raphson iteration procedure 
to solve for all real roots of a polynomial. 
Note the reference to "real" roots. Com- 
plex roots or unstable roots may cause 
the program to fail to converge, so in the 
program below (Polysolver) I have set iter- 
ation maximums. 

Zeroing In 

In terms of the number of computa- 
tions, and in reference to accuracy of 
computation and run-speed of programs, 
it is always advisable to nest parentheses 
when evaluating polynomials. For exam- 
ple, you could compute the value of 
P(3,X) = 2*Xt3-3*Xt2 + X-2 by substi- 
tuting the value for X in each term, raising 
it to the given value, and then multiplying 
it by the constant. Finally, add all the 
terms for the answer. An alternative ap- 
proach is to nest the equation to minimize 
the number of multiplications and arith- 
metic operations. This reduces roundoff 
error and greatly improves speed. The 
example, nested, would be: 

P(3,X)= -2 + X.(1+X.(2 + X.(-3 + 2.X») 

Multiply this; you will find the number of 
multiplications fewer than with the more 
obvious approach. This is especially im- 
portant on the TRS-80 where powers and 
exponents are only single precision. This 
approach enables you to work in double 
precision if you need greater accuracy. 

Nesting multiplications is called 
Horner's algorithm. In Polysolver, this is 
done by the program with the array ele- 
ments. Polysolver uses the A array to hold 
the coefficients of the polynomial being 
evaluated. The B array elements are de- 
fined by the relation B(K) = A(K) + B(K + 
1)*X, as K goes from N to zero. B(0) con- 
tains the value of the polynomial as a 
whole when the loop is iterated through 
from N to zero (step-1). That is, for a 



given value of X, running through the de- 
fining relation of the B elements is identi- 
cal to evaluating the polynomial using 
Horner's algorithm. 

Once we have used the Newton-Raph- 
son iteration to find one root (R1), we can 
define a new polynomial of degree N-1 by 
factoring out (X-R1) from P(N,X). Since R1 
is a root, (X-R1) factors out evenly, and all 
roots of the reduced polynomial are also 
factors of the original polynomial. We re- 
peat the procedure until we have N roots. 



"Complex roots or 

unstable roots 

may cause the 

program to 

fail to converge. . . ' 



This gives a polynomial of degree N-1, 
Q(N-1 ,X)*(X-R) = P(N,X). The method used 
is called synthetic division. 

Another elegant part of this algorithm is 
that the reduced polynomial Q(N-1,X) = 
P(N,X)/(X - R) is equal to the derivative of 
P(N,X) (called P'(N,X)) at the point of evalu- 
ation. This equality, not generally true, 
holds for the point of evaluation and a 
small area around the point of evaluation. 
This is actually a faster method of com- 
puting the derivative than that given previ- 
ously. Since we need it for the Newton- 
Raphson iteration, this is a quick way to 
find the derivative. This is the C array in 
the program Polysolver: C(1) is the ele- 
n'ieni actually containing ihe derivative of 
P(N,X) at the point. It is not C(0) since Q is 
a polynomial of order N-1. 



This procedure is sensitive to unstable 
roots. That is, some equations have roots 
that are "almost" complex rather than 
real; the accumulated roundoff error is 
enough that the program cannot find the 
second or third root. Round-off error fig- 
ures noticeably during the factoring. Even 
if you find N roots, they are less and less 
accurate the later you find them. Polysolv- 
er avoids this problem: It finds all roots 
and. with these roots as close guesses, 
resolves the original polynomial. Thus, 
while the error may be fairly large for the 
Nth root, it is made much more accurate 
by using the roots found in first iterations 
as an approximation to the real roots. The 
original polynomial and the Newton- 
Raphson iteration zero in on the real roots 
with greater precision. 

Polysolver (Program Listing 7) looks for 
N roots. If some roots are complex it will 
oscillate, unable to find them. After 50 iter- 
ations, it will give the value it did find, the 
number of iterations, and the option of ac- 
cepting the faulty value or inputting a new 
trial value. If it did not find the root be- 
cause of instability, it will still often ap- 
proach the root; the discrepancy may be 
eliminated during the last part of the pro- 
gram that adjusts the roots. If the roots 
are clearly complex or you are too far from 
any other real roots to find them, it allows 
you to choose another estimate. 

Use the program to solve the cubic 
equation: XT3 + 6*Xt2 + 1 1 *X + 6. You 
should find roots - 1, - 2, and - 3. As an 
example of an unstable equation, find all 
roots of XT4 - 3.1 *Xt3 - 1.53*Xr2 + 
12.427*X - 9.826. All roots are real, but ac- 
cumulated roundoff error won't let you 
find them using an iterative procedure. If 
you input as the trial value for X, the pro- 
gram converges to 1.6999. If you input 
again, it converges to -2. There are two 
more real roots --can you find them?B 




If you have no label handy, print OLD address here 
Call 



-^ Name 

-- 



Let us know 8 weeks in advance so that you won't miss a sin 

gle issue of 80 Microcomputing. ^ Address 

Attach old label where indicated and print new address t Citv_ 
in space provided. Also include your mailing label ^ 

whenever you write concerning your subscription. It 

helps us serve you promptly. Name 



I ! Address change only 
I ! Extend subscription 
[ I Enter new subscription 



I... Payment enclosed 
(1 extra BONUS issue] 

; J Bill me later 



Address 



City 



.State. 



Zip. 



print NEW address here: 



Call 



.State. 



1 year $24.97 Canadian $2797 US funds. Foreign surface $44.97 US funds, Foreign airmail please inquire 



Zip 
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TEXT ENHANCEMENT PACKAGE 




BTEXT 

BTEXT allows the creation and use of alternate character sets 
from BASIC. BTEXT includes 15 commands which can select 
character types, create sound, scroll the screen, print inverse 
characters, and control the cursor. 

BTEXT comes with two alternate character sets built in. 
These are large and very large alphanumerics created using 
graphics blocks. Using a program included in the package, the 

user can create new charac 

ter sets and control them 
using BTEXT Commands to 
produce alternate texts are 
SMALL LARGE and TEXT. 
Sound can be produced by 
using the BEEP command. 
Any of the alternate charac- 
ter sets can be made black- 
on-white using the BLACK 
command. The INVERSE 
command reverses the color = ^ ====== — ===== ^ ======= 

of everything on the screen. 

The screen can be filled with — 

a specified character X using 

— the FILL X command. The 
user can turn the cursor on 
or off in any character set. 
The PLOT X.Y command 
moves the cursor to the des- 
ignated point on the screen. 
The screen can be scrolled 
at two speeds, FAST or SLOW. 
The WINDOW command 
allows scrolling of the screen 
only in the section designat- 
ed by user. 





BTEXT TRS-80 Model I or Model III 
C.dssette: $ 1 9.95 



Diskette: $22.95 




GRAPHICS ENHANCEMENT PACKAGE 
FOR THE TRS-80 MODEL I AND MODEL III 

The TRS-80's Level II BASIC contains no easy to use, fast 
commands for handling graphics. GRBASIC 3.0 fills this void by 
adding a set of commands to Level 11 BASIC that allows line 
drawing, shape handling, circle generation, and sound genera- 
tion. Corner to corner lines are drawn in 8/ 1 00 of a second! 




All existing Level II programs are 
upward compatible with GRBASIC 
3.0. No existing BASIC commands 
are altered, and all GRBASIC com- 
mands are tokenized. GRBASIC 
includes versions of GRBASIC for 
1 6K. 32K. and 48K machines. SEDIT. 
a shape editor program, and MISSILE, 
a real-time arcade game written entire- 
ly in GRBASIC. 

If you own an original GRBASIC 
1.0. we will upgrade ilfor$5. 00 if 
you return the ORIGINAL tape or 
disk to us. 

Cassette versions are NOT com- 
patible with Disk BASIC! 

GRBASIC 3.0 Cassette and Manual 

GRBASIC 3.0 Diskette and Manual . 
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LDKAW: Draws or erases tines 
between .sets of coordinates. Coor- 
dinates may be chained. 

SDRAW..USING...: Draws or erases 
the designated shape at the des- 
ignated coordinates, including 
extended space. 

CIRCLE: Draws a circle around a 
designated center with a designated 
radius, including drawing in 
extended space. 

■ TURN: Rotates a shape, in 45 degree 
increments. 

SIZE: Sets the scaling factor for 
shape drawing. 

AUDIO: Sends modulated sound 
to speaker. 




SI 9.95 
S24.95 




MED SYSTEMS SOFTWARE 

P.O. BOX 3558 CHAPEL HILL, NC 27514 
TO ORDER, CALL 1 -800-334-5470 
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Data Acquisition 

and Control for the TRS-80* 

$180 ppd. 

The STARBUCK-8882 is a complete eight channel 
data acquisition and control system, plug 
compatible with the Model I Level II TRS-80. It 
includes 8 protected analog inputs (0-5 Vdc with 
8± 1 bit accuracy). 8 protected digital inputs. 8 
optoisoiated digital outputs, and two joystick 
ports. Interrupt-dnven software package allows 
simultaneous data acquisition and storage while 
using the TRS-80 for any other purpose! 

Application manual covers home security, energy 
monitoring, weather station use, appliance 
control, graphics and games. Price includes 
case, power supply, extra expansion card edge, 
connector cable, complete software package and 
detailed applications manual. Manuals only are 
available for $4.00 ppd. Model III version also 
available. To order, write: 

STARBUCK DATA CO. 

. P.O. Box 24. Newton, MA 02162 



Massachusetts residents add 5% sales lax 
"TRS-80 is a trademark of Tandy Corn 
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RETURN 
STOCK 



r~lrf=%X I Ml X SES 
FRW LISTED 

OF-T I OINI 
"F^T T i\ir 



HANDLES CALLS, PUTS, SPREADS, IN 
AND OUTj COMMISSIONS, RISK, COST 
OF MONEY, DIVIDENDS. TABLES AND 
ORAPHS. PRINTS, STORES TO DISK. 
INDEXED MANUAL A COMPLETE 3UIDE 
TO OPTION INVESTING. M/C & VISA. 
♦ 125., SEND FOR FREE BROCHURE. 
OPTIONS-SO, BOX 47lf[j 

CONCORD, MASS 01742 

ITRADENARK TANDY CORP jTRftDEWARK APPLE C0WUTE8, INC 



PRESERVE 
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INDERS 



Keep your issues of 60 Microcomputing together, handy 

ond protected in handsome and durable library files or 

binders. Doth styles bound in dark green leatherette 

with the magazine logo stamped in gold. 

Files: Each file holds 6 issues, spines visible for easy ref- 
erence, $5.95 eoch. for $17.00, 6 for $30.00 

Binders: Each binder holds 6 issues ond opens flat for 
easy reading. $7.50 each. 3 for $21.75. 6 for $42.00 

(Postage paid in USA. Foreign orders include $2.50 per 

item) 

Please state years: 1980 to 1983 

Send check or money order to. 

JESSE JONES BOX CORP. 

P.O. Oox 5120 

Philadelphia, PA 19141 

Allow 4 to 6 weeks for delivery 
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d HIGH RELIABILITY DESIGN 

a TRS-80* COMPATIBLE 

• 

• IN STOCK NOW!! call for 

□ SPECIAL SYSTEM PRICE! 



(213)650-5754 

CCEI 



a 

a 

• 

a -^^ 

• 7180 Woodrow Wilson Dr, 

d Los Angeles, CA 90068 
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TOTAL 

DISKETTE 

BACKUP 




INCLUDING UNLIMITED BACKUP 
OF MOST PROTECTED DISKS 

If your diskette software library is not com- 
pletely backed up, or, if you are wasting disk- 
ettes by making backup copies of all your 
diskettes, your problem is solved! Using 
DUMPLOAD, the total contents of your disk- 
ettes cao be safely dumped to tape. The hi- 
speed tape option allows six 35 or 40 track 
diskettes to fit on one CG0 casette. 

• TRS-80 Model 1 16K-48K 

• TRSDOS or NEWDOS80 Compatible 

• May be used to back-up TRSDOS, VTOS 
4.0, NEWDOS, MICRODOS, or data 
disks. (Single Density) 

— $16.95 on Cassette — $19.95 on Diskette 
Plus $1.00 handling (Indiana Res. add 4% tax) 
TOLL FREE 24 HR. ORDERING SERVICE 
1 800 525-9391 (Ext. 509) {Except Colo.) 
1 800 332-9259 (Ext. 509) (Colo. Residents} 

or Mail Check or Money Order To: 
COMPLETE COMPUTER SERVICES --210 
8188 HEATHER DRIVE WHOM H5F1 
NEWBURGH, INDIANA 47630 (MBKJ I I 
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When it comes to 

Flexible Disks, nobody 

does it better than 

Wabash. 

MasterCard. Visa Accepted. 
Call Free: (800)235-4137 
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PRIZE WINNING 

CHESS 



SFINKS3.0(New) 

Prize winner in Paris in the 1981 ' Microcomputer 
Chess Championship: Sfinks 3.0 is the fastest and 
strongest chess program ever written! 
FEATURES; Book Openings. Chess Clock. Thinking 
on Opponent's Time, Infinite Levels of Play, and 
Ruthless Playing Ability! 

32 K cassette or disk only S 39 95 
SFINKS 1.81 

Pnze winner in San Jose in the latest (1980) U.S. 
Microcomputer Chess Championship. Sfinks 1.81 
beats Sargon II. Mychess and Gambiet 80 Easy to 
use with many convenience features 

32 K cassette or disk now only S 24 95 

/■Vase sfieafy cassette or disk and Mode/ / or 111 

INCLUDE $2 00 SHIPPING AND HANDLfrKj. 

WILLIAM A. FINK 

P.O. BOX 5912 

LIGHTHOUSE POINT. Fl 33074 ! 

Exceptional Dealer Dixount* Acoltable 



PACIFIC 




(305) 942-5706 






this publication 
is available in 
microform 




Subscription 
Problem? 

80 Microcomputing does not keep 
subscription records on the premises, 
therefore calling us only adds time 
and doesn't solve the problem. 

Please send a description of the prob- 
lem and your most recent address 
label to: 

80 Microcomputing 
Subscription Dept. 
PO Box 981 
Farmingdale, NY 11737 

Thank you and enioy your subscription. 
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^vV^ JJ You 've Written a 
(^H* Topnotch Program- 

We'd Like to Publish It! 
Programs needed for BUSINESS/ 
OFFICE Applications: 

WORD PROCESSING 
PAYROLL/TAX CALCULATION 
GENERAL LEDGER/ AR-AP 
ORDER ENTRY/INVENTORY 
Start collecting your royalty 
checks soon! Write for our free 
Programmer's Kit today. 
INSTANT SOFTWARE, INC. 
Submissions Dept. 
Peterborough, NH 03458 
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JUST RELEASED BY MTS, Inc. 
The NEW 2 YEAR VERSION of 

INDEX-80 

which proved a best seller lasl year 
this program works! 

The NEW INDEX-80 is 

• a computerized index tor MORE than 1000 articles 

in all 1980 and 1981 issues of 

'80 Microcomputing™ 

• RAPIDLY SEARCHES MORE THAN 5000 
SUBJECTS/KEYWORDS 

• SEARCHES FOR SUBJECT OR KEYWORDS 

• SEARCHES FOR MULTIPLE SUBJECTS'KE YWORD5 

• SEARCHES FOR TITLE OR AUTHOR 

• SEARCHES FOR DATE 

• ALPHABETICAL INDEX OF ALL SUBJECTS- 

KEYWORDS 

SPECIFY MODEL I or 111 32 K disk or 48K disk 19.95 
1981 Update for present INDEX-80 owners 10.95 

Shipping: Add $1.00; foreign $2.00 



m 



*"184 

P.O. BOX 596 
NICEVILLE, FL 32578 
1904)897 3741 
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GET YOUR 
TRS-80 DIRECT 



FROM 



AUTHORIZED SALES CENTER 



FORT 
WORTH 



rvn-TT~L-n-n _ and. 

COMPUTERS video 



377 PLAZA, HWY 377 GRAMBURY 

FORT WORTH. TX 76048 " 214 



AND SAVES 



i.Hew 



1982 
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Get our quote "before" you buy. 

Full manufacturers' warantee. 

Texas residents add 4% sales tax 

817-573-4111 



COST Of CALL REFUNDED FOR ORDERS BY TELEPHONE 



c^Jf 5 ^ If You've Written an 
■\j^ Outstanding Program- 

We'd Like to Publish It! 
We're looking for EDUCATION 
Programs: 

SPECIAL EDUCATION/ AID 

TO THE HANDICAPPED 

MULTI-MEDIA COMPUTER INSTRUCTION 

TEACHER-AUTHORING LANGUAGES 

MANAGEMENT TRAINING 

SIMULATIONS 

Earn money while helping others. 
Write for our free Programmer's 
Kit today! 

INSTANT SOFTWARE, INC. ^2 

Submissions Dept. 

Peterborough, NH 03458 



LYINHCO 

TRS-80 
Modem 




LYNX features. . , _ . 

• CompaiibtG Aiih both Modal land 'I ^^^^F^ '™ 

• Nosepa'ate pvucriastj required S2oy.oO 

. - : .. r ,...,....', OrderNo.8-3A1 

• ''< ■■'- : '"-■'■' *tt~ — 

• WoTK3wi[hanyso».v3ie.intludingST-$0t>yMickluS. IvViJi. 
. Active clear. btea« and control'' keys. 

• Half or full duplex, va'.able *.or<1 length, parity and 

.; .;■ ■: :■- 

• Dial trcm priori keyboard pr memory 

. y.v,..< .• ■•. .: .-..■ .' ■-' :• ■•= :'. ■ ..ra 

• :.:.-. -■. ',:•■•■ ' '.'-■' 
. -Ju \. . : n .:■ .' :" ^ 

HIGH TECHNOLOGY AT AFFORDABLE PRICES 

TOOflDER 
CALL TOLL FREE 
I 800 228 3900 
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12 Johnson Street. MilfordNH 03055 
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THE ULTIMATE CHECKBOOK 

The Ultimate Checkbook is designed to help the 
track of checks, tax deductions, and deposits as w 
fast and easy checkbook balancing and bank rec 
ever, its versatility is such that it can be used •flectwety is a 
"Mini-Ledger" for many small businesses. 

FEATURES: 

' • Menu driven for easy use . % : ;.;'■' 

• Checks can be entered, edited, and deleted quickly 

• In-memory check capacity of approximately 400 checks 

• Check listings on screen or your printer 

• Running balance displayed when posting checks 

• Defaults for check numbers and date to speed data entry 

• Check-by-cneck balance displayed or printed , .„ 

• Search routine finds checks quickly and easily 

• Fast MACHINE LANGUAGE, multi-key sort 

• Totals checks and deposits by deduction, budget, or deposit 
categories 

System Requirements: TRS-80 Models I & III with 48K, DOS & 
Printer (Optional). Please indicate model when ordering. $39.95. 
Please add $2 for handling and postage; $5 overseas; for your 
convenience you may phone in VISA or M/C orders. 

SOFTWAREHOUSE INTERNATIONAL 

We've Moved! P.O. Box 1383 >« Tandy co, P . 

Clovis, CA 93613; (209) 251-7877 

In Australia: Computer Campus; Kent Town, S.A. 5067 

Phone: 08.42 4826 
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(\^Y If You've Written an 

5/ Extraordinary Program- 

We'd Like to Publish It! 
Programs needed for MANAGE- 
MENT applications: 
PERT & CPM SCHEDULING 
PREDICTIVE MODELING 
DECISION-MAKING SIMULATIONS 
PRODUCTION SCHEDULING 
EXPENSE ANALYSES 
Royalty checks may be in YOUR 
future. Write for our free Pro- 
grammer's Kit today. 
INSTANT SOFTWARE, INC. ^? 
Submissions Dept. 
Peterborough, NH 03458 
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PROFESSIONAL 
FEDERAL INCOME TAX 
PROGRAMS 

• For TRS-80 Model I or Model III. Requires 2 D.sk 
Drives and 32K 

• Determines Least Tax Quickly 

• Essential Information Relayed between Forms _ 
Automatically^Avoids Duplicating Entries 

• Uses IRS prescribed Computer Generated Print-Outs 

• Prohibits Bypassing of Mandatory Entries 

• Accuracy Assured by Triple Check Logic 

• Enter only Pertinent Lines— Much Faster man Line 
by Line Entry 

• Single Line Correction with Automatic Update of 
Succeeding Totals 

Basic Package: 1040. 1040A. Schedules A. B 

All for $100 00 Additional Schedules S25.00each 

Single Schedules may be purchased separately 

Send $2 50 for Full Description and Samples 

(applied to purchase price) 



S3 MICRO-TAX 

P.O. Box 4262, Mountain View, CA 94040 
Call: (415) 964-2843 ^ 339 



TRS-80 

COMPUTER 
DISCOUNTS 



• Factory Direct 

• Best Prices Anywhere 

• No Out-of-State Taxes 

• Full Radio Shack Warranty 

• Free Price List 

SCOTT TASSO 

Owner 

Radio Shack Associate Store #7053 

175 N. Delsea Drive ^510 
Vineland, N.J. 08360 
(609) 691-7100 
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"You will lose the time of day, 
but that is seldom needed." 



School computer faculties vary from 
individual classrooms to libraries to 
full-blown laboratories and most of them 
have accumulated a game or two. The up- 
shot is that game-playing can get out of 
hand. Teachers need a method to put 
limits on this recreation. 

The "time-limiting" methods outlined 
here are rather simple but give you im- 
mediate control. They also serve as points 
of departure for developing more ad- 
vanced techniques. Keep in mind, these 
methods can be applied to all instruc- 
tional programs when time is a factor. 
This column deals with programs written 
in Basic. However, these techniques are 
readily adaptable to programs in other 
languages. 

When writing programs you can incor- 
porate these time-limiting procedures. 
With equal ease, you can insert time- 
limiting ;nio programs currently in use. 

Time's Up! 

The simplest approach is to set up a 
counter/checker operation. First, locate a 
portion of the program through which ex- 
ecution must pass repeatedly as the 
game is played. Then, insert the following 
statement: ST = ST + 1:IFST = xxPRINT 
"SORRY, TIME IS UP!":END. Replace xx 
with an appropriate number. It may be 
large or small depending upon how fre- 
quently the statement is executed and 
how long you wish to allow the game to be 
played. When the counter (ST) reaches xx. 
the program ends. 

So far, so good. The game ends at the 
selected time. There is nothing, however, 
to prevent the student from rerunning the 
program immediately. Here you can get a 
bit sneaky. Change the previous state- 
ment to read:. . . ISUP!:POKHyy.222:END. 
At the beginning of the program, insert: 



IFPEEK(yy) = 222PRINT 
"NOT AGAIN!":END 



Now 222 is POKEd into a memory loca- 
tion just before the program stops. When 

the student tries to run the program again 
it checks that same location for 222. If 222 



is found, the program ends before the 
game gets started. The unsophisticated 

student will be stymied. 

In this example, yy represents an ar- 
bitrary location near the top of memory. 
You might use 32700, minus 3 or whatever 
is appropriate for your machine. Note, the 
POKEd number, 222, is also arbitrary. You 
may use any number unlikely to be there 
accidentally (avoid and 255). 

While this method will work in any pro- 
gram, there is another you can use if your 
computer has a real-time clock. You will 
lose the time of day but that is seldom 
needed. Consider the following Model III 
statements: 



4 POKE 16921, 5 : POKE 16920, 



162 IF PEEK (16920) >8PRINT 
"SORRY, TIME IS UP!": END 



When line 4 is executed, the real-time 
clock is reset to the hour of five and the 

minute of zero. Line 162 (which should be 
in a frequently executed portion of the 
program) checks the time and, if it is over 
eight minutes, ends the program. 

That action terminates the game at the 
time you choose, but what prevents a 
rerun? Well, did you wonder why the clock 
was set to the unlikely hour of 5 am in line 
4? Consider this line: 

3 IF PEEK (16921) = 5 PRINT "NOT AGAIN!" 

: END 

Any student attempting to rerun the 
program within an hour is thwarted. 

Note, both of these techniques prevent 
the student from running other programs 
containing the same statements. If this is 
not your wish, simply vary the 222 (or its 
memory location) or the 5 am from pro- 
gram to program. 

These techniques may be effective for 
your students depending upon their level 
of programming proficiency. You can be 
less obvious by spreading the parts 
around in the program and using a few 



GOTO's and GOSUB's to connect them. 

If you have a favorite method of limiting 
game-playing, write me about it. We'll try 
to share them all with other readers. 

TRSDOS 

I suppose that TRSDOS is used in more 
TRS-80's than any other disk operating 
system. TRSDOS does a great job. 
However, there is one annoying problem 
on Model III TRSDOS 1.2 and 1.3. The 
trouble arises when you call up the direc- 
tory of a disk with more than 1 1 programs 
on it. Later versions of Model I TRSDOS 
display the directory a page at a time. On 
the Model III, the directory goes on to the 
end, scrolling the first programs right off 
the screen. 

There is no published patch (so far) to 
cause a slower or page-by-page display of 
the directory. Until there is one, here are a 
couple of ways around the problem. 

First, you can flip on the printer and 
make a printout of the entire directory. 
This overcomes the problem but uses a lot 
of paper for those occasions when all you 
want is to check on the spelling of a file- 
name or find a program in a pile of disks. 
You can also enter Basic and call the 
directory (CMD"D:0). 

The remaining solution is to develop 
your reflexes: Press Break just before the 
directory begins to scroll. In this way, you 
can examine eight to 12 entries. 

These stop-gap measures are inconve- 
nient, to say the least. If you have 
developed a patch, let us spread the word 
and make a lot of folks happier. 

"Will it Sell?" 

Everyone who has learned to program 
has had at least one fantasy about strik- 
ing it rich with the fruit of his labor. Our 
more proficient students often ask "Do 
you think this program would sell?" It is 
sometimes difficult to arrive at a realistic 
answer, Here are a few factors you should 
ponder. 

Trie prime consideration should be 
whether the program does something that 
others do not do, or if it does its job better 
than others like it. Familiarity with the 
marketplace enables you to pass this hur- 
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die and can come from reading ads to 
keep track ot what is available. 

Objective and accurate estimation of 
the commercial potential of a program is a 
tough job. Yet, this must be done to avoid 
losing an opportunity or an investment. 
The situation is the same whether you 
;,lan .-.;': ..i : ihc program wilh a software 
house or to produce and market it inde- 
pendently. (Now, that's an interesting 
decision, too.) 

There is a lot of work involved in prepar- 
ing a program for commercial considera- 
tion. First and foremost, your program 
must be absolutely bug-free. Not only 
must it run with any reasonable user in- 
put, but it must not crash with 
unreasonable input. This means exten- 
sive and effective error-trapping. 

The program must execute quickly and 
efficiently, rhis is determined, within any 
given language, by the design and organi- 
zation of the program statements. Effi- 
ciency does count. 

Another area is often overlooked or 
given only perfunctory attention by ama- 
teurs. Every program submitted to a pub- 
iisnoi :;no.j:d no ■■■ 'mp--;mo- ' by iwo 
documentations. 

The first set is written for the publisher 
considering your submission. Program 
documentation ordinarily includes a 
listing, a variables list and an outline of 
the program organization if this is not 
clear from remarks in the listing. 

The second set of documentation is 
written for the user. It includes a state- 
ment of what the program does, sugges- 
tions for its use, and any information the 
buyer needs to use it effectively. Emulate 
good documentation in programs you 
have purchased. 

There are sources of more detailed in- 
formation on the preparation and submis- 
sion of programs to software publishing 
houses. One such is a free package from 
the Submission Department, Instant Soft- 
ware, Inc., Peterborough, NH 03458. 

In addition, a new monthly publication 
shows promise. Programmer (Box 3210, 
Manchester, NH 03105) covers such 
topics as what types of programs various 
companies are seeking, and how to make 
submissions. 

'here is one caveat: This field, like all 
others, contains its share of crooks. When 
choosing your potential publishers, stick 
with respected, established houses- 
stay off side streets. 

If you and your students come up with a 
really good program, don't hide your light 
under a bushel. Check into the marketing 
possibilities. You may make a buck to 
help pay expenses! ■ 
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need Operating Systems provides you with the- means to explore 
inner and outer limits of your TRS-80 microcomputer. With these 
e programs from Advanced Operating Systems you can become a 

computer-keyboard virtuoso. 

tLDOS, DISK OPERATING SYSTEM 
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and 8" hard or floppy disks. Major advantages of LDOS include the 

ability to mix 35, 40, or 80 track drives on the same cable and the 

ability to combine various logical record lengths. The LDOS system 

comes with a complete 200-plus-page user's manual. Disk only for 

Model I or Model III. 

MACRO-MONITOR ... THE SHADOW 

t secrets lurk deep within the heart of your microprocessor? Only 
THE SHADOW knows. This powerful machine language program 
assembles and displays program instructions from any part of your 
computer memory. THE SHADOW allows you to single-step through 
your Model I or Model III ROM. Available for Model I tape or disk; 

Model III disk. 

SUPERKEYS 

:h this utility program, commonly used BASIC functions, statements, 

•^-iH w/hole lines can be entered with a single keystroke. Any of 255 

t keyboard characters can be used. SUPERKEYS also offers a 

ate" feature which allows for single-line relocation and 

renumbering. Disk for Model III only. 

AOS UTILITIES 1 
(CONTAINS 2 UTILITY PROGRAMS) 

VARKEEP is a variable-passing utility which can SAVE variable values 
and pass them toother BASIC programs, allowing you to perform true 
program chaining. SCREENPACKER is a powerful graphics utility w' ' 
aiir.«/i/c t*«u to "draw" images, produce large-graphic letters, and S 

them on disk. Model I and Model III disk only. 

DOSPLUS— DISK OPERATING SYSTEM 

S • j. - f$* 
US offers you greater speed with its ability to chain functions 

us logical record lengths. Available for Model I 

single or double density, and for Model ill 

ble at your local software retailer, or call 

•. (Indiana residents, call (219) 879-4693.) 

*" " " ■ l --"\ and VISA accepted. 



ADVANC 

OPERATING 

SYSTEMS 

450 St. John Road 
Michigan City, IN 46360 
(219)879-4693 



s a registered trademark of Radio Shack, a division of Tandy Corp. 
tLDOS is a trademark of Logical Systems, Inc. 
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ff Tandy's 16-bit micro 

New Pocket Computer and graphics package also unveiled 




by G. Michael Vose 

80 Micro Technical Editor 

Obviously undeterred by the entry o 
IBM into the personal computer der- 
by, Radio Shack announced its own 16-bit 
computer January 19 at a press confer- 
ence held at One Tandy Center in Fort 
Worth. The new computer, called the 
TRS-80 Model 16, is aimed at the burgeon- 
ing business computer market and, with a 
price tag of $4,999, offers minicomputer 
power at a microcomputer price. 

At the same press conference, the com- 
pany also announced a new TRS-80 Pock- 
et Computer, a Model Ill-like computerter- 
minal, a high resolution graphics package 
for the Model II, and an upgrade kit that 
turns the Model II into a Model 16. 

The New Model 16 

Radio Shack's new machine is based 
on the Motorola MC68000 16-bit micro- 
processor. The MC68000 addresses either 
one of two memory configurations— in a 
standard 128K, or an optional 512K. In ad- 
dition, the machine contains a Z80 micro- 
processor with its own 64K of memory. 
The Z80 handles all input/output opera- 
tions for the MC68000 and will also be 
available for running existing Model II 
software. 

The Model 16's white cabinet is similar 
to that of the existing Model II. The 
detachable keyboard features black and 
white keys in contrast to the Model ll's 
black and grey keyboard. Also featured is 
a green phosphor screen housing two 
trim-line, double-sided, double-density 
eight-inch disk drives. Additional drives 
can be accommodated including the Ra- 
dio Shack 8.4 megabyte hard-disk unit. 

The Model 16 operating system looks 
like, and is upwardly compatible with, the 
current Mode! I! TRSDOS. A single com- 
mand signals the computer to function in 
either the 68000 or the Z80 mode. The op- 
erating system, still unnamed as of late 




January, features Editor/Assembler, De- 
bug, Cross referencer and linking loader 
programs. RS Cobol will be available 
within weeks of the April availability date 
of the Model 16, and compiler and inter- 
preter versions of Basic plus compiled 
Fortran will be available within the year. 

Multitasking will be available in June 
according to Radio Shack. The Model 16 
can then be operated by three users 
simultaneously, two using trie new $699 
Model Ill-like terminals. The new terminal 
will be called the Radio Shack DT-1. 

Model II owners will be able to upgrade 
their computers to the Model 16 con- 
figuration for $1,499. The upgrade must be 
performed at an authorized Radio Shack 
service center and will be subject to the 
following restrictions: the white on black 
screen will be retained; the on-board disk 
drive will be retained; and the memory will 
be restricted to 256K. 
The Model 16 operating system is in- 



cluded as part of the upgrade package. 

The TRS-80 Pocket Computer I! 

The new Pocket Computer debuting in 
April features a true 8-bit processor in 
contrast to the current PC's piggy-backed 
four-bit processors. Selling for $279, the 
F'C II is mace, like its predecessor, by the 
Japanese OEM Sharp. Radio Shack plans 
an RS-232 interface for the PC-II later in 
the year leaving open the possibility that 
the PC-II will be able to communicate 
with other TRS-80 computers. 



Model II Graphics 

To enhance the graphic capability of 
the Model II, Radio Shack has also an- 
nounced a $499 high-resolution graphics 
package. Details on this package and 
some of the other new products were 
sketchy as 80 Micro went to press. Look 
for more details in an upcoming issue. ■ 
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Looking for a Spelling Checker? 
Get more than just a spelling checker — get 

HexspeLL z 

the EVERYTHING checker 



HKSS: (L) LEARN HORO (R) REPLACE HORD (S) SKIP WORD 
WORD IN ERROR! msstake 



This is an exatvle of a text beirs checked bs 
HEXSPELL. The text scrolls up the screen as it is checked, 
error is detected) *w have three choices. 

1) REPLACE the incorrect word. The replacitent word 
NTLY RE-CHECKEO for correctness, then inserted in the 

2) The word is correct, leave it as it is. 

3) Tell HEXSPELL to LEARN this nord for future 
e, with just one keystroke. 

Hexspell requires just one step to check and 
a text, and learn new words. Your document is reads to 
prin t as soon as Hexspell is finished. A word that is in error 
e ■ 9. 1 msstake] , is highlighted in the text for eass correction. 



Hexagon Systems is proud lo announce another first in text checking - an everything 
checker. Hexspell 2 checks not only dictionary words, but learns and checks codes, tor 
mulae and numbers which are so essential in many commercial and technical documents 
With Hexspell 2 you define what characters make up a word, then teach Hexspell the new 
"words" it needs to check your text. This advanced system builds on the unique features of 
the original Hexspell (the first TRS-80 spelling checker). Hexspell 2 features a one step in- 
teractive process, a word list that adapls itself lo your word usage, a 25,000 word initial 
word list and more than three years of research and experience 
Hexspell 2 upgrade lor registered owners of Hexspell Vers. 1 - 
$35 from Hexagon Systems or your nearest dealer. 
Hexspell requires a TRS-80 Mod I or Mod III with 2 drives and 48K. 



HeXAGON 
GYGTetVIG 





P.O. Box 397, Station A 
Vancouver, B.C. Canada V6C 2N2 
Telephone (604) 682-7646 
Micronet 70235,1376 



Hewlett-Packards 

Best Discounts Possible 

WE PAY SHIPPING in the 48 continental states on prepaid 

orders of $100.00 or more. 
NO TAXES are collected on out-of-state shipments. 
WE ACCEPT Visa, MasterCard and American Express, or you 

can save additional money by paying cash. 




n American Electron 



TOLL FREE ORDER NUMBER 800/531-7466 

1117 Conway • Dept. 36 • Mission, Texas 78572 
Phone 512/581-2766 • Telex Number 767339 




FORT WORTH BRANCH 

2912 N. Main • Dept. 36 • Ft. Worth, Texas 76106 
Phone 817/625-6333 • Telex Number 794836 



sSee List ol Advertisers on page 40? 
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by John P. Mello Jr. 

80 Micro News Editor 



A recent rash of petty thefts linked to the lure of electronic games 
in a major New England city appears to be an aberration rather 
than a rule on the national scene. 



During the last four months of 1981 
more than 50 juveniles were arrested in 
Providence, Rl, for jimmying parking 
meters to get change to play electronic 
games. But an informal survey of big city 
police departments conducted by 80 Mi- 
cro revealed Providence's bane was not 
shared by other major U.S. cities. 

James Higgins, a lieutenant with the 
Providence Police Department's Juvenile 
Division, explained in a telephone inter- 
view the epidemic of parking meter rob- 
beries piqued the curiosity of police. They 
began questioning juveniles on why they 
broke into the meters, and the answer be- 
came repetitious: to get change to feed 
their electronic "Jones." 

Although several juvenile gangs were 
involved in thethefts, Higginssaid, "there 



were a lot of individual efforts, too." 

In neighboring Cranston, Rl, homes 
have been burglarized by teenagers seek- 
ing money for the games. "We have had 
several instances where juveniles have 
told investigators that's what they'd done 
with the money," Police Chief Anthony 
Moretti said in a telephone interview. 

But in Chicago, Los Angeles, Houston, 
New York, Detroit, Boston, Miami, and 
New Orleans, police said juvenile crimes 
linked to electronic games was not a 
significant problem in their cities. 

"We really haven't compiled any statis- 
tics that crimes are taking place specifi- 
cally for that purpose (playing electronic 
games)," a spokesperson for the Chicago 
Police Department's Youth Division said. 

He added game rooms were kept to a 



minimum in the Windy City. "You have to 
have a special license to have a game 
room," he noted. "They are not easy to ob- 
tain in the city of Chicago." 

"We don't have any research, to my 
knowledge, of kids committing thefts to 
play the games," observed Patricia Ann 
Adams, a detective with the Juvenile 
Division of the Los Angeles Police 
Department. 

"However," she said, "in our experi- 
ence, where there are a lot of electronic 
game arcades and pinball arcades, since 
they do attract juveniles, other crimes 
related to kids occur there. For instance, 
narcotics sales to children and adults 
picking up children for sexual purposes." 

She added, "The same thing would be 
true of parks and other amusement areas 
— places where children congregate. It 
certainly has nothing to do with the elec- 
tronic games per se." 

"Nothing of significance has come to 
our attention," said Paul Michna, a cap- 
tain with the Juvenile Division of the 
Houston Police Department. 

Continued 
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He said a juvenile narcotics squad has 
been assigned to keep an eye on the ar- 
cades "because in those game rooms we 
find marijuana and crystal and speed." 

"We just can't blame the game rooms 
for being a problem area," he maintained. 
"It's just a place where juveniles con- 
gregate. We've got others that congregate 
on shopping center parking lots and the 
Dairy Queen parking lot." 

"I know these coin-operated games 
have become an obsession with a lot of 
these kids," he noted. "We find a lot of 
them in the game rooms around the high 
schools and junior highs. Instead of being 
in school, they're playing these games. 
These are the kids who will look for any ex- 
cuse to skip school. If it wasn't the games 
it would be something else." 

A school official in Providence was also 
concerned with the games distracting 
children from school. Josephine DiRuzzo, 
chairman of the Providence School Com- 
mittee, has proposed a bill in the Rhode Is- 
land legislature making it illegal to oper- 
ate the electronic games near schools. 

An ordinance adopted by Oakland, CA, 
last December included provisions mak- 
ing it unlawful for an electronic game to 
be placed within 1,000 feet of a street en- 
trance or exit to a school or playground. 

Oakland Deputy City Manager George 
A. Dini said the new ordinance was recom- 
mended by a group of citizens in one of 
the city's residential areas. "They were 
disturbed by an empty store where some- 
one moved in a bunch of video games," he 
explained. "They had a bunch of teenag- 
ers hanging out there at night and I guess 
disturbing the neighborhood." 

He said some people also felt the 
youngsters were "squandering their lunch 
money" on the games, a concern also 
voiced by school committee members in 
Cranston, according to Chief Moretti. 

Dini added, "It's not the games them- 
selves. They just attracted youngsters 
who stayed there late in the evening." 

Jeffrey Young, a graduate student at 
the Center for Applied Social Science in 
the Psychology Department of Claremont 
Graduate School in California, has been 
studying game player's behavior since 
September and expects to release his re- 
search results this summer. He contend- 
ed electronic games are not necessarily 
addictive, but technology has made them 
more attractive to game players than 
mechanical games were to them. He also 
noted, "The kids we see in the arcades 
don't seem to be hoods. "■ 



Tandy tries hand at videotext 



Videotext will be put to a real 
test in Texas this year when the Tan- 
dy Corporation tries to find out if people 
are willing to pay for the service. 

"This is a commercial application of 
present-day computer technology that 
allows for the electronic transmission of 
information to a subscriber's home or of- 
fice," Tandy President and Chief Ex- 
ecutive Officer John V. Roach said in a 
statement released by Radio Shack. 

The computer newspaper Infoworld 
quoted Radio Shack Senior Vice President 
Charles A. Phillips as saying of the experi- 
ment: "This is an entry-level effort in elec- 
tronic journalism." He added, "If there's 
any real test here, it is this: Can we sell the 
general public on buying a Videotex ter- 
minal?" 

At press time, Phillips told 80 Micro 
Tandy expected the project to begin 
February 15, "a couple of weeks later than 
we were hoping for." 

He said in the telephone interview Tan- 
dy had lined up one information provider 



they decide to put it in the service." 

Asked how many subscribers Radio 
Shack expected the Fort Worth-Tarrant 
County project to garner, Phillips said the 
projections were "in house" and not for re- 
lease to the public. 

Before Tandy announced its videotext 
experiment, it and Datapoint Corp. joined 
the Texas Newspaper Publishers Associa- 
tion in a lawsuit to block an Austin, TX, ex- 
periment in electronic delivery of informa- 
tion by the American Telephone and Tele- 
graph Co. 

"It's an interesting development that 
they would oppose our doing it but go 
ahead and conduct one themselves," said 
Pic Wagner, a Washington spokesperson 
for AT&T. "It's not surprising. I suspect 
there will be a number of firms conducting 
experiments." 

Phillips explained: "We filed to uphold 
the injunction won by the association. 
Then we had to go back to court to give 
testimony as to why we thought AT&T 
didn't belong in this business in this state. 
But AT&T picked up their marbles and 



"If there's any real test here, it is this: 
Can we sell the public on videotext?" 



for the project, the Fort Worth Star- 
Telegram, and was "talking with two or 
three" other providers. 

"We're maintaining a certain respon- 
sibility to bring in certain service pro- 
viders," he observed. "The newspaper will 
be the bulk of the information with its 
news, weather, sports— you name it." 

Roach said Tandy intended to invite 
providers with specialized data bases to 
join the project. The providers, he said, 
could include newspapers, financial in- 
stitutions, and airlines. 

At press time, Tandy had yet to set the 
fees for subscribers, but Phillips said they 
would be "less than $10." 

Asked if there would be any charges in 
addition to subscription fees, he respond- 
ed, "Right now we haven't identified any, 
but I don't want to exclude the possibility." 

He said the newspaper would make 
most of the decisions on additional charg- 
es: "What they're printing in the paper 
today— the copyrighted and syndicated 
stuff— they may want to affix a charge to 
or negotiate a charge with the supplier, if 



went home and didn't want to go to court 
over it." 

"The main purpose of that experiment," 
Wagner maintained, "was to determine if 
there is a market for these types of servic- 
es and what the customers want and how 
much they're willing to pay." 

"It had become apparent to us," Wag- 
ner continued, "that the proposed experi- 
ment was going to be tied up in litiga- 
tion before the Texas Public Service Com- 
mission and perhaps elsewhere for a long 
time. Because of our ability to obtain 
some of the information elsewhere it 
just seemed a wise course to drop the ex- 
periment." 

"Information is not our business; hard- 
ware is," Phillips declared. "We just don't 
like competing with a company who's 
funded with regulated funds rather than 
open-market, free-enterprise funds. 

"We'll compete with anyone in the free- 
enterprise system, but not with anyone 
who's fighting with regulated funds. They 
can just dip down and there's no such 
thing as losing money."B 



i Microcomputing, March 1982 • 375 




rowns garnered 




icro 



As coaches sift through the shards of 
last season and prepare for spring 
football, some of them are fantasizing 
about the mythical walk-on with all the 
tools to turn things around. A pair of 
coaches in Minnesota have found such a 
walk-on. However, he's not made of blood 
and bone but silicon and he's helped the 
duo compile an impressive high school 
won-loss record. 

The walk-on is called Champs, a foot- 
ball scouting program forTRS-80s now be- 
ing sold by Radio Shack. Since it was 
developed in 1976 by coaches J. Richard 
Dewey and Mathew L. Rauh, Jr., squads 
with access to the program have been the 
champion of their eight-team conference. 

Rauh and Dewey don't claim their pro- 
gram will make a team another Dallas 
Cowboys, but they do say it can make 
gridiron field generals more effective 
coaches. 

"It didn't affect our style of coaching," 
said Dewey, who developed the program 
with Rauh at Apple Valley High School, 
"but it made us more effective coaches. 
From the information we were able to 



gather and the efficiency with which we 
were able to gather it, we were able to 
spend more time coaching the kids." 

He explained in a telephone interview 
with 80 Micro the program was designed 
to save time: "We were gathering quite a 
bit of the information by hand. It was tak- 
ing us 30 to 35 hours to do it. With the 
computer, we did 20 minutes work and the 
computer did the rest." 

"Now that we're spending only 20 
minutes doing the work instead of 30 
hours," he continued, "we're able to 
spend more time coaching the players 
and consequently we're going to get bet- 
ter performance out of the players." 

The program also enabled Apple Valley, 
with some 1800 students, and Dewey's 
and Rauh's current school, Rosemount, to 
get better performance out of their teams. 
Dewey maintained, "The information 
we're getting is going to help us put a 
player in the right spot more often and 
when you put players in the right spot 
more often, you have more success." 

During the four years they used 
Champs at Apple Valley, Dewey and Rauh 



What Champs does 

Champs analyzes an opponent's offensive tendencies, although 
Dewey said he and Rauh are preparing another package, to be 
released this year, to analyze defensive tendencies. 

When Champs is loaded into a TRS-80, a main menu listing eight 
options appears on the screen. The add and change functions 
allow a user to add or change information on an opponent. The list 
function will list to a printer all the information on an opponent; 
automatic will allow a user to print reports in up to 10 pre-designed 
formats. 

The more info option lets the user define a field situation and 
find out what plays a team ran in that situation in the past. With the 
percent option, the user can define a situation — what does a team 
do between its 41 and an opponent's 35 yard line?— and find out 
relevant percentages— run: 78 percent, pass: 20 percent and kick: 2 
percent. 

The sort option will sort all information of a specified type. For 
instance, a down and distance sort will reveal which plays were run 
on first and 10, first and more than 10, first and less than 10, second 
and long and so forth. 

The Model III Champs program disk stores complete descrip- 
tions of 5500 plays and the Model I program 700 plays. 

Coach Dewey said the program will sell for $149.95— "a real 
steal. "■ 




teams were 37-6, won the conference 
championship every year, and earned two 
state runner-up trophies. At Rosemount, 
the one year the pair used Champs their 
team won the conference championship. 

Asked if opposing coaches tried to 
counter the duo's computer by adding 
new wrinkles to their game plan, Dewey 
explained, "That's difficult to do. Football 
coaches tend to be stereotypical in 
general. They tend to go back to what 
they've done well in the past." 

"Generally speaking," he said, "on the 
high school level, during the first two 
weeks of practice, we get into the basics 
for our whole season." 

By trying to add new wrinkles to your 
game, Dewey explained, you reach a point 
of diminishing returns "because you have 
to start retraining people. You're not go- 
ing to get the same results if you have to 
retrain people every week," 

Dewey and Rauh had their scouts— vol- 
unteers like parents, former players or 
coaches— survey an opponent three 
times, although the program will work 
with less information. "It's not required to 
go out and see a team three times to have 
a successful report," Dewey noted. "You 
can get to the point where you have too 
much information. Computer generation 
can cause information overload." 

Dewey, who has a bachelor's degree in 
math and a Ph.D in management informa- 
tion, said the pair have other athletic pro- 
grams in the works, including a defensive 
tendency program, athletic department 
administration and recruiting. ■ 
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LOAD 



£ V - i 




In the April, 1981 issue of 80 Microcomputing 
we introduced LOAD 80 to save you the time and trouble of 
typing our programs yourself. LOAD 80 cassette tapes 
contain dumps of the major program listings in 80 
Microcomputin g. 



If you have not yet ordered any LOAD 80 tapes and wish 
you had, don't worry. We are now offering a "back issue" 
cassette program. You can order any LOAD 80 cassette 
from April, 1981 to date for $9.97. Back issues of 80 
Microcomputing are also available with the LOAD 80 cas- 
settes for $3.50. With the complete documentation found 
in the companion magazine issue, you should have no dif- 
ficulty loading any of 80's major programs. 



Please send me the following: 

month year 
Tapes Magazines 



month year 



ITEM 


COST 


QTY. 


TOTAL 


LOAD 80 Tapes 
add $1.50 per tape for postage and handling 


$9.97 






80 Microcomputing 

add $1.00 per magazine for postage and 

handling 


$3.50 








T 


OTAL 





!_: Check Enclosed Bill my: L MCI.. AE :. VISA 
NAME : 



ADDRESS .__ 

CITY 

CARD# 

SIGNATURE 



STATE_ 



ZIP. 

EXP. DATE_ 



INTERBANK*. 



Please allow 4-6 weeks for delivery 

LOAD 80 • 80 Pine Street • Peterborough NH 03458 

Attn: Debra Boudrieau 



IS 



HARD COPY 



WrMXSW&'it 



a problem? 




Here's the ideal way to keep your grow- 
ing collection of 80 Microcomputing in 
order! The 80 Microcomputing Library 
Shelf Boxes. 



...sturdy, corrugated, white, dust-resistant boxes will keep your 
issues of 80 Microcomputing orderly and available for constant 
reference. Self-sticking labels are available for the boxes, too, not only 
for 80 but also for Kilobaud Microcomputing, 73 Magazine. CQ, OST. 
Ham Radio, Personal Computing, Interface Age, Byte and Radio 
Electronics. Ask for whichever labels you want with your box order. 
Each box holds a full year of the above magazines. Your magazine 
library is your prime reference. Keep it handy and keep it neat with 
these strong library shelf boxes. One box (BX1000) is $2.00, 2 7 boxes 
(BX1001) are $2.00 each, and 8 or more boxes (BX1002) are $1.25 each. 
Be sure to specify which labels we should send. Shipping and handling 
charges are $2.00 per order. Call in your credit card orders on our toll 
free line 800-258-5473, or use the order card in the back of the maqarine 
and mail to: 




microcomputing 



ATTN: BOOK SALES 
Peterborough, 

NH 03458 



4-t> weeks for delivery No COD order 1 . J< < eptet 




Due to shipping problems in Europe, we are ask- 
ing our subscribers to send us their most recent 
mailing label from 80 Microcomputing. If you are 
unable to provide us with a label, please send us 
your name and address, and tell us at what point 
you are presently in in your subscription. This in- 
formation is very necessary in order to solve a 
forwarding problem, so we are asking for your co- 
operation in this matter. Please direct all infor- 
mation to: Attn: Doris Day, 80 Microcomputing, 
80 Pine Street, Peterborough, NH 03458. 
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SO news 




Wordstar pirate hit with lawsuit 



by Kerry Leichtman 

80 Micro staff 



Micropro International and Digital 
Research have filed what is believed 
to be the first-ever software copyright in- 
fringement lawsuit against Data Equip- 
ment Inc. of Sunnyvale, CA and its parent 
company Dataforce International. 

The suit claims Dataforce made and 
sold unauthorized copies of MicroPro's 
Wordstar, Datastar, Wordmaster, Mail- 
Merge and Digital Research's CP/M soft- 
ware packages. In their suit the plaintiffs 
demand: an injunction preventing the 
defendants from copying or marketing 
counterfeit copies of the plaintiffs' soft- 
ware; impoundment of all counterfeit 
copies of plaintiffs' software and the 
equipment used to make such copies; an 
accounting of profits generated by the il- 
legal copying and marketing of such soft- 
ware; punitive and exemplary damages of 
$1 million; treble damages for trademark 
infringement; and $50,000 for each 
copyright infringement. 

Allegedly, Dataforce acted as original 
equipment manufacturers. The software 
was distributed as part of system 
packages. The system hardware was 
most commonly manufactured by Altos. 
These hardware and software packaged 
systems were sold to law firms, account- 
ing offices and other service profession- 
als. Most of the systems were sold in Cali- 
fornia, although some were sold to firms 
in other parts of the northwestern United 
States. There is no evidence the hardware 
was obtained by illegitimate means. 

The alleged scam unfolded when un- 
suspecting users began calling Micropro 
and Digital Research requesting modifi- 
cations or program enhancements. When 
it was discovered that these callers were 
not registered users, the firms became 
suspicious and figured out the rest. 

The suit was filed in U.S. District Court 
in San Francisco in November, 1981. The 
process has moved to a procedure called 
discovery. Once the suit is filed, represen- 
tatives from Micropro and Digital Re- 
search have the right to meet with and in- 
terrogate the defendants under oath. The 
representatives also have the right to go 
through the defendants' files. The charge 
for not cooperating is perjury. That is, if 
you can find the defendants. 

Ronald S. Laurie, copyright, trademark 
and patent counsel for both Micropro and 
Digital Research said: "This is not the 




usual situation. Usually the discovery pro- 
cess is anywhere from one to three to four 
years, depending on how complicated the 
law suit is. But we seem to be having trou- 
ble getting any kind of a response out of 
the defendants. 

"They have not filed an answer to the 
complaint. It seems like everyone has 
disappeared. We can get a default judge- 
ment, but then the question is who do you 



collect against if no one is around?" 

Both Data Equipment and Dataforce In- 
ternational are, or were, located in Sun- 
nyvale, CA. When 80 Micro attempted to 
reach the defendants for comment it 
received the same response as Micropro 
and Digital Research's lawyers: 'The 
number you have reached is not in service 
at this time and there is no referral. Thank 
you. This has been a recording. "■ 



Atari targets software pirates 



The Atari Corporation has begun 
in earnest tc crack down on software 
pirates and copy cats. 

It has hung the hairshirt on a swash- 
buckler known as "B.B. Roberts"; gone to 
court against two software manufactur- 
ers; and settled with a third. 

The Sunnyvale, CA company hired a pri- 
vate detective to nail Roberts after he sent 
a letter— bearing on the masthead a one- 
eyed pirate— to interested parties offering 
several well-known computer software 
packages at discount prices. 

Atari did not prosecute Roberts 
because "he never cashed a check and he 
never produced any software," an Atari 
spokesperson told the computer news- 
paper Infoworld. However, Atari did wring 
a repentant essay from Roberts and is us- 
ing it to discourage pirating. 

In federal district court in Fresno, CA, 
Atari obtained a temporary restraining 
order against On-LineSystems, producers 



of "Gobbler" and "Jawbreaker." The order 
prohibits On-Line from manufacturing or 
selling the games. Atari claims the games 
infringe on the firm's rights to the home 
computer version of Pac Man. 

On-Line has filed a lawsuit against Atari 
claiming it is attempting to restrain trade 
by monopolizing the rights to any game 
with a maze and dots. 

Atari did not fare as well in Chicago. A 
federal district court judge there denied 
Atari's and arcade manufacturer Midway's 
motion that a preliminary injunction be 
issued against Magnavox Corp. to stop it 
from producing its home-video game K.C. 
Munchken. 

Atari and Activision, of Santa Clara, CA, 
settled their differences out of court. Ac- 
tivision makes plug-in game cartridges for 
Atari computers. It was started several 
years ago by former Atari employees. The 
firms refused to make the terms of the set- 
tlement public. ■ 
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TRS-80* 



4&* 



COLOR GAME * 

LIMITED OFFER! 



OUR BONUS GAME OF THE MONTH 



EX WHEN YOU BUY ANY 2 GAMES 



*z GATOR ZONE 

THE FIRST ANTI-PREPPY COMPUTER GAME £ 
WHERE YOU'LL FIGHT OR LOSE YOUR SHIRT' 



&►* 





18.95 



STARBASE ATTACK ,,MS 



UGH SPEED AHCAOE GAME 



KQ5WC WMIKAZE '18.95 

■nsGALLOPING GAMBLER 

illustrated memory banks 

P.O.BOX 289 

WILL1AMSTOWN, MA. 01267-0289 

JEL.413663-9B48 



EACH 



Master Card 
and VISA accepted. 

•TRS 80 is a I'M u£ 
Tandy Corp. 

"CASSETTE 



CERTIFIED CHECKS OR MONEY ORDERS ONLY 
PHONE ORDERS - CALL MON-FRI 9-5 EST 



^274 



Can You Create Letters Like The Above 
In 4 Keystrokes . . . 

And Havt A Word Processor Print Them Juit At A Regular Lttttr Or Flit? 
If Not, It's Tlmt To Explore GEAP. 

GfAP Standi For Graphics Editor And Programmer. 

Depending On Your Hardware 8. the GEAP Package You Choote. You Can Create Diagrami, 
Figure«. Flyers, Posters, Letterheads And Artwork With Ease. 

Using GEAP Doei Not Require Basic Programming Knowledge, However We Have Facilities To 
Allow Programmers To Create Screen Formoti And Program Documentation Within Their 
Programs With Ease 

We Offer GEAP In Modular Form. You Can Get It All At Once Or Purchase It In Pieces As Your 
Needs Or Hardware Grows. 

aphics 



laiiMsffs 




Editor I ■■ , 





rogra»»er 



FLEXIBILITY, EASE OF USE, AND EASY FUTURE EXPANSION IS 
WHAT GEAP IS ALL ABOUT. 

GEAP Regular Facilitiies - 16K-48K Disk, Stringy, or Cassette Supported. 

Sample Commands & Facilities In The Basic GEAP Package: 

MODES: Alphanumeric. Graphics, Single Graphic Pixels Can Be Intermixed. Free Style Drawing, 

Create Composites From 2 Or More Drawings, Reverse Graphic Pixels (Selectively), Graphic Block 

Moves, Graphics Keypad, "Paintbrush", Magnification, Rotation, Save Screen As Basic Program 

— ASCII Compatible, Compressed, Or String Format. 

OPTIONAL MODULES & PACKAGES: 

MODULE 1 — More rotation, Magnification, & Other Powerful Commands. 

MODULES 2-4 — Lettervet Modules. Instant Letters. No Drawing Required. This Is How We 

Created The "GEAP" Cube Letters In 4 Keystrokes. 

MODULE 5 — EPSON Printer Support Module. Now Non-Progromers Can Use The EPSON 

MX-SO To Print Their GEAP Creations - Posters, Flyers, All With Epson Quality. 

GEAP 4SK DISK — You Get Module 1-5, & Additional Disk Related Features. Expansion 

Modules Run Via Menu Selections. If You Have The Hardware, This Is The GEAP For You. 

NEWSCRIPT Support Package — All Of The GEAP 48K DISK Commands, Plus Facilities To 

Interact With NewScript. Now The Perfect Marriage, Word Processing & Graphics Processing 

Requires Current NewScript Update. 



Regular GEAP 
GEAP48K 

Californio Add Sale: 



25.99 
45.99 



Expansion Module 1-4 
NewScript 



16.9? 
99.99 



..' ?73 



When Ordering. List System & Peripherals 

J F CONSULTING 

74-355 BUTTONWOOD PALM DESERT, CA. 92260 

(714) 340-5471 

Epson MX-80 is a trademork of Epson America NewScript is a trademark of ProSoft. 
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Our professional quality software 
development tools let you program 
your TRS-80 with more ease and 
power than you ever imagined possi- 
ble. Programming will become a 
pleasure when you use our full 
screen editors. These editors are not 
just patched up word processors. 

ey have been specialty designed to 
enhance the BASIC and ASSEMBLER 
programming languages. Our 
assemblers provide full screen option 
menus to relieve you of the burden of 
remembering command names. Com- 
bine user oriented features lik 
with the finest and most extei 
documentation in the industry 
u will see why programmini 
S-80 is now better than ever. 



T-ZAL: TAPE 

ble to memory .. _ 

SYSTEM tapes! Includes relocating LOADER 
pgm. 8 character symbols with XREF. 
Upgrades to disk when you do! 
Mod 3 Cat #1250-20 $ 49.95 

FULL SCREEN PROGRAM TEXT EDITORS: 

All CAU full screen editors support four way 
cursor motion and scrolling with user selec- 
table auto repeat and scroll speeds. Totally 
visual character insert, delete, and change. 
Block move, copy, delete. Global find and 
change. Editor for BASIC also provides 
automatic line renumbering and 26 user- 
definable macro keys. 
For Tape and Disk BASIC: 
Mod 1 Cat # 1010-20 $24.95 
Mod 3 Cat #1210-20 $29.95 

For Mod 1 EDTASM source files: 
Tape Cat # 1010-30 $24.95 
Disk Cat #1010-31 $34.95 
(Disk version shipped on tape.) 



... ZAL: ™ DISK EDIT. 

Modular Assembler Language develo 
system includes full screen text editor, 
pass assembler, and object module linker. 
Allows 8 character symbols and source file 
chaining/nesting with 'INCLUDE and. Full 



Symbol table with cross reference. Req. 32K 
Disk system. 

Modi Cat #1050-10 $149.00 
Mod 3 Cat # 1250-10 $149.00 

XBUG: DEBUGGING TOOL & MONITOR: > .'.% 



10 invisible and transparent breakpoints. 
Multi-speed single step. Load/Copy/Create 
system tapes. Uses only 2.5K and can be 
imically relocated to any address. 
1 Cat #1020-10 $19.95 
Mod 3 Cat #1220-10 $19.95 

Note: these products are not available for 
level 1 machines. 

When ordering specify Model, RAM 
disks. 

Send check, money order, or 
numbers and expiration date to: 
Computer Applications Unl 
P.O. Box 214, Oept. EEW 
Rye, New York 10580 

NY State residents add applk 
Dealer Inquiries Invited. 

~" * COMP' 
APPLIC 
™ UNUMITEDm 

A Div of CAU. 

Quality Reliability 

•TRS-80 is a TM of Tandy Corp. 



^See List ol Advertisers on page 402 
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SINEWS 



Group 
formed 
to fight 
software bucs 



by Kerry Leichtman 

80 Micro staff 

The call to arms has been sounded and 
the war against software piracy has 
begun in earnest. Ms. Robin Robinson has 
created the Association for Software Pro- 
tection. Robinson previously spent over 
two years as Software Protection Director 
for Mini-Computer Business Applications 
before starting up the organization. 

"One individual trying to protect his 
product from both the ignorant and the 
devious is a time-consuming job," said 
Robinson. The association, she added, 
will attempt to assist software developers 
by coordinating efforts to eliminate the 
ever-increasing piracy problems facing 
the industry. 

For the organized concept to work, 
Robinson said she needs the cooperation 
ot the software industry. To enlist this 
support, she distributed a questionnaire 
and established the association's guide- 
lines through the industry's responses to 
it. With the results compiled, Robinson 
has now announced her membership drive. 

Benefits to members will come in many 
forms: A bi-monthly newsletter will be 
distributed containing case histories, 
legislative updates, responses to mem- 
bers' questions and news; an information 
library established to house information 
on international software laws and to 
maintain a compilation of software pro- 
tection problems within the industry 
along with solutions so far developed; on- 
going research pertaining to current pi- 
racy problems; conferences and an edu- 
cational campaign directed toward the 
user unfamiliar with software copyright 
restrictions; providing "starter packs" as 
assistance for both software developers 
and software users. 

The starter packs, to be placed in soft- 
ware packages, "willnotonly educate, but 
will serve as an endorsement of our mem- 
bers," said Robinson. 

Response to Robinson's efforts have 
been favorable, she said, and requests for 
applications and information have steadi- 
ly arrived at the association's offices. For 
application and additional information 
contact: Ms. Robin Robinson, The Asso- 
ciation for Software Protection, 10143 
Leona Avenue, Tujunga, CA 91 042. ■ 




Reporting of the future taught in Florida 



They're readying themselves for the 
journalism of the future at the Univer- 
sity of Florida in Gainesville. The school 
has established an Electronic Text Center 
and aims to have a curriculum in videotext 
editing and programming by 1983. 

"People who are training to become 
editors will have an option of moving into 
this area," said Ralph Lowenstein, dean 
of the College of Journalism and Com- 
munications. 

He told 80 Micro in a telephone inter- 
view, "There may well be a curriculum in 
place by the fall of 1983." 

Lowenstein said by this summer, the 
college expects to have "rotatext"— non- 
interactive videotext continually rolling 
over a viewer's tube. 

The school hopes to use channel 11 of 
the local Cox Cable tv affiliate to broad- 
cast its rotatext from 12 midnight to 9 am. 
The cable company has also reserved a 
"superband" channel for teletext— a type 
of videotext that is interactive. 

In July, the college will hold a two-week 
course on videotext for up to 25 jour- 
nalism professionals. 

But the cornerstone of the new cur- 
riculum, a survey course on videotext, 
began in January. 

"We will try to give students some ex- 
perience they can use editing on 
videotext," said Dr. Kurt Kent, who is 
teaching the survey course. It will consist 
of lectures and labs, he explained, and in- 
cludes material on microcomputers, 



mainframes, information systems and 
computer graphics. 

Asked the difference between news- 
paper and videotext editing, Kent, who 
knows Fortran, Basic, PL1, Compass and 
Assembly Language, responded: "The 
space constraints are the first major dif- 
ference. You have so little space that 
you've got to treat your stories 
differently." 

Kent, a graduate of the Universities of 
Iowa and Minnesota, said story "jumps" 
present another problem to videotext 
editors: 

"In videotext, you have to pay more at- 
tention to getting a complete part of the 
story on the screen for each screenful, so 
people don't have to go to the next screen 
to understand the screen they're looking 
at." 

"The feeling is," Kent observed, "few 
people will take the time to look through 
the whole story start to finish. There might 
be quite a few people looking at page one, 
but the fallout after that is going to be 
pretty big." 

Dean Lowenstein said the 1,350-stu- 
dent college of journalism has one of the 
largest newspaper editing labs in the 
country. Housed in its new $6.3 million 
building, the school has 19 VDTs— two of 
them feeding into the Gainesville Sun, a 
newspaper owned by the New York Times 
Company. 

The college also has a Public Broad- 
casting System tv station and three radio 
stations. ■ 



CP/M arrival stalled at IBM 



by G. Michael Vose 

80 Micro Technical Editor 



Two months after its arrival on the 
microcomputer scene, the IBM Per- 
sonal Computer is still waiting for a ver- 
sion of the CP/M operating system. The 
software has been adapted for the Per- 
sonal Computer by its originators, Digital 
Research, but IBM is still testing it. 

Full marketing rights for the Personal 
Computer version of CP/M-86, the opera- 
ting system written for the 16-bit 8088 and 
8086 Intel microprocessors, have been ac- 
quired by IBM. Tom O'Niel of Digital 
Research's Marketing arm expects IBM to 



release the software "in late February or 
early March." O'Niel did not know what 
IBM planned to charge for the system. 

The Personal Computer Marketing Divi- 
sion, through its spokesperson Jeannette 
Maher, could not offer at press time a 
release date for CP/M-86 or speculate on 
its eventual price. Apparently only 
authorized IBM retail outlets will sell 
CP/M-86 for the Personal Computer. 

The operating system currently avail- 
able for the Personal Computer, called 
IBM DOS, is necessary to run the applica- 
tions software currently available for the 
machine. This includes VisiCalc, Easy 
Writer, accounting and game packages. 
The IBM DOS costs $40. ■ 
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Greymoon 




Greymoon is the medieval land in which this 
simulation of conquest and economic devel- 
opment takes place. As creator of Greymoon, 
you can buy, sell, plant, feed, hire, build, raid, 

invade, ana consul; various advisers. Objectives'^ 
Gam land, become wealthy, develop your initial 
small village into a city state and increase 
your rank from master to King. Obstacles? 
Every year brings one of over a dozen random 
events, which, until the end of year, are un- 
known to you except through hints by your 
advisors. Can you compete with the many 
neighboring nations of Greymoon? 

Even has sound routines. It will keep you- 
interested for hours on end. Each game is 
different. The game is very fast but you can 
play at your own speed. All ages will like it and 
it takes no special skills, but a sharp mind. This 
is better then an adventure game in the fact 
that each game is different and is more real- 
istic. 

TRS-80 Model I or III 

16KTape $19.50 Disk 24.95 



Modem Games 

Play Chess. Checkers, and Othello over your 
modem with your friends! Each game features 
full graphics, sound, and a chat mode permit- 
ting you to send messages ana sounds (to get 
the other persons attention) Games are for 
two players either one or two computers. 
Complete documentation included. All three 
games on each program, comes with 2 disks 
or 7 tapes one for you ana ore for a friend (you 
must have two programs to play over the 
modem.) TRS-80 Model I orlll. (includes 2 tapes 
or 2 disks). You must have 232, or Lynx Modem. 

2 Tapes $29.95 2 Disks $29.95 

Hayes Smart Modem 

Auto answer/auto dia: complete with two excellent modem 
programs all tor only $259.00 

Microcompatible 16k print buffer . . $279.00 
Cable $35.00 



SUPERMETER 



The biggest problem in loading tapes has been the volume 
control Prerecorded tapes are produced at differing volume 
levels Now finally, a device to let you set the correct volume 
levels for loading any tape. You will now load any tape the FIRST 
time. SUPERMETER plugs infnocutting or soldering) between 
your tape recorder and the computer and lets you set the 
volume to the level that your computer wants. 

SUPERMETER $29.00 



DOS SALE 

Multi Dos (the one we recommend) $79.00 

L Oo.S $1 59.00 

New Dos 80 2.0 $14500 

Dos Plus 3.4 $ i 39.00 

We sell them all We recommend and use MULTI DOS 

Don't let its low price fool you. It'll do everything the others will 

and quite a few things they can't. 

MULTIDOS has the BEST BASIC - - its the EASIEST to use 

and its the FASTEST system around. For more details see Cos 

Electronics full page ad in this magazine. Why pay twice as 

much for a operating system that's complicated and hard to 

use. 

Look what you get with Multido's Basic 

A file handling utility sold separately for $19.00 

A graphics program sold separately for $19.00 

A Golbal editor sold separately for $19.00 

Boss debugger single stepper sold separately for $19 00 

Total value if purchased separately $76.00 

you get all this plus the best basic for only $79.00 

SPECIALS 

MULTI DOS with Aerocomp Doubler $209.00 

MULTI DOS with Super Directory $99 00 

MULTI DOS with Super D & Doubler $21 9.00 

AEROCOMP DOUBLER S139.00 
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Take your dune buggy and enter it in the 
famous Baja Desert -ace The race has straight 
aways, curves, S's, and obstacles. We feel that 
this is the best car race game made for the 

TRS-80. 

The game has 10 different action packed skill 
levels. The program is all machine language for 
fast graphics and excellent sound. 1 to 6 players. 



TRS-80 Model I orlll 

16K Tape $15.95 Disk 



119.95 



THE TWO YEAR DISK'S 

All Wabash Disks are certified 100% error free for two years by the 
manufacturer. If you have any problems return therri to us for new 
ones. 

5 Vt single density $25.95 

Double Density 40 or 80 tracks $32.99 

Double Density two sides $35.99 

8"Disks . $35.99 



$ivAxt&& 



1 he NeweslgameDy Larry Asmunauthor ol Alien Defence Fast 
paced graphics, sound etc. 

h <cellent 



Tape. 



$14.95 Disk 



Alien Defense II 

Newest version ol the best arcade game ever written loi the 
-80 by Larry Asie.uo of Softsector has talking routines Harder 
then original version. 

Tape $18.95 Disk $23.95 



n 




uugcon escape 



At last!! An adventure which takes quick thinking and strategy! 
Different trom fixed adventures 

» Super graphics * * Interactive Sound * 

* Uses latest programming techniques * 

* Fast Paced 

the creator's ghost has sensed an intruder, and he is deter- 
mined to hunt you down (His intelligence in tracking was set 
by you) This feature makes this simulation unlike others for 
you're always "on the go 

* Written by an experienced gamer in fantasy role ploying. 
based on the game Dungeons & Dragons 

Objective: Your character begins on the first of a three level 
dungeon, searching for magical "stones" which permit you to 
descend to the next lower level. 

Tne Adventure: There are numerous traps, and over a dozen 
hostile monsters that come in various sizes, shapes and degrees of 
nastmess. It has various treasures and magic items (weapons. 
elixers, cloaks, scrolls, etc > You can become a fighter, a theit or a 
magic-user Each lime you play you get a totally different and 
exciting game 

This short description only begins to tell you of the many ad- 
ventures and some of the features of this exciting game. 
This wilt be your favorite adventure game 1 
Complete documentation included. 
You must specify Model I or Model III Available on: 
Tape. 16K $19.95 Diskette.32K $24.95 

Small Business Programs 

CHECKING ACCOUNT Mod. I or III. 48k disk .'■ $39.00 

Excellent check writing program for small business Prints checks 
on printer, sorts into 32 calagones for bookeeper and IRS 

BILLING SYSTEM Mod I or III. 48k disk. $39.00 

Excellent system for the small business man It is fast and easy to 
use. Prints out invoice and monthly bills. Adds interest etc 

Special buy bolh programs checking and billing $65.00 

FAMILY TREE TapeS32.00 Disk $39.00 

Excellent Family Genelogy program works on both Model I and III 
Excellent program for beginning Family Tree. Complete directions 
for research and program use. 



Scarfman 

LASER DEFENSE 



S14.95/S23.95 
$14.95/1 7.95 



SUPER DIRECTORY 

This will be the standard of which all other Directories are 
judged. It will read any normal type of diskette Mod I or III, 
Multi Dos, Ldos, Dos Plus, Tri Dos, New Dos, Double 
Density, Single Density, 35, 40 or 80 track drive's. 
It is easy to use but at the same time has all the features 
you will ever need. Display to screen or to printer. 
Displays by program, or disk, or subiect 

You can even add a line to help tell what the program is 

about Example 

TRACEPRT/CMD 146U PRINT TRACE OF MACHINE 

LANGUAGE RUN. 

Traceprt/cmd is file name on disk • 146 is disk number 

• U is for utility* PRINT TRACE OF MACHINE LAGUAGE 
is descriptor file. 

Special Introductory offer with each directory ordered 
before June 1st we will include 4 blank Wabash double 
density Disks for a dime or you can get a box of ten disks 

for only S19 90 

Please specify operating system. 

Super Directory $39 90 With 4 Wabash Disks. . $40 00 

With 10 Wabash Disks . . $59.80 



■■■■■MM 
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1691 Eason • Pontiac, Michigan 48054 (313)673-2224 

i^See List ot Advertisers on page 402 



ALL PRODUCTS IN STOCK SHIPPED WITHIN 24 HRS. 
DEALER INQUIRY'S INVITED 

M.C. & VISA OK -''og 

PLEASE ADD $2.00 FOR 
SHIPPING IN U.S.A. 
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by G. Michael Vose 

80 Micro Technical Editor 

The 1982 Radio Shack Computer Cat- 
alog (RSC-6) debuted software to 
allow TRS-80 Model II microcomputers to 
converse with the IBM family of mini- and 
mainframe computers. The three software 
packages (ReformaTTer, Binary Syn- 
chronous Communications 3270, and 
IBM/DEC Compatible Binary Synchro- 
nous Communications 3780) are priced 
from $249 to $995. These packages enable 
the Model II to transfer files between 
TRSDOS and IBM formatted disks (IBM 
3741 single density format) and commu- 
nicate with IBM Systems 360/370 ma- 
chines orwith DEC PDP-11 or VAX-11 mini- 
computers (or any device equipped with 
bisynchronous communications ability). 

Without the use of this kind of sophisti- 
cated communications software, how- 
ever, there has been no method of using 
the data files generated by one computer 
on a different system. This problem has 
surfaced as more microcomputer sys- 
tems have been pressed into service in the 
nation's places of business. Many mana- 
gers are anxious to extract data from their 
company computer for use on their office 
microcomputer system. In other situa- 
tions, companies are being stymied by an 



Growing micro use 
created demand for 
sophisticated software 
to make mainframe a 
micro second language 



inability to use a word processor data file 
generated by the computer at the home 
office on their own dedicated system. 

Since floppy disk storage is the most ef- 
ficient method now available for data 
storage, INSTOR Corporation of Menlo 
Park, CA has devised a solution to the 
computer incompatibility problem. The 
company has built an intelligent floppy 
disk storage system allowing data ex- 
change between different computer 
systems. 

INSTOR/80 and 801 

The devices, called the INSTOR/80 and 
INSTOR/801, interface to the host com- 
puter via its RS-232 communications port. 
The INSTOR/80 then converts output from 
the host computer to the IBM 3741 format 
and makes all necessary ASCII/EBCDIC 



conversions. Any computer using the IBM 
format can use these disks. With the prop- 
er software, over 25 different computers 
including the IBM Personal Computer and 
HP3000, PRIME, Data General and DEC 
minicomputers can then read these IBM 
formatted disks. Once the information is 
transferred to an INSTOR/80 disk, it can 
bo read off that disk from the same or 
another INSTOR/80 into a different com- 
puter. The INSTOR/80 can also be used 
with OCR page readers, scanners, bar 
code readers and other data collection 
devices. 

The INSTOR/80 will retail for $3,000 
while the INSTOR/801, made specifically 
for the IBM Personal Computer, will retail 
for $2,000. Both models use eight-inch 
disks. 

The INSTOR/80 can be a significant 
time-saver over communications software 
methods of transferring data from com- 
puter to computer. The INSTOR/80 
transfers data at the rate of 9600 bits per 
second. Importantly, the two computers 
do not have to be tied up at the same time 
if data is transferred using disks rather 
than communications links. 

For more information, contact INSTOR 
Corporation at 175 Jefferson Drive in 
Menlo Park.B 



Computer Week created in Granite State 



leclaring that, "Whereas it is general- 
ly agreed that all students should 
become computer literate in order to func- 
tion effectively in today's environment," a 
proclamation will be signed this spring by 
Gov. Hugh J. Gallen making the first week 
in May Educational Computer Week in 
New Hampshire. 

Sponsored by the University of Now 
Hampshire Department of Computer Ser- 
vices, the highlight of the week will be an 
all day Educational Computer Fair. The 
fair will be staged at the UNH Memorial 
Union Building on Tuesday, May 4. It will 
provide educators, students and the gen- 
eral public the opportunity to view current- 
ly available educational microcomputer 
software and to obtain information about 
the educational uses of microcomputers 
(see 80 Micro, February 1980.) 

The fair will feature simultaneous pre- 
sentations by educators and vendors con- 
cerning the use of computers in educa- 
tion. Educators and industry representa- 



tives will discuss trends in educational 
computing, the value of learning comput- 
er programming as a methodology for 
training young minds and other innovative 
ideas. Exhibitors wil be charged $ 100 for 
a 12-by-12 foot booth. Space is limited. 

The coordinator for the fair is Anne 
Knight, the Educational Coordinator for 
the UNH Department of Computer Ser- 
vices. Knight, who is also chairperson of 
the New Hampshire Association for Com- 
puter Education Statewide (NHACES), 
told 80 Micro, "Educators are becoming 
more interested in computers and com- 
puter literacy." Her department at the uni- 
versity is acquiring information about 
educational software for dissemination to 
New Hampshire school districts. The de- 
partment owns a TRS-80 Model I and 
some educational software in spite of an 
infinitesimal microcomputer budget. 

By spotlighting computers and educa- 
tion for the entire week of May 3-7, Knight 
hopes to engage the imagination of stu- 



dents and their parents to the potential of 
educational computing. By involving the 
governor and the state news media 
through the proclamation of Educational 
Computer Week, she hopes to "make 
everyone at least aware that microcom- 
puters are likely to be an exciting aspect 
of the educational experience." 

The other formal activity planned for 
Educational Computer Week is an Infor- 
mation Swap to be held at the Ramada Inn 
in Concord, NH. Sponsored by the associ- 
ation, the swap will begin at 4 pm and will 
be followed by dinner and a guest speak- 
er. In addition, the association is encour- 
aging local school districts to organize 
meetings on their own to explore the 
educational uses of microcomputers. (For 
more information, call Anne Knight at 
(603) 862-3527.) ■ 



— G. Michael Vose 
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Congressman offers 
Email to constituents 



Constituents of a Pennsylvania 
Congressman may give him their "two 
cents' worth" through an electronic mail 
service. 

Democrat Jim Coyne developed the 
service with the U.S. House Information 
System and Dialcom, a national 
telephone-access computer firm. 

Coyne, quoted by the computer 
newspaper Infoworld, said of Email, "As 
the public becomes more aware of it, it 
will be easier for them to give elected 
officials their two cents' worth— and 
that's about what it will cost them." 

Free computers 
for French 

Telematique, the French national 
program to advance electronic 
information technologies, has 
announced plans to offer as many as a 
million French citizens free computer 
torminals. 

According to a report in the computer 
newspaper Infoworld, the computers 
would be part of a massive electronic 
telephone directory experiment that may 
eventually replace printed directories in 
all French households. 

Currently the French are conducting 
an electronic telephone directory 
experiment in Western France. By the 
beginning of this year 270,000 homes 
and businesses were expected to be 
participating in that trial. 

At Comdex the French announced 
plans to expand the experiment to Paris. 
A portion of those terminals will be 
aimed at the professional market and 
will be an open-ended tool for the 
businessman. 

Roy Bright— managing director of In- 
telematique, the international marketing 
arm of Telematique— said the 300,000 to 
600,000 terminals ordered by the French 
could lower the price of the devices in 
the United States to $300. 

CompuServe-AP 
experiment extended 

Eleven newspaper members of the 



Associated Press will continue their 
videotext experiment with a major data 
base through the middle of 1982. The 
experiment was slated to end in 
December 1981. 

Some of the newspapers have been 
on-line with CompuServe Inc., of 
Columbus, OH, since July 1980, but 
others didn't plug into the system until 
last summer and fall. 

Experimenters will take a close look a 
three aspects of the videotext test in its 
final months: 

• A study of the experiment by RMH 
Research Inc. to pinpoint the wants of 
present and future videotext subscribers 
and measure the market potential of 
videopapers; 

• Implementation of the first national 
electronic classified advertising data 
base provided by newspapers; and 

• Installation of computer terminals in 
100 homes across the United States for 
five months to get the reaction of a 
cross-section of videotext viewers. 

Newspapers participating in the 
experiment are the Columbus (OH) 
Dispatch, Washington Post, Los Angeles 
Times, New York Times, St. Louis Post- 
Dispatch, Minneapolis Star & Tribune, 
Atlanta Journal and Constitution, 
Norfolk (VA) Virginian-Pilot and Ledger 
Star, San Francisco Examiner and 
Chronicle, and Middlesex (Framingham, 
MA) News. 



The news is up 
to date at this mall 

When shoppers at the Westmount Mall 
in London, Ontario, tire of consumerism, 
they can take a break at the Videopress 
booth, a "first of its kind" commercial 
videotext system using Telidon 
technology. 

The Free Press Printing Company, 
which created the booth, sells 
commercial spots— displayed on four- 
foot tv screens— to stores in the mall, 
non-competing merchants outside the 
mall and national advertisers. A 
continuous stream of 10-second ads are 
recycled every six minutes. The 
messages can be changed or updated 
instantly and inexpensively, allowing 
advertisers to react almost instantly to 
market conditions. 



Shoppers may access information at 
the booth through three interactive 
touch-screen terminals. The information 
includes news headlines, weather, road 
conditions, entertainment, local 
community events, winning lottery 
numbers, a mall guide and a mall gift 
guide. 

First Epaper in Canada 

Canada's first electronic newspaper has 
hit the tubes. Using Telidon— an 
information system developed by the 
Canadian government — La Presse of 
Montreal offers an electronic edition 
featuring national and international 
news 24 hours a day. 

The Epaper involves 50 sequential 
screens repeated every 20 minutes. 
Nighthawks can catch the next day's 
news by tuning in at midnight. 

Electronic La Presse is offered by the 
Videotron Group to 551,000 cable tv 
subscribers in greater Montreal, Trois- 
Rivieres, Quebec City, Sherbrooke, Vic- 
toriaville, Gatineau and Mont Laurier. 

Soon at your local 
stationery store 

Wilson Jones Company, which has sold 
commercial office supplies for more 
than 80 years, is entering the software 
business. The firm, a subsidiary of 
American Brands Inc., will be marketing 
six accounting software packages aimed 
at the more than 10 million small busi- 
nesses in the United States. According 
to American Brands, formerly The 
American Tobbaco Company, the 
distribution channel opened by Wilson 
Jones has the potential of reaching 
more than 10,000 retailers. 

Another 

communications 
bill unveiled 

A bill to restructure the $75 billion 
communications industry was 
introduced by U.S. House tele- 
communications subcommittee 
chairman Tim Wirth, D-CO. 

A restructuring bill has also been 
introduced in the U.S. Senate and 
another proposed by the Federal 
Communications Commission. 



continued 
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Wirth's bill, aimed at fostering 
competition in the industry, would allow 
American Telephone & Telegraph Co. to 
set up a subsidiary to provide 
unregulated data-processing services 
and to sell phone equipment. 

I he subsidiary would be designed 
to minimize the possibility AT&T would 
use its revenue from monopoly services 
such as local phone service to subsidize 
competitive services provided by the 
new unit. 

However, the chairman's bill would 
give AT&T two options for setting up the 
subsidiary. 

If the new "Baby Bell" offered 
services the parent company provided, it 
would have to receive some of its initial 
capital and all of its subsequent capital 
from outside the Bell System. 

If the subsidiary offered new services, 
the separation requirements between 
parent and subsidiary would be less 
stringent and only one-fourth of the 
capital would come from outside the Bell 
System. 

A plan for setting up Baby Bell was 
submitted to the FCC by AT&T at the 
end of last year (see 80 Micro, February 
1981). 

Hearings on Wirth's bill were 
scheduled for last month and a 
subcommittee vote on the proposal 
planned for this month. 



More data bases 

Computer users can tap at least 960 
data bases, up from about 400 two years 
ago, according to Cuadra Associates, 
publisher of an industry directory. For 
every data base that's discontinued, 
about 25 new ones crop up, Cuadra said. 



CompuServe to 
manage Comp-U-Card 

A major computer information provider 
and the largest computerized shopping 
service in the nation have announced a 
five-year, $9.5 million resource manage- 
ment agreement. 

Under the pact, CompuServe of 
Columbus, OH, has agreed to manage 
orders for Comp-U-Card of Stamford, CT. 



In a statement released by 
CompuServe, an H&R Block company, it 
predicted it would have to dedicate 
entire mainframe computers to meet 
Comp-U-Card's needs. 

Comp-U-Card will use CompuServe to 
allow the shopping service's some two 
million subscribers to buy brand name 
appliances, furniture, electronic goods, 
china ana silver at prices as much as 40 
percent below manufacturers' list prices. 
The service can be accessed through 
computers, the telephone and cable tv. 



Button button 

Seymour Rubinstein, president of Micro 
Pro International, manufacturer of 
WordStar, had this bit of advice for 
members of the Western Computer 
Dealer's Association at its recent 
meeting in San Mateo, CA: "Get to know 
the 'hot buttons' of the customer— 
what feature he or she needs— 
and push them." 



$50,000 reward 
for info on 
semiconductor thieves 

Monolithic Memories of Sunnyvale, CA, 
is offering $50,000 for information 
leading to the arrest and conviction of 
anyone responsible for robbing $2.7 
million in semiconductor chips from the 
firm last Thanksgiving weekend. The 
theft is reportedly the largest ever of 
semiconductor devices. 



Daisy wheel will 
roll over dot matrix 

"I know this isn't a popular opinion, but I 
think you will see daisy wheels making a 

comeback and the growth rate of dot 
matrix printers slow.'' 

That's the view of Peter Wright, vice 
president of Gatner Group Inc. Wright's 
remarks, reported by Computer Business 
News, were made at Comdex '81 held 
last November in Las Vegas. 

Wright said the average price of daisy 
wheel printers will drop over the next 18 
months to $1500. Currently the average 
is $3000. 

Wright also predicted greater 



penetration by the Japanese into the 
daisy wheel market: "Two years ago 
Qume and Diablo each owned 40 percent 
of the market, but recently Japanese 
companies have seized the opportunities 
available in this market." 

In a related matter, the Venture 
Development Corporation of Wellesley, 
MA, said in a study released late last 
year U.S. printer manufacturers are 
being challenged by foreign competitors. 

The report added that some American 
small system manufacturers have 
already switched to Japanese daisy 
wheel printers, which are cheaper and 
faster than similar printers made in the 
states. 



New York-Canadian 
synergy 

The New York Times Information Service 
Inc. and Info Globe of Canada 

announced an agreement to market 
each other's data Oases in theii 
respective nations. The NYT Information 
Service data base includes the full text 
of the New York Times; AMI, a marketing 
and advertising data base; and MEDAB, 
a Middle East information service. Info 
Globe's data base includes the full text 
of The Globe and Mail, a national 
Canadian newspaper, and MARKET- 
SCAN, a stock quotation service. 

Info Manager Barbara Hyland noted in 
a statement announcing the pact, "We 
believe that many positive benefits will 
flow from the synergy which will develop 
as a result of this agreement." 



Flakey computer 

If you live in a state beginning with "M," 
you may"receive an unwanted surprise 
from New York City. 
"We're having a little trouble on our 

computer with stales beginning with the 
letter 'M,' " a spokesman for the city's 
parking violations bureau told the 
Boston Globe. "Thousands of violation 
notices have been sent erroneously." 

"The problem came to the Globe's 
attention when Natick, MA, was billed 
$120 for three $15 fines and the usual 
harsh penalties for late payment. The 
vehicle owned by the town and cited on 
the tickets was a half-ton air 
compressor— a trailer-like vehicle 
without an engine.H 
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RELOAD 80 



Disk drive users are in luck— 
this month LOAD 80 branches 
out to include disks as well as 
cassettes. This column will 
cover the specifics of LOAD 80 
on disk: loading and running 
programs on one or two-drive 
Model I or Model III systems. 

Like the cassette, LOAD80on 
disk will be made up of the list- 
ings we publish monthly in 80 
Microcomputing. Because not 
everything will fit, we select 
those programs which are fairly 
long (more than a few screen 
fuls) and of general interest. In 
any case, the disks you receive 
will be brimful. 

LOAD 80 wili be produced on 
a single-density TRSDOS 
2.3-formatted data disk, with no 
operating system. To increase 
the disk space and keep the 
price down, it will be produced 
on double-sided (flippy) disks. 
These disks have two sense 
holes and two write-protect 
holes, enabling users to read the 
disk one side at a time. 



Using a flippy in this manner 
could result in short media life 
because the direction in which 
the disk spins relative to the 
read-write head is changed 
when the disk is flipped over. 
Therefore,bac/oup this disk onto 
a single-sided disk immediately. 

Model III Users 

Since the disks are in a single- 
density format, Model I users 
with more than one drive can 
simply place their operating 
system in Drive 0, place the 
LOAD 80 disk in another drive, 
press Reset, and begin. Model III 
users, however, have the pro- 
blem of reading a single-density 
disk with a double-density 
operating system. Here is how 
to do it with Model III TRSDOS: 

1. Place a back-up of your 

TRSDOS disk in Drive 0. Place 
your LOAD 80 disk in Drive 1. 
either side up. 

2. PURGE files on Drive until 
you have at ieast 134 free 





Versions 


(Y/N) 


Syntax 


DOSPLUS 


All 


Y 


COPY: filename 


LDOS 


5.0 


Y 


XPER filename 




5.1 


Y 


COPY filename (X) 


MULTIDOS 


All 


Y 


COPY :0 Sfiiename 


NEWDOS 


All 


Y 


COPY .0 Sfiiename TO filename 


NEWDOS80 


Ail 


Y 


COPY :0 $filename TO filename 


TRSDOS 


All 


N 





ULTRA DOS 


All 


Y 


COPY :0 Sfiiename TO filename 


Table 1 


Model 1 single-file, single-drive copying. 





Versions 


(Y/N) 


Syntax 


DOSPLUS 


All 


Y 


COPYI filename 


LDOS 


A! 


Y 


COPY filename (X) 


MULTIDOS 


Al 


Y 


COPY :0 Sfiiename 


NEWDOS60 


A'. 


N 





TRSDOS 


All 


N 




Table 2. Model III single-file, single-drive copying, single to 


double density. 









GRANS. (See your operating 
manual for details on the 
PURGE utility.) 

3. Type CONVERT and 
<Enter>. Answer 1 to Source, 
to Destination. 

4. CONVERT will read each 
file in single-density format and 
then copy it in double-density 
format onto your TRSDOS disk. 

5. Flip the LOAD 80 disk over 
and do steps 3-4 again. 

Consult your manual ii you 
have trouble. Remember that 
not all files will run correctly on 

the Model III. This is especially 
true of assembly language pro- 
grams. 

One-drive Users 

Because LOAD 80 is pro- 
duced without an operating sys- 
tem, one-drive users must own 
an operating system or utility 
which permits single-file, single- 
drive copying. Model III owners 
with only one drive encounter 
another problem because the 
data disk is single-density and 
the DOS disk ^s double-density. 

We have prepared the follow- 
ing tables of a few popular oper- 
ating systems, along with their 
single-file, single-drive copy 



capabilities. Table .1 is for the 
Model I; Table 2 is for the Model 
III. As with all software, read the 
manual thoroughly before you 
use the program, and follow on- 
screen prompts. You will find 
the correct file names listed in 
the LOAD 80 directory enclosed 
with the disk. 

Please note that this informa- 
tion comes directly from the pro- 
ducers of the various operating 
systems; if a command doesn't 
work call them, not us. 

Errata 

Program 6 on side B of the 
December LOAD 80 (file name 
P1) is incomplete. Lines 
100-3780 were inadvertently left 
off the tape, but were included 
in the magazine. The correct ver- 
sion will be included on the 
March LOAD 80. Use Floppy- 
Fixer on page 326 of the Decem- 
ber 1981 80 Microcomputing as 
documentation. 

Please address any questions 
to: 

Art Huston 

Technical Editor 

80 Microcomputing 

Pine St. 

Peterborough, NH 03458 

or call (603) 924-9471. ■ 



Program 


Title 


Page 


Comments 


1 


THREEDEE 


1 38 


NONE 


2 


PRMSRCH 


152 


NONE 


3 


HUMANS 


154 


NONE 


4 


GRADES 


184 


NONE 


5 


SCRNPRNT 


214 


NOME 


6 


CENSOR 


216 


NONE 


7 


OTHLLO80 


252 


NONE 


8 


RGRAPHIC 


294 


NONE 


g 


BLTNBRD 


314 


NONE 


10 


FLPYFIXR 


* 


Needs EDTASM 


'Page 326 of December 1981 80 Microcomputing. 
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March 

1-2 Michigan Association for Comput- 
er Users in Learning, Wayne, Ml. 
Sixth annual convention featuring 
sessions on facets of education 
uses of computers, Western Michi- 
gan University, Kalamazoo, Ml. 

3-4 University of Washington 
Academic Computer Center, Seat- 
tle, WA. Eighth Annual Computer 
Fair. 

3-7 Catalyst, Jersey City State Col- 
lege, Jersey City, NJ. Microcom- 
puter Week '82, "an international 
event of significance to 
educators," Jersey City State Col- 
lege, Jersey City, NJ. 

9-10 The Yankee Group, Cambridge, 
MA. Seminar on the Super Service 
Bureau, New York City, NY. 

12-13 Seattle Pacific University and Na- 
tional Council for Computers in 
Education. Fifth Annual Comput- 
ers in Education Conference, Seat- 
tle Pacific University, Seattle, WA. 

16-18 McGraw Hill International Training 
Systems, Edutronics Division, New 
York City International Training 
Conference: Tools for Data Pro- 
cessing Training, McGraw-Hill 
Building, New York City, NY 

18-20 Technical Education Research 
Centers, Cambridge, MA. Work- 
shop on microcomputers in educa- 
tion, Mesa Community College, 
Phoenix, AZ. 

22 25 Hie interface Group, Framingham, 
MA. INTERFACE '82— communi- 
cations-information conference 
and exposition for sophisticated 
end users, Dallas Convention 
Center. Dallas. IX. 

24-26 Technical Education Research 
Centers, Cambridge, MA. Work- 
shop on Microcomputers in educa- 
tion, Lewis and Clark College, 
Portland, OR. 

26-28 The Interface Group, Framingham, 
MA. Showcase Expo for small busi- 



ness proprietors, independent 
neighborhood professionals and 
mid-level corporate managers, 

Georgia World Congress Center, 
Atlanta. 

28 Greater Baltimore Hamboree and 
Computerfest. Timonium, MD. 
Multi-interest small computer and 
electronics show, Maryland State 
Fairgrounds Exhibition Complex, 
Timonium, MD. 

7-9 American Management Associa- 
tion, New York City, NY. Course 
on paperwork management, New 
York City, NY. 



April 



1-3 Alaska Association for Com- 
puters in Education, Anchorage, 
AK. Educational Computing— The 
Future is Now conference, An- 
chorage, AK. 

2-3 Montana Council of Teachers of 
Mathematics and Montana Office 
of Public Instruction. Rocky 
Mountain Computer Conference 
for educators, Ramada Inn, Bill- 
ings. MT. 

2-4 Kengore Corp., Franklin Park, NJ. 
Eighty/Apple Cumputer Show— 
an exposition for products and 
services for Apple and TRS-80 
computers, NY Statler Hotel, New 
York, NY. 

12-14 American Management Associa- 
tions, New York, NY Course on pa- 
perwork management, Chicago, 
IL. 

15-17 The Interface Group, Fram- 
ingham, MA. Showcase Expo for 
small business proprietors, in- 
dependent neighborhood profes- 
sionals and mid-level corporate 
managers. A. J. Cervantes Hall, 
St. Louis. 

15-18 National Computer Shows, Chest- 





Ken On will be one of the featured 
speakers March 16-18 at the international 
training conference held in New York City 
by the Edutronics Division of McGraw-Hill. 



nut Hill, MA. Southwest Computer 
Show and Office Equipment Expo- 
sition, Market Hall, Dallas Market 
Center. Dallas, TX. 

16-18 Virginia Computer User's Confer- 
ence, Association for Computing 
Machinery, and Virginia Polytech- 
nic Institute and State University. 
12th Annual Conference with 
topics on artificial intelligence, of- 
fice automation and data-base 
management, Marriot Hotel, 
Blacksburg, VA. 

22-25 The National Computer Shows, 
Chestnut Hill, MA- New York Com- 
puter Show and Office Equipment 
Exposition, Nassau Coliseum. 
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Uniondale, Long Island, NY. 
3-25 The Interface Group, Fram- 
ingham, MA. Showcase Expo for 
small business proprietors, in- 
dependent neighborhood profes- 
sionals and mid-level corporate 
managers, Miami Expo Center, 
Miami, FA. 

24 John Craig's Computer Swap, 
Palo Alto, CA. Flea market for 
computer enthusiasts, Santa 
Clara County Fairgrounds, San 
Jose, CA. 



May 

4-8 University of California Extension, 
Berkeley. 16-Bit Microprocessor 
Workshop, (6 week evening 
course), Mountain View, CA. 

6-9 The National Computer Shows, 
Chestnut Hill, MA. Southern Cali- 
fornia Computer Show and Office 
Equipment Exposition, LA. Con- 
vention Center, Los Angeles, CA. 

7-9 The Interface Group, Fram- 
ingham, MA. Showcase Expo for 
small business proprietors, in- 
dependent neighborhood profes- 
sionals and mid-level corporate 
managers, Anaheim Convention 
Center, Anaheim, CA. 

11-12 The Yankee Group, Cambridge, 
MA. The Next Generation of Con- 
sumer Electronics seminar, Palo 
Alto, CA. 



19 University of California Extension, 
Berkeley. The Manager's Ap- 
proach to 16-Bit Microprocessors, 

(one-day intensive course), Moun- 
tain View, CA. 



21-23 The Interface Group, Fram- 
ingham, MA. Showcase Expo for 
small business proprietors, in- 
dependent neighborhood profes- 
sionals and mid-level corporate 
managers. Commonwealth Pier 
Exhibition Hall, Boston, MA. 



Coming 
Next Month 



What's the ultimate utility? How about a 
utility to help you find utilities? That's what 
will be featured next month when 80 Micro 
raises the curtain on its buyer's guide to 
utilities — editor/assemblers, 
disassemblers, monitors, terminal 
packages, Basic editors, and tape, file and 
speed-up utilities. Also in April. . .Gather 
around the chalk board as Jake Com- 
mander presents a tutorial on utilities; 
polish up your Skinner box for an exclusive 
80 Micro interview with the graduate stu- 
dent that got B.F. on the research road 
after a 20 year hiatus; and steel yourself for 
some April foolishness fashioned to 
feather your funny bone. 



Pro< 



Continued from page 10 



tion of television camera and computer. 
This combination can be used to set up a 
feedback loop between program and cam- 
era, allowing the program to modify its own 
designs. The motion picture industry is 
already well into inventing and using these 
new ideas. As you can see, between typing 
in a short program and interfacing external 
hardware, computer graphics can be as 
simple or complicated as you want. 

To push your video display to its greatest 
heights, however, some patience and 
perseverance will be required. Although we 
provide you with some programs to try out, 
if you're serious you should familiarize 
yourself thoroughly with computer graph- 
ics to get that all-important extra insight. 

sSee List of Advertisers on page 402 



It's interesting to see how many proficient 
programmers avoid graphics because of 
the extra efforts involved. If you have the 
determination to master both the arts of 
programming and graphics, your services 
are likely to be always in demand. To get 
started, you will need some reading with a 
little simple math thrown in. Unfortunately, 
there is a dearth of good beginners' books 
on the subject. Most that I've seen jump feet 
first into some awful-looking math which 
would scare off any neophyte. I hope we 
manage to provide some enlightenment, en- 
couragement and inspiration in this issue. 

Jake Commander 
Technical Consultant 







You've Written 
a Fantastic Game? 
Then We'd Like to Publish It! 
We're looking for hot GAME pro- 
grams: 

ARCADE (HI-SPEED GRAPHICS) 

ADVENTURE FORMAT 

FANTASY WARGAMING 

BOARD GAMES 

LOGIC & PUZZLE GAMES 
There's Gold in them there 
Games! Write for our free 
Programmer's Kit today. 

INSTANT SOFTWARE, INC. 

Submissions Dept. 

Peterborough, NH 03458 
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C^JSJT^ If You've Written 

5JH^ State-of-the-Art Software - 

We'd Like to Publish It! 

We're looking for SYSTEM software: 

DISK OPERATING SYSTEMS 

MONITORS 

PROGRAMMER AIDS/UTILITIES 

LANGUAGES 

DATA BASE SYSTEMS 

Then, sit back and collect your 

royalty checks. Write for our free 

Programmer's Kit today! 

INSTANT SOFTWARE, INC. ^2 

Submissions Dept. 

Peterborough, NH 03458 
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If You've Written 

a Useful Program - 

We'd Like to Publish It! 

We want programs for 
INDUSTRIAL applications: 

JOB COST ESTIMATES 
INDUSTRIAL (PROCESS) CONTROL 
JOB TRACKING 
MACHINE SCHEDULING 

Get published and earn royalties! 
Write for our free Programmer's 
Kit today. 

INSTANT SOFTWARE. INC. 
Submissions Dept. *z 

Peterborough, NH 03458 
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edited by Janet Fiderio 



Featuring — The Prism Printer 
Color Graphics and Printing for your TRS-80. 
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The Prism Printer 

The Prism Printer is a fully con- 
figured 132-column dot matrix, soft- 
ware selectable, eight color printer. A 
four band ribbon carries the process 
colors of cyan, magenta, yellow, and 
black. Additional ribbons are optional. 

Prism features include: semi-auto- 
matic cut sheet feed, a high speed 
data mode, nine-wire ballistic-type 
print head incorporating two stag- 
gered rows of print needles to create 
vertically overlapping dots in a single 
pass (achieves correspondence quali- 
ty print and true mixing of colors), pro- 



portional spacing, enhanced (bold) 
text printing, and standard print densit- 
ies of 10, 12, or 16.7 characters per inch. 

Selectable features include: auto- 
matic text justification, programmable 
horizontal and vertical tabbing, reverse 
paper feed, and fine positioning of 
characters. Microprocessor controlled, 
ths print:!;! ha f - "logic seeking" look- 
ahead capability and high-speed slew 
for maximum output. It has both anRS- 
232C serial interface and a Centronics- 
compatible parallel interface. 

Priced at $1995, this printer is avail- 
able from Integral Data Systems Inc., 
Milford, NH 03055, (603) 673-9100. 

Reader Service ^550 



Only the Shadow Knows 



Macro Mon, dubbed "The Shadow," is a 
machine language program allowing dis- 
assembly and examination of program in- 
structions from within the computer's 
memory. It disassembles each instruction 
as it is executed, and then optionally 



sends it, with all current register values, to 
the video screen or printer. 

"The Shadow" may be located any- 
where in RAM. Additional features include 
the ability to: single-step through ROM, 
set user-defined break points in RAM or 
ROM, find any string up to 16 bytes long in 
RAM or ROM, provide a visual display of 
tape Loads and Saves, and relocate any 



machine language program in RAM with 
all external calls and jumps changed to 
execute in their new location. 

It is available for the Model I (cassette 
$54.95, disk $59.95) or for the Model III 
(disk $69.95) from Advanced Operating 
Systems, 450 St. Johns Road, Michigan 
City, IN 46360, (219) 879-4693. 

Reader Service ^-551 



Datapack 

A Data 

Communications Package 

Datapack is a terminal package pro- 
gram forthe Color Computer. It allows you 
to use the computer as a buffered com- 
puter terminal through a modem to a time 
sharing network, or as a direct-connect 
terminal to another computer system. 

The program saves data stored in the 
buffer either to cassette tape, or outputs 
to the printer. The data output is automati- 
cally set to the maximum size of your 
system memory when entered, allowing 
maximum space for saving data. Also in- 
cluded are features to send control codes 
and to enable or disable keyboard echo. 
When the terminal mode is exited the con- 
tents of the buffer may be viewed on the 
screen or saved to tape for later loading. 

For more detailed information contact 
Cer-Comp, 5566 Richochett Ave., Las 
Vegas, NV (702) 452-0632. Datapack is 
priced at $24.95. 

Reader Service ^552 



Wildcat, Disk Directory 

Wildcat is an advanced disk directory 
catalog system which reads directories 
directly from the disks of all Basic, Scrip- 
sit, Pencil, and Edtasm type files. It also 
appends the first 50 characters of any 
data or other ASCII type file. 

The catalog information contains the 
disk ID, name, date, free grans, filespec, 
and first line remark. Four versions are 
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Nanos System 
REFERENCE CARDS 

(for Model I and Model III) 



At last! No more flipping through the pages of the Basic manu- 
al! No more working through the maze of machine language in- 
structions! These cards completely summarize the Basic and 
Assembler manuals! FEATURES (on most cards): 
memory map, eyeball graphics, math instructions, basic com- 
mands, store instructions, basic functions, load instructions, 
basic statements, move instructions, special keys, exchange 
instructions, print using examples, shift instructions, basic 
special characters, compare instructions, basic and assembler 
messages and codes, branch instructions, basic facts, data al- 
teration instructions, reserved words, I/O instructions, ROM 
routines, complete character chart with graphics and space- 
compression codes, hex-dec chart, control code cross-refer- 
ence, assembler instructions commands and operators, screen 
line layout, editor commands & subcommands, condition code 
easy access 

Plus— ' : magic graphics number— a mystery until you learn how 
to use it! 

Designed as a fold-up, accordion-style card, fits in your pocket. 
Panels organized for optimum speed for reference. 
Model I: BASIC only FC1001 $2.95 
Model I: BASIC and Assembler FC1002 $4.95 NEW! 

DOS RANDOM ACCESS & BASIC FILE 
HANDLING — By H.J. Muller. This book 
was written for the nonprogrammer. It is 
ideal for the businessman or professional 
who needs to solve and write special pro- 
grams for in-house business problems, or 
the hobbyist who wants to go beyond the 
cassette recorder and into disk storage 
and file manipulation. It is written as a 
self-instruction tutorial and will provide 
anyone with some Level II experience with 
the ability to write special programs for in- 
ventories, mailing list, work scheduling, 
record keeping, research project data ma- 
. _„ „ , nipulation, etc. 150 pages. BK1236 $24.50 

NEW! 

FOR THE MODEL HI 

MOD II ROM COMMENTED— Soft-Sector 

marketing, 1981. This book is not an in- 
struction course on machine language, 
but rather an information source that you 
can use time and time again for writing 
your own program or patching old Mod 
machine language programs. It contains 
an explanation of ROMs in the latest ma- 
chine from Tandy, with must every loca- 
tion of the 14K ROMs listed, with com- 
ments. BK1235 $22.50. 





NOW AVAILABLE FOR THE MODEL III 
Nanos System Reference Card 
(as described above) 
Model III: BASIC FC1004 $3.95 
Model III: BASIC and Assembler FC1003 $5.95 



Prices do not include shipping and handling charges. Please include $1.50 for first 
book, $1.00 each additional book and $10.00 per book foreign airmail. Sorry no COD 
orders. Use the order card in this magazine to order. Allow 4-6 weeks for delivery. 

80 Microcomputing Bookshelf • Peterborough, NH 03458 
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EIGHTY/ 

APPLE 

COMPUTER 

SHOW 

(Formerly the Nat'l. TRS-80 Show) 

FOR APPLE* and 

TRS-80* COMPUTER 

SYSTEMS 

April 2-4, 1982 

New York Statler 

7th. Ave. & 33rd. Street 

New York, NY 

The EIGHTY/APPLE COMPUTER 
SHOW will feature over 100 exhibitors 
of equipment, supplies, books, maga- 
zines, parts, software and accessories 
for the TRS-80 and Apple Computer 
systems. There will be demonstrations 
of new and exciting products for the 
TRS-80 and Apple systems, for the 
businessman, professional, educator 
and hobbyist. In addition, most exhibi- 
tors will be selling their products at the 
show for immediate delivery. If you 
own a TRS-80 or Apple Computer, or 
have been thinking of purchasing one 
of these two exciting systems, don't 
miss the Eighty/Apple Computer Show. 
SAVE $2.00 on admission by bringing 
in the coupon below! 

SHOW HOURS 

Friday April 2 11AM to 7 PM 
Saturday April 3 11AM to 7 PM 
Sunday April 4 11AM to 5 PM 

REGISTRATION $5.00 Day 

Children under 12 - $1.00 

FOR EXHIBITOR INFORMATION 
CONTACT 

Kengore Corporation 

3001 Route 27 

Franklin Park, NJ 08823 

(201) 297-2526 



L* TRS-80 is a Tr 
a Trademark a 



-Sec- List ot Advertisers on page. 402 



'TRS-80 is a Trademark of Tandy Corp. and Apple is 
a Trademark of Apple Computer Co. 

SAVE $2.00 — — — — ■ 

This coupon is good for Two Dollars 
($2.00) off the regular daily registration 
fee of $5.00. Limit one coupon per per- 
son, not applicable to children's admis- 
sion. Only original copies of this cou- 
pon will be accepted. 

EIGHTY/APPLE SHOW 

April 2-4. 1982 

NY Statler " 

(NO CASH VALUE) £ § 

L. m m - m SAVE $2.00 — « - - -J 
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'S 



available for the Model I, 48K, with at least 
two five-inch disk drives. 

Wildcat is priced at $39.95 and is avail- 
able from Donald M. Fielding, 2207 NW 61 
Place, Margate, FL 33063, (305) 972-6744. 

Reader Service ^553 



Stiff Upper Lisp 



An improved version of Lisp is now be- 
ing marketed. 

Stiff Upper Lisp offers an interactive 
computing environment with more than 
120 compiled functions in less than 14K 
bytes. Lisp functions and data have the 
same form so that one function can ana- 
lyze another. 

Additional features include a library of 
functions written and callable as needed, 
symbolic debugging aids, an editor writ- 
ten in Lisp that can be customized, an on- 
line help facility, a printer formatter, and a 
spelling correction function. 

For more information contact Lifeboat 
Associates, 1651 Third Ave., New York, NY 
10028, (212)860-0300. 

Reader Service ^554 



Entire Game System 

The Adventure System was designed to 
provide a standardized adventure format 
to replace those currently on the market 
and allow authors the capability to design 
original adventures limited only by their 
hardware. In addition, the Adventure Sys- 
tem provides end users the criteria to eval- 
uate new adventures as they appear. 

The system consists of an adventure 
editor, a driver program to execute data 
bases created by the editor, and two com- 
plete adventures written by the author. It 
is available for the Model I and III disk sys- 
tem with 48K from The Alternate Source, 
1806 Ada, Lansing, Ml 48910, (517) 487-. 
3358. The package is priced at $39.95. 

Reader Service ^555 



Data Ace 

For the Model II 



Data Ace combines a Data Base 
Management and Operating System, a 
conversational Data Definition Language 
(DDL), an Interactive Query Language 
(DIL), Block Structures programming 




Data Ace 



language for easy development (DML), 
and a full screen text editor to create and 
maintain programs and procedures. The 
combination of these features enable the 
user to automate a business rapidly to the 
exact requirements needed. 

This system runs on the Model II with 
64K, an expansion box, at least one drive 
and a printer. The price of the system is 
$1350. The package includes a formatted 
disk, a demonstration disk, a two systems 
disk (for each use), and both volumes of 
the users guide. 

For additional information contact The 
Aragon Group Inc., 1904 Wright Circle, 
Anaheim, CA 92806, (714) 634-9012. 

Reader Service ^-556 



New Dip Printer 



The Dip-95 is a nine-wire impact printer 
with switch-selectable, dual-mode capacity. 

The data processing mode uses a nine 
by nine matrix font while the correspon- 
dence mode uses an 1 1 by nine font. Some 
of the features offered are: six different 
character sizes, one or two pass printing, 
bidirectional printing, tractor and friction 
feed, continuous loop ribbon cartridge, 
variable line density, continuous form 
length control, and telecommunications 
capabilities. 

Its dot-addressable graphic capabili- 
ties can provide plotting, drawing illustra- 




te Dip-95 Printer. 
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tions, printing CRT screen graphics, and 
special effect symbols. 

The Dip-95 is priced at $929 from Dip 
Inc., 745 Atlantic Ave., Boston, MA 02111, 
(617)482-4214. 

Reader Service ^557 



Automated 
Electronic Mail System 

The Automated Electronic Mail System, 
geared towards the commercial software 
user, allows point to-point document 
communications. The system consists of 
two programs. 

The first, an auto answer (data collec- 
tion) system, features unattended recep- 
tion of ASCII files with automated error 
handling and optional logging of files 
received. 

The sending system features auto dial 
and spooled output of up to 64 files. The 
system allows the user to set the time one 
wishes the output to begin. Once set for 
output, the user can walk away. All error 
handling and output is done by the 
system. 

The answering system can accept data 
from any computer equipped with a Bell 
103 compatible modem. However, with an 
MSB unit, verification and re-send on error 
of data is accomplished at an effective 
baud rate ol 275. 

Available for the Model I and III, the re- 
ceiving system is priced at $1300, includ- 
ing modem and connecting cable. Price of 
the sending system is $500. Options are 
available for an additional cost. For more 
detailed information contact MSB Con- 
sulting, 170-15 Highland Ave., Jamaica 
Estates, NY 11432, (212) 526-0825. 



Agricultural Software 

The Farm P&L Software package is 
designed for the commercial agricultural 
producer who uses a cash accounting 
system. 

The system files and accumulates cod- 
ed expenses and income. From this coded 
data a 10-page profit and loss statement/ 
management report is generated. 

Information included on this report is: 
detailed and total income and expenses 
for the month and to date, a breakdown of 
expenditures to date, detailed listing of all 
loans payable and all payments made to 
date, and much more. 

This software is customized to the cus- 
tomer's operation and available for the 



Model I, II, III, and the Pocket Computer. 
Prices depend on the customizing, Con- 
tact Summerville Enterprises, Agri-Com- 
puter Services, 104 Broad St., S.E. Alice- 
ville, AL 35442, (205) 373-6383. 
Reader Service ^558 



Power Line Monitor 

The Inmac Power Line Monitor is a 
device that monitors the power sent to 
computers and other sensitive equip- 
ment, using standard 120 Vac. 

The Monitor differentiates six different 
types of problems: power failure, low or 
high line voltage, voltage spike or drop, 
and high frequency noise. The system 
enables the user to determine whether a 
shutdown is due to a faulty system or a 
power problem, and includes a trouble- 
shooting guide to facilitate user repairs. 

The cost of this product is $295. For in- 
formation contact Inmac Corporation, 
2465 Augustine Drive, Santa Clara, CA 
95051. 

Reader Service ^559 



Bad-Check Summary 

The Automated Bad-Check Summary is 
a program designed for the Model I owner. 
It is a computer-managed business ser- 
vice package which lets you provide a 
bad-check service to the retail businesses 
in your area to make money. 




By gathering bad-check information 
from merchants, the user forms a cumula- 
tive list that is constantly revised. The 
bad-check summary generated by the pro- 
gram consists of the bank number, the 
person's account number, amount of 
check, date written, and the reporting sub- 
scribing merchant. 

The summary is available on disk for 
$99.95 from ABS Suppliers, Box 8297, 3352 
Chelsea Circle, Ann Arbor, Ml 48104, (313) 
971-1404. 

Reader Service ^560 



E. E. Ladder 

The Electrical Engineering Ladder Net- 
work Analysis Program, known as E. E. 
Ladder, is designed for the Electronics 
designer. 

The program calculates either the 
transmission coefficient or the insertion 
loss magnitude, along with the phase an- 
gle of the user's design, allowing modifi- 
cation of the design to fit the response of 
the actual network. These functions are 
calculated over any desired frequency 
range and are plotted on the video display 
or line printer. The circuit reflection coeffi- 
cients and driving point impedances are 
also calculated over the frequency range 
selected. 

E. E. Ladder can be used in the design 
of matching networks, filters, terminators, 
crossover networks, and other passive el- 
ement designs which are frequency de- 
pendent. 

Disks can be purchased for $59.95, 
tapes for $54.95 for the Model I and III. 
Both are available from Advanced Operat- 
ing Systems, 450 St. John Road, Michigan 
City, IN 46360, (219) 879-4693. 

Reader Service ^561 



Search and Sort 



The Inmac Power Line Monitor. 



Search and Sort (SNS) is a collection of 
fast machine language routines which 
may be called from Basic. The package 
sorts strings, integers, single and double 
precision numbers in either ascending or 
descending order. It also does a lightning 
quick search of an already sorted list of 
strings for a given string, and optionally 
inserts a string in the proper place to re- 
tan sorted order. 

SNS is available on cassette for $1 1.95 
or on disk for $13.95. Both disk and cas- 
sette include the 16K, 32K and 48K ver- 



^See List n! Advertisers on page 402 
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sions as well as a Basic test program 
which demonstrates the use and features 
of the collection. For more information, 
write Micro Pro Systems, Route 2 Box 533, 
Cumming, GA 30130, (404) 887-6814. 
Reader Service ^562 



Data Processing Directory 

DP Directory, a new data processing 
reference magazine, publishes the tables 
of contents of over 100 Data Processing 
periodicals each month. The Directory 
covers many data processing magazines 
dealing with hardware, software, systems 
development, telecommunications, graph- 
ics, word processing and personal com- 
puting. 

Twelve monthly issues are available for 
$48 from DP Directory, Box 562, Bloom- 
field, CT 06002. 

Reader Service ^563 



Two New Word Games 

Two new word games are available for 
the Model I and III; both emulate such 
popular games as Scrabble and Boggle. 

Wordwiz pits two players against each 
other using the computer as a score- 
keeper. The object of the game is to make 
as many legitimate words as possible 
from an array of 25 letters. 

The object of the second game, Senten- 
ceer, is to form as many sentences as 
possible from an array of 24 words. Again 
the computer acts as a record and score- 
keeper. 

Both games are priced at $9.95 and are 
available from Shirley Software, Box 417, 
Old Greenwich, CT 06870. 

Reader Service ^564 



Abstract Strategy Game 

Richochet is a game of strategy com- 
bining fast action and arcade-style 
graphics. 

The player maneuvers blocks to set up a 
shot at the opponent's goal while protect- 
ing his own goal from attack. Each player 
has two launchers he can fire against one 
of four different computer opponents or a 
human. 

Richochet is available for the Model I 
and Model III on disk and cassette from 
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The W-DLT Data Line Tester. 



Automated Simulations, Box 4247, Moun- 
tain View, CA 94040, (415) 964-8021. It is 
priced at $19.95. 

Reader Service ^565 



Data Line Tester 

The W-DLT, a portable data line test 
device, identifies the seven most-used 
RS232 data lines and shows likely causes 
of problems. 

In addition, by the flip of a switch the 
W-DLT becomes a null modem used to in- 
terconnect terminals, modems, or com- 
puters without having to reconnect any 
cables. This lets standard devices com- 
municate with each other with one stan- 
dard cable. 

This data line tester is available for 
$59.95 from Warren Instrotech LTD., Box 
4500, Ogdensburg, NY 13669. 

Reader Service ^566 



Estate Planning Software 

Estax 81 is estate planning software for 
the Models I, II and III. 

Written by an estate planning attorney 
for use in a law office, accountant's of- 
fice, life insurance agency or bank trust 
department, "Estax 81" projects estate 
taxes for a husband and wife under the 



Economic Recovery Tax Act of 1981 for 8 
different marital deduction arrangements, 
completing all computations in less than 
60 seconds. 

At least one disk drive, TRSDOS and 
48-64K are required. Priced at $295, this 
software is available from Professional 
Data Corporation, 6449 Goldbranch Road, 
Columbia, SC 29206. 

Reader Service ^567 



APL for the Model II 

TIS-APL is now available in three ver- 
sions for the Model II in kit form. 

The kit consists of an APL interpreter 
on disk, APL keycaps, and an APL charac- 
ter generator. Version I, for educators 
($295), contains all the primitive APL fea- 
tures. The second version, for software 
development ($495), includes all APL prim- 
itives plus all file handling and editing fea- 
tures. The third version, for full software 
support and development ($1195), con- 
tains the versions of the second with the 
added support of receiving future updates 
and enhancements at no added cost. The 
package includes complete access to 
Telecompute's user inquiry telephone 
number. 

For further information contact Tele- 
compute Integrated Systems Inc., 251 
Spadina Ave., Toronto, Ontario. Canada 
M5T 2E2. 

Reader Service ^*568 
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PORTFOLIO 
Management System 



Stores multiple portfolios of stocks, 
puts, calls, warrants, mutual funds, 

and bonds. 

Retrieves market quotes from your 
Dow Jones News Service Account* 

Prints analysis by Portfolio- 
High • Low • Last • Close • Volume 

Current Value • Gain or i oss 
Value Change * Pr ice Change 
Dow Averages 

Creates Tax Record 



MODEL 1 Ml 
S149.95 



MODEL II 
S495.00 



Send Check or Money Order to: 

Snowden E. Bunch, Ph. D. 

< c/o Ehlen Enterprises 

6319 Briarwood Road 

Columbia, SC. 29206 

( (803)787-7256 



" Account established separately with 
Dow Jones, I r.c. 



ARE YOU TIRED OF 

- Fighting protected disks. •• 

- Paying $5.00 more for your 
programs . . . 

- Wasting a whole disk for 1 
program. . . 

- Or a program that won't run when 
you put it to disk? Well, finally... 

VECTOR FIX IS HERE! 

• Identifies machine language pro- 
grams on cassette & loads them into 
high memory. 

• Adds an appendage to patch the 
keyboard vectors enabling the 
program to run from disk regardless 
of the type of DOS. 

• Dumps the program to disk or • • • 

• Allows you to scan or modify the 
program using 'debug' & return to 

VECTOR FIX! 

• Full Control of your monitor. 

• Even patches programs which 
have already been put to disk by 
Apparat's 'Lmoffset Module' thus 
eliminating special loading or 
booting procedures. 

:!2K MODEL I TRS-80 $19.95 

DISK 

Personal checks take 15 banking days to clear. 
Send check or money order to: 

MICRO-MEDIA 

P.O. Box 538. Linden, MI 48451 



^^,,,^^^-,r^&<.,at.r^7-a^SMM-^at^ie4fmae&t,r,:::.-. - a«»in' 



TRS-80* Model I or Model 



SOURCE FILES CREATED AND EDITED IN RAM 
SOURCE FILES ASSEMBLED FROM DISK 
CHAINING OF SOURCE FILES PERMITTED 
> MACHINE LANGUAGE OBJECT CODE 
STORED IN RAM OR TO DISK 



•TRS-80 is a trademark of Tandy Corp 

Z80 is a trademark of Zilog Corp 





MINIMUM 
REQUIREMENTS: 
32KOFRAM 
ONE DISK DRIVE 

RUCTION MANUAL 

CASMW/MANUAL$99 

prod!^ V337 CASM MANUAL ONLY $20 

, P.O. Box 892 • Man/sville, WA 98270 • (206) 659-4279 dealer inquiries invited 
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CONDITIONER 
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Exclusively From Communications Systems Labs 

TIRED of CLOAD troubles with prerecorded tapes? Are CSAVEs 
a headache? USE THE DATA CONDITIONER TO: 

■Copy system and data tapes without your computer. 

■ Eliminate noise and minor dropouts. 

■ Signal condition in both directions-loading & saving. 

■ Operates at ALL TRS-80 baud rates/Mod III high speed tool). 

RUGGED CONSTRUCTION-AC POWE RED ■ DESIGN ED & MADE IN THE USA 
Introductory Price $59.95 (post paid) through April 30,1982 ORDER TODAY! 
Phone Order? ■■■ Use your VISA , MASTERCARD or AMERICAN EXPRESS 

call 

(808) 677-3380 ^361 



write 
COMMUNICATIONS SYSTEMS LABORATORIES 
94-165 Leokane Street, Waipahu, HI 96797 



i< 



/,•:■ 



Text Entry/Edit and Photocomposition 

For TRS-80' Model-I or III with 48K RAM 
and 2 Disk Drives. (3 Disk for Model-I) 
"Native code" driver (parallel and RS-232) 
for Autologic APS-5* & Micro-5 Photo- 
typesetters. Full screen editing and 100, 
FDP compatible markup codes, allowing 
200 User Defined, disk resident, Formats. 
Algorithmic Hyphenation with 500 word 
expandable exception dictionary and 
maintenance program assures correct 
word breaks. Optional line printer proofing 
for context, line-breaks, and hyphenation. 
This low cost, high quality system is now 
available for immediate delivery in a 
predefined configuration of 8 Font Fami- 
lies, for Service Center Use. A complete 
Telecommunication and Mail Order APS- 
5* Typesetting Service, for your MP-X job, 
is now offered by Watson Directory Corp. 
in St. Louis MO. with rates as low as 
$4.95/ft. and measures up to 70 pica. 

Software & User Documentation.. $495. 

(User Documentation Only) $ 25. 

Complete Hw/Sw TRS-80 Model III 48K 
System with User Documentation $2895. 
Quotes on Custom Turn-Key System for 
"your" APS-5* available on request. 

MICRO PRINT-X INC 

P.O. BOX 581 Ballinger, Texas 76821 

(915) 365-2343 

Tandy Corp 



' trademark Radio Shack. D 
'Product of Autologic Inc. 
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See Review in December 81 issue of 
80 MICROCOMPUTING 

If you have a TRS-80 model I, level II with at least 16K 
ot RAM, COGNIVOX VIO-332 will add a whole new 
dimension to your computer. 

Imagine being able to use your voice for entry of com- 
mands and data and then listen to the computer talk 
back to you! This exciting possibility has now become a 
reality at a very affordable price. 

COGNIVOX can be trained to recognize words or short 
phrases from a vocabulary of up to 32 entries of your 
choice. To train COGNIVOX to recognize a word, you 
simply repeat the word three times under the prompting 
of the system. The voice output vocabulary can have up 
to 32 entries chosen by the user. 

COGNIVOX comes complete with microphone, power 
supply, built-in speaker/amplifier, cassette with soft- 
ware and extensive user manual. It plugs into the expan- 
sion port of the keyboard or in the expansion interface 
via a standard 40-pin flat cable with connectors on both 
ends (not included - $19 extra). 

Software provided with the unit includes demonstra- 
tion programs, two voice operated games and programs 
that play music. It is also very easy to add voice I/O to 
your own programs. A simple statement in BASIC is all 
that is needed to either recognize or say a word. 

Use COGNIVOX for data entry when hands or eyes are 
busy, as an educational tool, a sound effects generator, 
an aid to the handicapped, or as a super toy. Use it with 
the Radio Shack power controller (#26-1182) to control 
by voice appliances and lights in your home. The list is 

endless. 

COGNIVOX costs only $149 (plus $4.50 shipping in the 
US. foreign add $'5 for air shipment, CA add 6% tax.) 
The 40-pin flat cable iumper is $19 extra. To order send a 

check by mail or call us at (805) 685-1854, 9AM to 5PM 
M-F and charge it to your VISA or MASTERCARD. 
COGNIVOX is backed by a 120-day warranty against 
manufacturing defects. 

VOICETEK P.O. Box 388, Goleta, CA 93116 



^See List ot Advertisers on page 402 
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The Signalman MK1 Modem 



Compact, Low cost Modem 

The Signalman MKI is a Bell 103 com- 
patible, completely portable modem. 

The Signalman interfaces to any RS-232 
port with a built in RS-232C cable. Its 
small physical size allows users to mount 
it in out-of-the-way spots with its velcro 
fasteners. A tone-audible carrier detect 
circuit replaces flashing LEDs as confir- 
mation of standard phone line connec- 
tions for both voice and data. 

Priced at $129, the modem also in- 
cludes automatic mode selection (origin- 
ate/answer) and a talk data switch. For 
more information contact Anchor Auto- 
mation Inc., 16130 Valerio St., Van Nuys, 
CA 91406, (213)997-6493. 

Reader Service ^569 



The Formula 



The Formula is a software package in- 
corporating the characteristics of a data 
base manager, a word processor, and a 
compiler language along with a general 
accounting system. It is intended to be a 
flexible system generator for business 
and other applications. 

The Formula permits complete applica- 
tion development through the process of 
defining what should go into files, steps 
the job-stream should take in processing, 



and report format. The system also pro- 
vides a complete general accounting sys- 
tem including general ledger, accounts 
receivable, and accounts payable. Also in- 
cluded is a Basic full screen editor. Label 
printing and a professional time account- 
ing system are options. 

The cost of the Formula software is 
$595. For information contact Dynamic 
Microprocessor Associates Inc., 545 Fifth 
Ave., New York, NY 10017, (212) 687-7115. 
The Formula runs on CP/M. 

Reader Service ^570 



Software Enhancements 

A Software Enhancements/Documen- 
tation package is now available for Radio 
Shack's Disk Payroll System for Models I 
and III. 

This software uses machine language 
sorts and features perfectly aligned ver- 
tical spacing and form tops on any 
80-column, or wider, printer. It also allows 
you to make changes to employee data 
without reprinting the entire screen. 

All changes to your Radio Shack disks 
are made under program control so pro- 
gramming skills are not needed. This En- 
hancement/Documentation package is 
priced at $39 and is available from Micro- 
computer Applications, 3485 Mock Or- 
ange Court South, Salem, OR 97302, (503) 
364-1090. 

Reader Service ^571 



Cave Hunting for Treasure 

Cave Hunter is a game for the 16K Color 
Computer using high resolution graphics, 
color, and sound. 

Your objective is to maneuver your way 
through a cave in search of the valuable 
treasures which lie there. As the passage- 
ways weave in all directions, angry cave 
creatures relentlessly pursue you. 

Priced at $24.95, Cave Hunter is avail- 
able from Mark Data Products, 23802 Bar- 
quilla, Mission Viejo, CA 92691, (714) 
768-1551. 

Reader Service ^572 



The Electronic Breadboard 



A new computer-aided design program, 
the Electronic Breadboard, helps elec- 
tronics technicians, engineers and experi- 
menters to evaluate voltages, currents, 
impedence and frequency responses 
without a lot of guesswork. 

The program simulates the effect of the 
addition or removal of components, calcu- 
lates point impedance, analyzes the fre- 
quency response of a circuit, and allows 
circuit designs to be saved on tape or disk. 

Available for the Model I, Level II, 16K 
and Model III, 16K for $49.95. Contact In- 
stant Software Inc., Peterborough, NH 
03458, (603) 924-9471 for more information. 

Reader Service »^573 



Cassette Business Package 

CBP is a cassette business package for 
the Model I and III with 16K. It consists of 
the following programs: a cassette data 
base manager, a word processor, an in- 
ventory control system, a stock manage- 
ment program, a check balancing pro- 
gram, a label printer, a deposit calculator, 
a statistics program, a sort utility, and a 
key access utility. 

CBP is priced at $59 and is available 
from The Micro Architect Inc., 96 Dothan 
St., Arlington, MA 02174, (617) 643-4713. 

Reader Service ^574 



Enhanced Hexspell 

Hexspell 2 is a spelling checker for the 

Models I or III with two disk drives and 48K. 

It features one step error detection and 
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GREEN-SCREEN 



J 



The eye pleasing Green Screen fits ever the front oi your 
TRS-80 Video Display and gives you improved contrast with 
reduced glare. You get bright luminous green characters and 
graphics like those featured by more expensive CRT units. 
Don't confuse the Original Green-Screen with a p.iece of thin 
film stuck to the face of your video tube, such as that adver- 
tised by others. The Original Green Screen is mounted in a full 
frame perfectly matched to the color and texture of the 
TRS-80 Video Display. It is attached with adhesive strips 
which do not mar your unit in any way. 

The full frame design of the Original Green-Screen "squares 
off" the face of your video display and greatly improves the 
overall appearance of your system. 

(Specify whether for Model I or Model III) 

THE GREEN-SCREEN $13.95 

Add $1.50 for postage and handling. 

■^162 



Terms: Check or money order, no CODs or credit cards, please Add amount 
shown tor postage and handling to price ol the item All items shipped within 48 
hours by first class or priority mail. Virginia residents, add 4% sales tax 



Micro- Mega • P.O. Box 6265 • Arlington, Va agffOR 



SCiFTVJflR 






HELP FOR SCR I PS IT USERS 



SCRIPTR IS A DISK AND CASSETTE BASED UNIVERSAL PARALELL 

PRINTER DRIVER FOR THE SCRIPSIT WORD PROCESSING SYSTEM. 

COMPARE SCRIPTR' S FEATURES 



ENTRY AND REENTRY TO DOS WITHOUT LOSING THE TEXT. 
OUTPUT ANY CODE TO THE PRINTFR FROM THE TEXT. 
PROGRAMMED COMMANDS FOR ALL MX-80 AND MICROLINE 80 
FUNCTIONS-! LINESPACING / VERT + HORIZONTAL TABS ) 
CONTINUOUS DISPLAY OF THE ENTIRE PRINTOUT. 
INSERT MATERIAL AT SPECIFIED PLACES DURING THE 
PRINTOUT FOR FORM LETTERS AND REPEATING FORMS. 
EDITING DURING THE PRINTOUT FOR ERRORS, CHANGES. 
KEYBOARD ENTRY OF (7) GRAPHICS DURING EDITING. 
MACRO FUNCTION FOR DRAWING BORDERS WITH GRAPHICS 
VARIABLE SPEED PROGRAMABLE SPEED READER. 
AN INTERACTIVE ERROR CHECKING MODE. 
SEE WHERE ALL PAGES WILL START AND END WITHOUT 
DOING A PRINTOUT AND WASTING PAPER OR TIME. 
UNDER1 INING , EVEN WITH GRAPHICS. 

6 SAMPLE PROGRAMS FULLY EXPLAINING ALL FUNCTIONS. 
65 PAGE BOUND MANUAL, INDEXED, EASY TO READ TYPE. 
RETURN PROG+DOC FOR FULL REFUND IF NOT SATISFIED. 
WILL WORK WITH ANY PARALELL PRINTER. 



lO) . 

11) . 

12). 

13). 
141 . 
15). 

1 6 ) . 



THE PRICE OF THE DISK VERSION IS »40.00 WHICH 
INCLUDES POSTAGE AND HANDLING. VERSIONS AVAILABLE 
FOR MODEL I . +1 I I . MODEL III. VERSION WORKS WITH MOD I. 
SCRIPSIT/LC AND NOT WITH THE STANDARD MODEL III. VER- 
SION OF SCRIPSIT. WE ALSO DO CUSTOM VERSIONS FOR OTHER 
POPULAR PRINTFRS AT REASONABLE PRICES. SPECIFY MODEL 
COMPUTER DESIRED. FOR ORDERS OR INQUIRIES WRITE / CALL 




PIONEER SOFTWARE 
1746 N.W. 55TH AVE. #204 
L.AUDERH I LI. , FL OR I DA 
33313 (305) -739- 2071 



CHECKS - MONEY ORDERS 




/ ACCEPTED 



SOFTWARE you can 



ON! 



Wloptioi 



It you gamble in the big casino -Wall 
Street- you need a program to evaluate 
call options. 0PTI0N80 tells you 
when its time to buy and when it's time 
to sell. Suggests heoges to minimize 
your risk. Takes only 15 minutes a week 
to update and run. Comes with data 
tor 25 calls. Easily expanded to include 
as many as you wish. Sold only on 

diSke,te Only $25.00 



TOUT 3 



A vastly improved version of the 
original TOUT horse race handicapper. 
Now. thousands ot races are simu- 
lated in seconds to give you each 
horse's probability ot winning and 
identity overlays. Horses are 
screened using factors derived from 
an operations research study This 
handicapper outperforms programs 
and calculators selling lor much more. 



Only $19.00 



DRAWS 

jacks or better to open with a joker that 
can be used as an ace or in straights 
or Hushes (Gardenia CA rules). You play 
against six computer-controlled oppo- 
nents This program has true artificial 
intelligence capabilities. DRAWS was 
developed originally by Real World 
Simulations. Alter three years ot refining, 
it's now available tor the TRS-80 It 
will provide hours of fun. challenge and 
education Now 30% ..„ 

taster. Only $15.00 



T0UT3 and DRAW5 supplied on 500 baud cassette. Add $4.00 

for Model I or III diskette. All programs available on 8" 

disk for Model 1 1 at $6.00 additional. PA residents add 6% sales 



WILSON 

Software Division 



tax. North Star diskette version ot DRAW5 can be obtained 
from Real World Simulations, Box 4107, Torrance. CA 90510. 



is a r 3nny Corporation trademark. 



539 Springhouse Lane • Camp Hill, PA 17011 



Houston's Software Store • Micro Solutions, Inc. 

Color Computer Software • Model I • Model III • Model II & CP/M 

Communications Programs • »,„ 

Color Computer • Rompack that allows your printer to be used with your modem. Allows downloading to tape $:>9.95 

Model I or III • Intelligent terminal program easy to use. Allows downloading and uploading (Disk) $149.95 

Games • 

Color Computer • Kompack 'Star Blaster" action parked machine language high res. graphics (Requires 16k) $.59.95 

Model I or III • Arcade games Meteor Mission 2, Galaxy Invasion. Robot Attack, Cosmic Fighter. (Tape/Disk) 

and more. Send for lis. S16.95/20.9S 

Accounting Programs • , 
Model III • General Ledger 400 accts. 1000 transactions/month, allows tor departmental income statement $199.95 

• Accounts Payable 400 accts, 1000 transactions/month, and 99 department codes $199.95 

• Accounts Receivable 400 accts, 1000 transactions/month, and 99 department codes $199 .95 

• Payroll 4(X) employees weekly, bi-weekly, monthly, salaried, hourly, 2misc.ded $199.95 

Model II • Available for floppy or hard disk. Capacitites below are for 2 floppy drive systems. 

• General ledger 5000 ace ts, 2000 transactions/month, allows for departmental income statements $499.00 

• Accounts Payable 2000 accts, 5000 transactions/month, and 99departmental codes. . $499 (X) 

• Accounts Receivable 2000 accts, 5000 transactions/month, and 99 department codes $499.00 

• Payroll 2000 employees weekly, bi-weekly, monthly, salaried, hourly, 2 misc. ded $499.00 

In Houston p n ' n £.°™J? 

9949 E Harwin P.O. Box 2/ 1793 

Houston, Tx. 77036 VISA-M/C Accepted Tampa, Fl. 3368A 

(71 3)-789-5443 Prices include handling and shipping 

^362 




$14.95 +W-KS4H 

I »^********4Ml******»***** ! 

WILL-0-BOX 

Holds 50 discs 5V* 
Removable sliding 
top 
Protects your Discs 
Sturdy Acrylic 
8 in. Box $21 .95 
+ $1 .75 S & H 
MiMMMMy y f f f 

WILL-O-SCREEN FOR TRS-80® 
Sturdy Acrylic-gr, amber, lime 
Mod I-S5.95, Mod II-S7.95, 
Mod III-S6.95 +$1.25S&Heach 
I ****** ********4**»* ****** 
1 BIBLE TEACHING PROGRAMS 

TRS-80 LVII16K 
Learn the order of Bible Books 

Tape Disc 

1. O.T. Books--$4.95 7.95 

2. N.T.Books-$4.95 7.95 

3. Both O.&N. -$7.95 10.95 
I ****** ******************* 

I MONEY BACK GUARANTEE 

Send check or money order 

WILLIAMS ENTERPRISES 
3101 CheverlyAve. 
Uieverly, MD 207£ 



® Radio Shack 

mil Mi nx 



■See List ol Advertisers on page 402 
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correction. Erroneous words are highlight- 
ed in full context when detected, and can 
be immediately replaced. The replace- 
ment word itself is immediately checked 
for correctness. 

In addition to dictionary words, Hex- 
spell 2 checks complete texts includ- 
ing codes, formulae and numbers com- 
mon in many commercial and technical 
documents. 

For more detailed information contact 
Hexagon Systems, Box 397, Station A, 
Vancouver, BC. Canada V6C 2N2, (604) 
682-7646. It is priced at $99. 

Reader Service ^582 



Software For Physicians 

MOS-2 Software gives Physicians in 
groups of up to ten the ability to organize 
information on 15,000 patients by name 
and procedure and to file transactions on 
both daily and monthly bases. 

Among the features available are in- 
surance form processing, recall capabili- 
ty, morbidity indexing, diagnosis and pro- 
cedure statistics, aged receivables and 
patient account status. Options include a 
referral file to keep track of referring doc- 
tors, and word processing to send 
customized letters. 

The system is designed for the Model II. 
A demonstration disk is available for $99. 
The full system is priced at $499. Contact 
Windham Software Inc., 29-31 Ivanhill St., 
Willamantic, CT 06226. 

Reader Service ^592 

Winchester Disk 
Storage Subsystem 

The MSC 9700 Subsystem combines 
the Seagate Technology ST-506 5.25-inch 
Winchester disk drive, the Xebec S1410 
controller, and a 1 15V/230V power supply. 

Its features include: 22-bit error detec- 
tion, 11-bit error correction, a full sector 
data buffer, and single command disk ini- 
tialization. A one or two-drive version of 
the subsystem is available for either five 
or 10-megabytes of on-line storage 
capacity. 

Through the use of interchangeable 
host adapter personality cards, the sub- 
system can be compatible with a variety 
of microcomputer systems. 

The MSC 9700 is priced at under $3000, 
the Host adapters for under $200, from 
Microcomputer Systems Corporation, 432 
Lakeside Drive, Sunnyvale, CA 94086, 
(408) 733-4200. 

Reader Service ^583 



Expands Color 
Computer Memory 

The 16 Plus Board expands the Color 
Computer's Memory from 16K to 32K. 

The board does not require soldering, 
plugs in easily, and fits neatly under the 
RF shield cover. Its design allows the 
graphics display to reside anywhere 
within the 32K memory. No modifications 
are required for existing software. 

The board costs $84.95 from Computer- 
ware, Box 668, 1472 Encinitas Blvd., En- 
cinitas, CA 92024, (714) 436-3512. 

Reader Service ^584 



Cookbook on a Disk 

Dinner on a Disk, a completely 
automated cookbook, contains over 100 
full screen "pages" of proven recipes. 

Published directly on a five-inch disk, 
this cookbook requires no technical train- 
ing or knowledge. 

The disk is available for TRS-80 Models 
for $14.95 from The Computerized Shop- 
per, 683 Towles, Palo Alto, CA 94306 (415) 
856-7467 

Reader Service ^-585 



Speedup Enhancement 

The 4MHz Speedup Enhancement dou- 
bles the processor speed of the MTI Mod 
III plus 140, 240 or 280 systems when used 
with the DOS plus operating system. The 
enhancement is software selectable. 

The 4MHz speedup enhancement, Mod- 
el #1414, sells for $149. A retrofit/installa- 




The 16 Plus Board. 

tion is available for $50 for owners of Mod 
III plus or TRS-80 Model III owners. Con- 
tact Microcomputer Technology Inc., 3304 
W. MacArthur Blvd., Santa Ana, CA 92704, 
(714)979-9925. 

Reader Service ^586 

Morse Code Tutorial 

Code Class is a machine language 
Morse Code tutorial program for the 
Models I and III. 

This program is interactive and pre- 
sents a variety of formats, non-repetitive 
sequences, and user-adjustable speeds. It 
is available on disk for $39 and on cas- 
sette for $29. For additional information 
contact Macrotronics Inc., 1125 N. Golden 
State Blvd., Suite G, Turlock, CA 95380, 
(209) 667-2888. 

Reader Service ^587 




The MSC 9700 Series. 
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An Index to 
Your Data Base 



Newtrieve replaces Basic sequential 
searches with a machine language se- 
quential search program. 

When installed in a Basic program, 
Newtrieve locates key words to further ac- 
cess a data base. As an in-memory, recur- 
sive package, it has the ability to sequen- 
tially search an array of 500 40-character 
search string indexes quickly. Switches 
allow for Excluding, Divide Index, Single 
Search, in-memory changes, re-write of 
load module, and selectively browsing 
through the index. 

Once a program has been established, 
either interactively or from an external 
data file, a load module may be created to 
facilitate start-up in less than 10 seconds. 
Additional indexes can be written and 
successively loaded and searched using 
the same or an alternate Basic program. 

Newtrieve is available for $49.95 and is 
available from Unique Printing and Sta- 
tionery Company Inc., 11 Maiden Lane, 
New York, NY 10038, (212) 732-2244. 

Reader Service ^575 



Introduction 

To Word Processing 

Introduction to Word Processing ex- 
plains in non-technical language what 
word processing is and how it can in- 
crease personal productivity. 

This step-by-step guide provides a com- 
plete, comparative analysis of currently 





The Orbitrak Screen Display. 



available equipment for anyone consider- 
ing buying a system. 

Contact Sybex, 2344 Sixth St, Berkely, 
CA 94710, (415) 848-8233 for information. 
The book is priced at $12.95. 

Reader Service ^576 



Taxpro 



Taxpro enables the user to compute the 
most profitable way of completing tax 
returns. All popular tax forms are avail- 
able, as well as many of the more compli- 
cated ones. 

Available for the Model I and III, Taxpro 
is priced at $149.95 for the first edition, 
and $60 for each yearly revised edition. 
For information contact Videotronics, 
4086 Honolulu Dr., Sarasota, FL 33583, 
(813)371-7255. 

Reader Service ^577 
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The Ultraswitch Self-contained Switchbox. 



Satellite tracking 

With the Color Computer 

Orbitrak is a real-time satellite tracking 
program for the Color Computer. The pro- 
gram displays a map of the world and 
plots the ground track of the satellite as 
its orbit progresses. 

Of special interest to ham radio opera- 
tors for use in tracking the Oscar satel- 
lites, Orbitrak also tracks the space shut- 
tle or other objects in the earth's orbit. 

The program requires a 16K Color Com- 
puter. It is distributed on cassette for 
$14.95 from California Information Com- 
pany (CALICO), Box 462, Torrance, CA 
90508,(714)828-5429. 

Reader Service ^578 



Pilot Directional Finder 



Economical navigational program 
enables you to locate your position, 
distance to destination, heading to desti- 
nation, I D's and their altitudes, and recal- 
culates your position, distances and 
headings as radials change. The program 
is compact, portable and pocket size, no 
installation is necessary. Navigational 
Systems are available for the entire U.S. 
(except Hawaii & Alaska). Three adjacent 
states per cassette tape program are 
provided. 

This system may be used on a TRS-80 or 
Sharp PC-1211 Pocket computer and 
printer interface with any tape cassette re- 
corder with ear and remote hook-up. Con- 
tact PDF, 4388 Alpine Road, Portola Val- 
ley, CA. 94025; for additional information. 

Reader Service ^-579 



Self-Contained Switch Box 

Ultraswitch is a self-contained switch 
box that allows for expansion of your sin- 
gle Centronics-style port to dual ports. 
This allows the user to activate a second 
peripheral device through software selec- 
tion or the flip of a switch, eliminating con- 
stant plugging and unplugging of periph- 
eral cables. 

Fully buffered inputs and outputs 
shield against noise interference. Ultra- 
switch is software-selectable. Each port 
buffers and controls eight datalines, one 
data strobe, and two status lines. 

Priced at $165, Ultraswitch is available 
from Leonard N/C Systems, 1677 North 
Marshall Road, Suite C, El Cajon, CA 
92020, (714)448-8020. 

Reader Service ^580 
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COMPUTER v0 AUDIO 
CASSETTES ^ CASSETT 



CASSETTES 



',.'.'. 



Jmssw. 





LENGTH 

C05 

C-10 
C-20 



12PAK 24PAK 

69c 59c 

79c 69c 

99c 89c 



LENGTH 12PAK 24 PAK 

C-30 $1.19 $1.09 

C-60 $1.49 $1.39 

C-90 $1.79 $1.69 



'00% ERROR FREE* FULLY GUARANTEED • SUPERIOR 5-SCREW CONSTRUCTION 
f'lGH FREQUENCY RESPONSE • VERY LOW NOISE* WIDE DYNAMIC RANGE' 
JSED BY SOFTWARE FIRMS. HOBBYISTS AND SCHOOL DISTRICTS NATIONWIDE' 
BOXES SOLD ONLY WITH CASSETTES 20c EA«$2.00 PER PAK SHIPPING' 



j^ i ' 



■ : ''*&# 



C.O.D. HOTLINE 1-206-675-6143 



MICRO-80" INC. 

665 BUSBY ROAD • OAK HARBOR, WA 







96K CP/M 

(For your TRS-80* Model II) 
Multiple Job Executive 

Add a whole new dimension to your 
TRS-80 Model II. Let it work while you 
work!! 

ATON's unique JobStream 1 " CP/M 2.2. along with additional RAfy! memory; allows you to 
simultaneously compile, assemble, or link in one 64K background partition (62K TPA) while you 
edit files, and spool to the printer, and communicate with another computer in up to four 32K 
foreground partitions (28K TPA). 

As you expand memory beyond 64K, you also enter the amazing world of TrackMode BIOS™ 
which not only multiplies diskette speed up to five times, but also automatically performs read 
after write checks for the ultimate in data reliability. 

'Gain hard disk performance for a fraction of the cost and no backup problems!!! 

•Works in 32K, add RAM memory to 256K using standard Radio Shack memory boards. 

•Supports two sided expansion disk drives (1.2 megabytes per diskette). 

• Allows 6K-7K more space for user programs (62K TPA). 

JobStream CP/M 2.2 (with Z-80** Debugger) $235 

Omni Writer™ Video Text Editor $150 

Z-80 Debugger Source Code $ 50 

Package of above (a $435 value) $295 



"Software with Service" 




Prepaid, Visa, MasterCard or COD. 
Shipping and handling extra. 
California residents add 6% sales tax. 
Product price and availability subject to 
change without notice. 



on 



CP/M* Digital Research, Inc. 
JobStream, TrackMode BIOS 
Omni Writer'" Omnigraphics 



»*™Zilog Corp. 
" ATON Intl. 
•'"Tandy Corp. 



international, Inc. 



260 Brooklyn Avenue, San Jose, CA 95128 
(408) 286-4078 ^ 92 



NEW PRODUCTS 



Book Covers 
Microprocessors 



Introduction to Microprocessors: Ex- 
periments in Digital Technology is a guide 
to the use of integrated circuits. 

The book's seven chapters contain 35 
experiments encouraging the reader to 
construct electronics projects using in- 
tegrated circuits. The use of microproces- 
sors in microcomputers is stressed, with 
emphasis on construction, function and 
programming. 

Priced at $10.95, the book is available 
from Hayden Book Company Inc., 50 Es- 
sex Street, Rochelle Park, NJ 07662, (800) 
631-0856. 

Reader Service ^588 



Video Glare Screens 

Low-cost glare filters are now available 
for the Model land III with a free home trial 
period. 

The filters are four-layered optical fil- 
ters, with two spectral responses. One is a 
neutral density filter (appearing grayish) 
and the other is a blue-green filter. The 
combination enhances contrast, even in 
brightly lit rooms, without greatly at- 
tenuating the image lines. 

These filters are priced at $10 and are 
available from The National Institute for 
Rehabilitation Engineering, 97 Decker 
Road, Butler, NJ 07405, (201) 838-2500. 

Reader Service ^589 



Air Combat 
Computer Games 

Two new air combat computer games, 
Dawn Patrol and Chennault's Flying 
Tigers, are now being marketed. 

Dawn Patrol deals with World War II, 
while Chennault's Flying Tigers covers 
the air war over China and the Pacific in 
1937-1942. Both games feature real-time 
animated graphics. 

In each game you fly a choice of a 
dozen or more fighter planes into combat 
against a computer-controlled force of op- 
ponents. Success or failure depends upon 
your ability to learn and exploit the advan- 
tages and weaknesses of every aircraft. 

These games are available for the Mod- 
el I, Level II and Model III machines on a 
16K machine language cassette from Dis- 
covery Games, 936 W. Highway 36, St. 
Paul, MN 55113. 

Reader Service ^590 
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f Centronics 730013 

Same as Radio Shack 

Line Printer II ■ 

Once $995 ISIr* 3 * 



€J 



Now 




WBk 



While they last 



Plus $10 for shipping & insurance 




mm*. 




^% 



i i 'i::*- #"% 



*% C* 



lS-80 



35 or 40 track capability 



Single or double density (with proper interface) 

Choice of M PI or Tandom drives 

Add $7.50 for shipping 



5Va Discs for TRS-80 and Apple 

Prime First Quality 

MEMOREX Discs as low as $1,89 per disc miotsor 




100 



Part No. 

3401 

3431 withHubring 



10 or More 
$2.09 
$2.35 



50 or More 
$1.99 
$2.25 



100 or More 
$1.89 
$2.15 



»-mriSM#iisaai&tii±**aM <*« 



iMicroMartpInc 

S 943 W.Genesee St. Syracuse, N.Y.I 3204 (315)422-4467 




VISA' 




UNDERSOL 




CP/M"' Software Software/Manual only 


Computer Pathways 




Pearl (level 1) 


$ 99/S25 


Pearl (level 2) 


$299/$40 


Pearl (level 3) 


$549/$50 


Digital Research 




PL/l-80 


$459/$35 


BT-80 


$179/$30 


M ac 


$ 85/$15 


Sid 


$ 65/S15 


Z-Sid 


$ 90/$15 


Tex 


$ 90/$15 


DeSpool 


$ 50/$10 


Micropro 




WordStar 


$319/$60 


Customization Notes 


$ 89/$na 


Mail-Merge 


$109/$25 


WordStar/ Mail-Merge 


$419/$85 


DataStar 


$249/$60 


WordMaster 


$119/$40 


SuperSort I 


$199/$40 


Spell Star 


S 175/540 


Microsoft 




Basic-80 


$289/$na 


Basic Compiler 


$329/$na 


Fortran-80 


$349/$na 


Cobol-80 


$574/$na 


M-Sort 


$124/$na 


Macro-80 


$144/$na 


Edit-80 


$ 84/$na 


MuSimp/MuMath 


$224/$na 


MuLisp-80 


$174/$na 


Organic Software 




Milestone 


$269/$30 


Supersoft 




Diagnostic I 


$ 49/S20 


Diagnostic II 


$ 84/S20 


Disk Doctor 


$ 84/$20 


Forth (8080 or Z80) 


$149/$30 


Fortran 


$219/$30 


Fortran w/Ratfor 


$289/$35 


Other 


less 10% 


Unicorn 




Mince 


$149/$25 


Scribble 


$149/$25 


Both 


$249/$50 


Data Base 




FMS-80 


$649/$45 


dBASE II 


$595/$50 


Access/80 


$699/$50 


Pascal 




Pascal/MT + 


$429/$30 


Pascal/M 


$189/$20 


Miscellaneous 




SpellGuard 


$299/$25 


The Last One 


$549/$na 


SuperCalc 


$259/$50 


CBASIC-2 


$ 98/S20 


MicroStat 


$224/$25 


StatPak 


$449/$40 


Micro B + 


$229/$20 


Apple Software (Business) 




Micropro 




Wordstar 


$239 


MailMerge M 
Wordstar/ Mail Merge 


$ 89 


$349 


tp^sr ' ,„_ 


fc- 5159 


W $175 


Personal Software 




Visicalc 3.3 


$229 


CCA Data Mgr 3BBB 


$ 99 


Desktop/Plan II Ugl- 


$229 


Visiterm 


$139 


Visidex 


$229 


Visiplot 


$185 



Personal Software (cont.) 

Visitrend/Visiplot 

Zork 

Miscellaneous 

Micro Courier 

Super-Text II 

ASCII Express 

Apple Software (Entertainment) 

Wizard & Princess 

Mystery House 

Flight Simulator 

Raster Blaster 

Space Eggs 

Sargon II 

ABM 

Micropainter 

Apple Panic 

Pool 1.5 

Apple Accessories 

Z-80 Softcard 

Keyboard Enhancer 

Apple Joystick 

Sup-r Mod 

CPS Multifunction Card 

Videx Board 

16K Card 

Sup-r Fan 

ALF9 Voice Board 

CCS Cards 

CCS Parallel Model 7720 

CCS Serial Model 7710D 

CCS Centronics Model 7728 

Disk Drives For TRS-80* Model 1 
CCI-100 5'/.", 40 Track 
Add-ons for Zenith Z-8 
CCI-189 5V4", 40 Track 
Z-87 Dual 5%" system 
Drives for Z-90 

External card edge and power supply 
included. 90 day warranty/one year on 
power supply. 

Corvus 5M 
Corvus 10M 
Corvus 20M 
Corvus Mirror 

Shugart 8" 801R Raw Drive 
TAN DON 5 1 /4" Raw Drive 
Power Supplies 
Diskettes — Box of 10 

Maxell 5'/4" 
Maxell 8" 

BASF/Verbatim 5V*" 
BASF/Verbatim 8" 

Plastic File BOX — Holds 50 5Vi" dskts 

Plastic Library Case 5V*" 

Plastic Library Case 8" 

Head Cleaning Diskette 

Floppy Saver 

Floppy Saver Rings 

16K RAM Kits 

One Kit 

Two Kits 

200ns for TRS-80*, Apple II, 

(specify): Jumpers $ 

Computer Systems 

Altos ACS8000 Series $ 

Atari 400 $ 

Atari 800 $ 

Call for other Atari products 

Zenith Z89, 48K $ 

Zenith Z90, 64K $ 

Call for other Zenith products 

For fast delivery, send certified checks, money orders or 

call to arrange direct bank wire transfers. Personal or 

company checks require one to three weeks to clear. All 

prices are mail order only and are subject to change 

without notice. Call for snipping charges. 



$275 
$ 34 

$219 
$127 

S 59 

$ 28 

$ 24 
$ 29 
$ 26 
$ 18 
$ 29 
$ 22 
$ 29 
$ 28 
$ 26 

$299 
$110 
$ 49 
$ 25 
$199 
$249 
$159 
$ 39 
$149 
$Call 
$Call 
$Call 
$Call 

$299 

$389 
$995 
$Call 



$3089 
$4489 
$5429 
$ 699 

$ 399 

$ Call 
$ Call 

$ 40 
$ 45 
$26.95 
$ 36 
$ 19 
$ 3 
$ 4 
$ 25 
$10.95 
$ 6.95 

$13.95 
$25.00 

2.50 

Call 
359 
789 

Call 
Call 




Terminals 

Adds Viewpoint 

Zenith Z-19 

Televideo 910 

Televideo 920C 

Televideo 950 

S-100 California Computer Systems 

Mainframe 

Z80 CPU 

64K RAM 

Floppy Disc Cntrl 

Integrated Sys. w/int. cables, tstd. 

2P + 2S I/O 

4 Port Serial I/O 

4 Port Parallel I/O 

Casio Calculators 

Pocket Comp. FX702 

DeskPrintr/Calc. FR100 



$ 349 
$ 239 
$ 569 
$ 339 
$1975 
$ 269 
$ 249 
$ 179 



Scientific Calc. 
Game Watch 
Game Watch 
Calendar Watch 
Printers 



$185.00 
$ 79.95 
$ 49.95 
$ 49.95 
$ 69.95 
$ 59.95 




FX8100 

CA90 Plastic 

CA901 Steel 

AX210 
NEC Spinwriter 
7710R.O. Ser $2395 
7710 Ser w/tr. $2595 

7720 KSR w/tr. $2795 
7730 R.O. Par $2395 
7730 R.O. Par w/tr. $2595 
NEW 3500 Series $ Call 
$ Call 



Epson MX-70 

Epson MX-80 

Epson MX-80FT 

Epson MX-100 

PaperTiger 445 Gr. & 2K 

PaperTiger 460 Gr. & 2K 

PaperTiger 560 Gr. 

IDS Prism 80 

IDS Prism 132 

PaperTiger Access. 

Anadex DP-8000 

Anadex DP-9500/01 

Okidata Microline 80 fhc. & pin feed 

Okidata Microline 82A Fnc. & pin feed 

Okidata Microline 83A 120 cps 

Okidata 84 200 cps 

Centronics 739 

C.ltoh Starwriter I 25 cps, par. 

C.ltoh Starwriter I 25 cps, ser. 

C.ltoh Starwriter II 45 cps, par. 

C.ltoh Starwriter II 45 cps, ser. 

Axiom GP-80M 

Data South 180 cps 

Olivetti DY 211 Daisy Wheel 

Monitors 

Leedex 12" B&W 

Leedex 12" Green Screen 

Leedex 13" Color 

Sanyo 9" B&W 

Sanyo 9" Green Screen 

Sanyo 12" Green Screen 

Sanyo 12" B&W 

Sanyo 13" Color 

Zenith 13" Color 

Zenith 12" Green Screen 

Telecommunications 

Prentice Star Modem 1-yr. guar. 

Univ. Data System UDS103LP 

Univ. Data System UDS103JP 

Novation Cat 

Novation D-Cat 

Novation Auto-Cat 

Novation Apple Cat II 

D.C. Hayes Smart. Modem 

D.C. Hayes Micro-Modem II 

CCI Telnet Com. Package 



$ Call 
$ Call 
$ Call 
$ Call 
$ Call 
$ Call 
$ Call 
$ Call 
$ Call 
$ 849 
$1389 
$ Call 
$ Call 
$ Call 
$ Call 
$ 739 
$1525 
$1620 
$1950 
$2075 
$ 319 
$ Call 
$ Call 

$ 129 

$ 139 
$ 329 
$ 149 
$ 189 
$ 249 
$ 239 
$ 449 
$ 349 
$ 129 

$ 125 
$ 135 
$ 175 
$ 139 
$ 149 
$ 199 
$ 299 
$ 249 
$ 295 
$ 135 



DEALER (NATIONAL/INTERNATIONAL) INQUIRIES INVITED Send for FREE Catal 




HOP 



TO ORDER CALL TOLL FREE 1-800- 343-6522 

TWX: 710-348-1796 Massachusetts Residents call 617/242-3361 



420-423 Rutherford Ave., Dept. M03M, 

Charlestown, Massachusetts 02129 

Hours 9 AM-8 PM (EST) Mon.-Fri. (Sat. till 5) 

'See List ot Advertisers on page 402 



Technical Information call 617/242-3361 
Massachusetts Residents add 5% Sales Tax 
Tandy Corporation Trademark/' Digital Research 



.^^^^^^^^. 
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Athana, BASF, Control Data, Dysan, IBM, Maxell, Nashua, 
Scotch, Shugart, Syncom, 3M, Verbatim or Wabash 




Find the flexible disc you're now using on our cross reference list... 
then write down the equivalent Memorex part numberyou should be ordering. 
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Memorex Flexible Discs.. .The Ultimate in Memory Excellence 



Quality 

Memorex means quality products that you can depend on. 
Quality control at Memorex means starting with the best 
materials available. Continual surveillance throughout the 
entire manufacturing process. The benefit of Memorex's years 
of experience in magnetic media production, resulting, for 
instance, in proprietary coating formulations. The most sophis- 
ticated testing procedures you'll find anywhere in the business. 

100 Percent Error Free 

Each and every Memorex Flexible Disc is certified to be 1 00 
percent error free. Eacri track of each flexible disc is tested, 
individually, to Memorex's stringent standards of excellence. 
They test signal amplitude, resolution, low-pass modulation, 
overwrite, missing pulse error and extra pulse error. They are 
torque-tested, and competitively tested on drives available 
from almost every major drive manufacturer in the industry 
including drives that Memorex manufacturers. Rigid quality 
audits are built into every step of the manufacturing process 
and stringent testing result in a standard of excellence that 
assures you, our customer, of a quality product designed for 
increased data reliability and consistent top performance. 

Customer-Oriented Packaging 

Memorex's commitment to excellence does not stop with a 
quality product. They are proud of their flexible discs and they 
package them with pride. Both their packaging and their 
labeling have been designed with your ease of identification 
and use in mind. The desk-top box containing ten discs is 
convenient for filing and storage. Both box labels and jacket 
labels provide full information on compatibility, density, sec- 
toring, and record length. Envelopes with multi-language care 
and handling instructions and color-coded removable labels 
are included. A write-protect feature is lvailable to provide 
data security. 

Full One Year Warranty — Your Assurance of Quality 

Memorex Flexible Discs will be replaced by Memorex if they 
are found to be defective in materials or workmanship within 
one year of the date of purchase. Other than replacement, 
Memorex will not be responsible for any damages or losses 
(including consequential damages) caused by the use of 
Memorex Flexible Discs. 



Quantity Discounts Available 

Memorex Flexible Discs are packed 1 discs to a carton and 
1 cartons to a case. Please order only in increments of 1 00 
units for quantity 100 pricing. We are also willing to accom- 
modate your smaller orders. Quantities less than 1 00 units are 
available in increments of 10 units at a 10% surcharge. 
Quantity discounts are also available. Order 500 or more 
discs at the same time and deduct 1%; 1,000 or more saves 
you 2%; 2,000 or more saves you 3%; 5,000 or more saves you 
4%; 1 0,000 or more saves you 5%; 25,000 or more saves you 
6%; 50.000 or more saves you 7% and 1 00,000 or more discs 
earns you an 8% discount off our super low quantity 1 00 price. 
Almost all Memorex Flexible Discs are immediately available 
from CE. Our warehouse facilities are equipped to help us get 
you the quality product you need, when you need it. If you need 
further assistance to find the flexible disc that's right for you, 
call the Memorex compatibility hotline. Dial 800-538-8080 
and ask for the flexible disc hotline extension 0997. In California 
dial 800-672-3525 extension 0997. 

Buy with Confidence 

To get the tastest delivery from CE of your Memorex Flexible Discs, send 
or phone your order directly to our Computer Products Division. Be sure 
to calculate your price using the CE prices in this ad. Mlcnigan residents 
please add 4% sales tax. Written purchase orders are accepted from 
approved government agencies and most well rated firms at a 10% 
, surcharge for net 10 billing. All sales are subject to availability, 
acceptance and verification. All sales are final. Prices, terms and 
specifications are subject to change without notice. Out ot stock items 
will be placed on backorder automatically unless CE is instructed 
differently. Minimum order $50.00. International orders are invited with 
a $20.00 surcharge fo' special handling in addition to shipping charges. 
All shipments are F.O.B. Ann Arbor, Michigan. No COD'S please. Non- 
certified and foreign checks require bank clearance. 

Mail orders to: Communications Electronics. Box 1002, Ann 
Arbor, Michigan 48106 U.S.A. Add $8.00 per case or partial-case of 
100 8-inch discs or $6.00 per case of 100 5V«-inch mini-discs for 
U.P.S. ground shipping and handling in the continental USA If you 
have a Master Card or Visa card, you may call anytime and place 
a credit card order. Order toll-tree in the United States. Cai: 
anytime 800 521-4414. If you are outside the U.S. or in Michigan, 
dial 313-994-4444 Dealer inquiries Invited. All orde' lines at 
Communications Electronics are stafled 24 hours. 
Copyright '1981 Communications Electronics" 
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Order Toll- Free! 
(800)521-4414 

In Michigan (31 3) 994-4444 




For Data Reliability — Memorex Flexible Discs 

™ ^ 99 

COMMUNICATIONS 
ELECTRONICS" 

Computer Products Division 

854 Phoenix D Box 1002 □ Ann Arbor, Michigan 48106 U.S.A. 
Call TOLL-FREE (800) 521-441 4 or outside U.S.A. (31 3) 994-4444 
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READER SERVICE 



This card is valid until April 30, 1982 

Please help us to bring you a better magazine — 
by answering these questions. 



Reader Service: To receive more information from any of the advertisers in this issue of 80 Microcomputing. 
circle the number on the postage-paid Header Service Card that corresponds with the Reader Service 
number on the ad in which you are interested. You will find numbers, preceded by a e.aear the logo of each 
advertiser. Complete the entire card, drop into a mailbox and in 4-6 weeks you will hear from the advertiser 



A. What la your occupation? 
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1 Mayden 






■/ Hewlett-Packard 


D 4. Business 
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5. Education 




4. Microsoft 
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8 Student 
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Microcomputing? 
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4. 4 or more 
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J. Whera did you obtain this copy ol 80 Uicrocom 


5. Science or technical 
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1 1 A Oih» 




1 Subscription copy 


C Is your computer usa: 




. 3. Computer store 


1. ConnecltKl with your occupa 


on 


4 F'iend 



D. What ol type ol TRSoO do you own? 

!J1. Model I Level I 
• > 2. Model I Level II 
i . 3. Model N 

'. Model II.' Level I 
, ; 5. Model III Level II 

6. Color 

1 Pocket Computer 
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puter? 
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2 General Club 
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4. Other 



K. Please enter the month and page number ol your 
tavortte 80 Microcomputing article published 
during the last 12 months. 

Month Page Number 

L On a scsl* ol (no Interest) to 5 (great Interest) 
please rat* your interest In the following col- 

1 Remarkr, 

2. inside 80 

. 3. 80 Applications 

4 Education 80 

5 New-, 

6. Exclusive 80 

. ! 7. 80 Accountant 

8. Kitchen Table Soltware 

. 9. The Assembly Line 
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- i New Products 

12- Reviews 
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SUBSCRIPTION 



Please send me the following 80 
Microcomputing products: 



Qty. 


Catalog # 


Title 


Unil Price 


Total 









































































microcomputing 



off the 
newsstand price. 



/?';•-' 



Shipping and handling charges: 

$ 1 .50 1 st book, S 1 .00 each additional book 

(UPS, use street address) 

$ 1 0.00 each book overseas airmail 



Shipping/handling 
Total 



Enclosed $ 

Bill: D AE 

Card# 



D MC 



D Check 

DVISA 



a m.o. 



D New subscription 
D 1 year— $24.97 



Q Renewal 



Enclosed $ O Check O M.O. 

Bill: O MC a Visa O AE U me 
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Please allow 4-6 weeks for delivery 



Mo C.O.D. orders accepted. 



Canada— S27.97, 1 year only, US funds. 
Foreign Surface— S44.9 7 1 year only. US funds. 
Foreign Air — Please inquire. 
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Please call 
(213)7060333 

Our Epson prices 
are so low, 

we're not allowed 
to print them. 

EPSON MX-80 $CALL EPSON INTERFACES & OPTIONS 

00 cps/9x9 matrix/Lower case with trs-so model i. hi cable s 30 serial interface <2k buffer) s 149 

true deSCenders/Bi-direCtional & TRS-80 MODEL I Keyboard Interlace $ 95 SERIAL CABLE Male 10 Male S 30 

1 nmr ^ppkinn/Artui^tahiP trartnr/ TRS-80 MODEL ll CABLE $ 30 DOT RESOLUTION GRAPHICS S 90 

Logic seeKing/AajusTaDie iracior/ apple interface & cable s 100 replacement ribbon s 13 

Expanded printing/Block graphics/ ieee 488 interface ... $ 60 replacement print head (Ouietiypei s 40 

Forms control/Compressed printing/ serial interface ..... $ 70 epson service manual $ 40 
Double-strike printing/Correspon- 
dence quality/Emphasized printing 

mode/Standard parallel interface ^— _ _ ^ 11 

EPSON MX-80 I7T SCALL ^r% ll^^V^^^b We built a reputation on our 

Same features as the MX-80 plus Fnc- £^L| W ^Wt 1#4 prices and your satisfaction. 

tiOn Feed. Adjustable removable trac- i^^^^^l O^^fH ^mI We guarantee everything we sell for 30 days. If anything 

tor is Standard for ease Of handling ^B^^^^B^I ™^^^ is wrong, just return the item and_we'll make it right 

-- ^^^^ ^Vk 9k I We accept Visa and Master Card on all orders COD 

EPSON MX-100 F/T SCALL ^^^^^^k^r I B""** I PS accepted up to $300.00 We also accept school pur- 

' Same features as the MX-80 & MX-80 WKEF W ^K^m^ HDH Please add $2.00 tor standard UPS shipping and 

F/T but on 15 1 /2 inch carriage for print- ^^^^^B ^^^ ^^^ handling on orders under 50 pounds, delivered in the 

ing 1 32 columns with standard 1 Cpi ^^H| Br^^^^fcP^^^ continental U.S. Call us tor shipping charges on items 

t 9 op p n 1 1 1 Tin <; in thp mm- ^^^^ ■ l^^l H^^^^ that weigh more than 50 pounds Foreign. FP0 and AP0 

pressed character font. The MX-1 00 is \^ | ^^1 «LdV^ identsfadd 6 ^/! sales tax° °' 

complete with Dot Resolution 

Graphics 31245 LA BAYA DRIVE, WESTLAKE VILLAGE, CALIFORNIA 91362 




Frustrating isn't it! No matter h< >w 
much you speed up your program 
it still stems to take forever to save 
data onto a cassette. Wouldn't it 
be great if someone could design a 
mass storage system w ith the speed 
of a disk, but at half the cost? 
Exatron did, the Exatron Stringy 
Floppy (ESF) . 

Totally self-contained, the ESF 
is an extremely fast, reliable, nd 
economical alternative to cassette 
or disk storage of programs or 
data. All of the ESF's operations 
ore under the computer's control, 
with no buttons, switches, knobs or 
levers to adjust or for 

The ESF uses a miniature tape 
cartridge, about .he size of a busi- 
ru, called a wafer. The 
transport mechanism uses a direct 
drive motor with only one moving 
part. Designed ic read and write 



digital data only, the ESr suffers 
from none of tne drawbacks of 
cassettes - without the expense of 
disks. 

Several versions of the ES: 
available, for the TRS-80, Apple, 
PET, OSI and an RS 232 unit 
Even .Jie slowest of the units is 15 
times faster than a cassette, and aP 
are as reliable as ckY. drive;. - in 
fact a lot of users say they are more 
j sliable! 




excellence in electronics 

exatron 



To get further information about 
the ESF give Exatron a call on 
their Hot Line 800-538 8559 
(inside California 408-737 7111). 

If you can't wait any longer then 
take advantage of their 30 day 
money-back guarantee, you've 
nothing to lose but time! 

181 Commercial Street 
Sunnyvale, CA 94086 





tie and PET Jue trademarks ot Tandy, Apple and Commodore re; 






